From 71e8bb90614ebd849b72c1ec1192f4a875c90f84 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
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')

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