Cookie-related debug print.

1 files changed, 3 insertions, 1 deletions

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