diff options
Diffstat (limited to 'dht/src/Network/Tox/TCP.hs')
-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' |