From d1eef43fde09b670dfedad9742a70224fcdc941f Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Tue, 28 Jan 2020 15:57:17 -0500 Subject: Removed tcp-related traces. --- dht/src/Network/Tox/TCP.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/dht/src/Network/Tox/TCP.hs b/dht/src/Network/Tox/TCP.hs index 626d4714..36289e19 100644 --- a/dht/src/Network/Tox/TCP.hs +++ b/dht/src/Network/Tox/TCP.hs @@ -398,12 +398,12 @@ newClient crypto store load lookupSender getRoute = do , lookupHandler = \case PingPacket -> Just MethodHandler { methodParse = \case (_,RelayPing n8) -> Right () - _ -> trace ("tcp-non-ping") $ Left "TCP: Non-ping?" - , methodSerialize = \n8 src dst () -> {- trace ("tcp-made-pong-"++show n8) -} (False, RelayPong n8) + _ -> Left "TCP: Non-ping?" + , methodSerialize = \n8 src dst () -> (False, RelayPong n8) , methodAction = \src () -> dput XTCP $ "TCP pinged by "++show src } - w -> trace ("tcp-lookupHandler: "++show w) $ Just NoReply - { methodParse = \x -> Left "tcp-lookuphandler?" -- :: x -> Either err a + w -> Just NoReply + { methodParse = \x -> Left $ "tcp-lookuphandler? " ++ (concat $ take 1 $ words $ show x) -- :: x -> Either err a , noreplyAction = \addr a -> dput XTCP $ "tcp-lookupHandler: "++show w } , tableMethods = transactionMethods' -- cgit v1.2.3