Debug prints on cookie handling.

1 files changed, 2 insertions, 0 deletions

diff --git a/src/Network/Tox/DHT/Handlers.hs b/src/Network/Tox/DHT/Handlers.hs
index 7f3bc7ed..500785cc 100644
--- a/src/Network/Tox/DHT/Handlers.hs
+++ b/src/Network/Tox/DHT/Handlers.hs
@@ -219,6 +219,7 @@ 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)
     (n24,sym,us) <- atomically $ do
         n24 <- transportNewNonce crypto
         sym <- transportSymmetric crypto
@@ -231,6 +232,7 @@ cookieRequestH crypto ni (CookieRequest remoteUserKey) = do
             , dhtKey      = transportPublic crypto
             }
         edta = encryptSymmetric sym n24 dta
+    hPutStrLn stderr $ "CookieRequest! responding to " ++ show (key2id remoteUserKey)
     return $ Cookie n24 edta
 
 lanDiscoveryH :: Client -> NodeInfo -> NodeInfo -> IO (Maybe (Message -> Message))