diff options
Diffstat (limited to 'src/Network/Tox/DHT')
| -rw-r--r-- | src/Network/Tox/DHT/Handlers.hs | 4 |
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 | |||
| 219 | 219 | ||
| 220 | cookieRequestH :: TransportCrypto -> NodeInfo -> CookieRequest -> IO Cookie | 220 | cookieRequestH :: TransportCrypto -> NodeInfo -> CookieRequest -> IO Cookie |
| 221 | cookieRequestH crypto ni (CookieRequest remoteUserKey) = do | 221 | cookieRequestH crypto ni (CookieRequest remoteUserKey) = do |
| 222 | hPutStrLn stderr $ "CookieRequest! remoteUserKey=" ++ show (key2id remoteUserKey) | 222 | hPutStrLn stderr $ unlines |
| 223 | [ "CookieRequest! remoteUserKey=" ++ show (key2id remoteUserKey) | ||
| 224 | , " sender=" ++ show ni ] | ||
| 223 | (n24,sym,us) <- atomically $ do | 225 | (n24,sym,us) <- atomically $ do |
| 224 | n24 <- transportNewNonce crypto | 226 | n24 <- transportNewNonce crypto |
| 225 | sym <- transportSymmetric crypto | 227 | sym <- transportSymmetric crypto |