diff options
| author | Joe Crayne <joe@jerkface.net> | 2020-01-28 15:57:17 -0500 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2020-01-28 17:26:25 -0500 |
| commit | d1eef43fde09b670dfedad9742a70224fcdc941f (patch) | |
| tree | af0b12fa1a7f504d2c5435939e3664ed99107b17 | |
| parent | e404526c86e1a4662e73746b3b938b5f07efdce5 (diff) | |
Removed tcp-related traces.
| -rw-r--r-- | dht/src/Network/Tox/TCP.hs | 8 |
1 files 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 | |||
| 398 | , lookupHandler = \case | 398 | , lookupHandler = \case |
| 399 | PingPacket -> Just MethodHandler | 399 | PingPacket -> Just MethodHandler |
| 400 | { methodParse = \case (_,RelayPing n8) -> Right () | 400 | { methodParse = \case (_,RelayPing n8) -> Right () |
| 401 | _ -> trace ("tcp-non-ping") $ Left "TCP: Non-ping?" | 401 | _ -> Left "TCP: Non-ping?" |
| 402 | , methodSerialize = \n8 src dst () -> {- trace ("tcp-made-pong-"++show n8) -} (False, RelayPong n8) | 402 | , methodSerialize = \n8 src dst () -> (False, RelayPong n8) |
| 403 | , methodAction = \src () -> dput XTCP $ "TCP pinged by "++show src | 403 | , methodAction = \src () -> dput XTCP $ "TCP pinged by "++show src |
| 404 | } | 404 | } |
| 405 | w -> trace ("tcp-lookupHandler: "++show w) $ Just NoReply | 405 | w -> Just NoReply |
| 406 | { methodParse = \x -> Left "tcp-lookuphandler?" -- :: x -> Either err a | 406 | { methodParse = \x -> Left $ "tcp-lookuphandler? " ++ (concat $ take 1 $ words $ show x) -- :: x -> Either err a |
| 407 | , noreplyAction = \addr a -> dput XTCP $ "tcp-lookupHandler: "++show w | 407 | , noreplyAction = \addr a -> dput XTCP $ "tcp-lookupHandler: "++show w |
| 408 | } | 408 | } |
| 409 | , tableMethods = transactionMethods' | 409 | , tableMethods = transactionMethods' |