From 71e8bb90614ebd849b72c1ec1192f4a875c90f84 Mon Sep 17 00:00:00 2001 From: joe Date: Sun, 27 May 2018 23:08:31 -0400 Subject: Cookie-related debug print. --- src/Network/Tox/DHT/Handlers.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Network/Tox/DHT/Handlers.hs') diff --git a/src/Network/Tox/DHT/Handlers.hs b/src/Network/Tox/DHT/Handlers.hs index 500785cc..9faee69a 100644 --- a/src/Network/Tox/DHT/Handlers.hs +++ b/src/Network/Tox/DHT/Handlers.hs @@ -219,7 +219,9 @@ getNodesH routing addr (GetNodes nid) = do cookieRequestH :: TransportCrypto -> NodeInfo -> CookieRequest -> IO Cookie cookieRequestH crypto ni (CookieRequest remoteUserKey) = do - hPutStrLn stderr $ "CookieRequest! remoteUserKey=" ++ show (key2id remoteUserKey) + hPutStrLn stderr $ unlines + [ "CookieRequest! remoteUserKey=" ++ show (key2id remoteUserKey) + , " sender=" ++ show ni ] (n24,sym,us) <- atomically $ do n24 <- transportNewNonce crypto sym <- transportSymmetric crypto -- cgit v1.2.3