From 07ba23df99d6ac0a2cf91530c0753d9d31e1e486 Mon Sep 17 00:00:00 2001 From: joe Date: Thu, 9 Nov 2017 18:30:59 -0500 Subject: Debug prints on cookie handling. --- src/Network/Tox/DHT/Handlers.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src') 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)) -- cgit v1.2.3