diff options
author | Joe Crayne <joe@jerkface.net> | 2019-11-30 19:34:26 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2020-01-01 23:22:52 -0500 |
commit | 06bc74fb8fccb4b8a19d7a204df79c222791e677 (patch) | |
tree | 78edb30a0bb4ae16eba413fe48925153efddc468 /dht/src/Network/Tox/TCP.hs | |
parent | 2f823f082afc9f7501f2672435ca764e964a3bae (diff) |
Debug print upon toxid garbage collection.
Diffstat (limited to 'dht/src/Network/Tox/TCP.hs')
-rw-r--r-- | dht/src/Network/Tox/TCP.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dht/src/Network/Tox/TCP.hs b/dht/src/Network/Tox/TCP.hs index 5dfb8382..d0d67f25 100644 --- a/dht/src/Network/Tox/TCP.hs +++ b/dht/src/Network/Tox/TCP.hs | |||
@@ -304,7 +304,7 @@ newClient crypto store load = do | |||
304 | PingPacket -> trace ("tcp-received-ping") $ Just MethodHandler | 304 | PingPacket -> trace ("tcp-received-ping") $ Just MethodHandler |
305 | { methodParse = \case (_,RelayPing n8) -> Right () | 305 | { methodParse = \case (_,RelayPing n8) -> Right () |
306 | _ -> trace ("tcp-non-ping") $ Left "TCP: Non-ping?" | 306 | _ -> trace ("tcp-non-ping") $ Left "TCP: Non-ping?" |
307 | , methodSerialize = \n8 src dst () -> trace ("tcp-made-pong-"++show n8) (False, RelayPong n8) | 307 | , methodSerialize = \n8 src dst () -> {- trace ("tcp-made-pong-"++show n8) -} (False, RelayPong n8) |
308 | , methodAction = \src () -> dput XTCP $ "TCP pinged by "++show src | 308 | , methodAction = \src () -> dput XTCP $ "TCP pinged by "++show src |
309 | } | 309 | } |
310 | w -> trace ("tcp-lookupHandler: "++show w) $ Just NoReply | 310 | w -> trace ("tcp-lookupHandler: "++show w) $ Just NoReply |