diff options
| author | joe <joe@jerkface.net> | 2018-05-27 23:08:31 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2018-05-27 23:08:31 -0400 |
| commit | 71e8bb90614ebd849b72c1ec1192f4a875c90f84 (patch) | |
| tree | 3ef89987066fa7e1e0f5e68f2e48ad49a3476307 /src/Network/Tox/DHT/Handlers.hs | |
| parent | 397471b3c15c14fa8c2702c36450d690e94a8aa5 (diff) | |
Cookie-related debug print.
Diffstat (limited to 'src/Network/Tox/DHT/Handlers.hs')
| -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 |