summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Network/Tox/DHT/Handlers.hs2
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
219 219
220cookieRequestH :: TransportCrypto -> NodeInfo -> CookieRequest -> IO Cookie 220cookieRequestH :: TransportCrypto -> NodeInfo -> CookieRequest -> IO Cookie
221cookieRequestH crypto ni (CookieRequest remoteUserKey) = do 221cookieRequestH crypto ni (CookieRequest remoteUserKey) = do
222 hPutStrLn stderr $ "CookieRequest! remoteUserKey=" ++ show (key2id remoteUserKey)
222 (n24,sym,us) <- atomically $ do 223 (n24,sym,us) <- atomically $ do
223 n24 <- transportNewNonce crypto 224 n24 <- transportNewNonce crypto
224 sym <- transportSymmetric crypto 225 sym <- transportSymmetric crypto
@@ -231,6 +232,7 @@ cookieRequestH crypto ni (CookieRequest remoteUserKey) = do
231 , dhtKey = transportPublic crypto 232 , dhtKey = transportPublic crypto
232 } 233 }
233 edta = encryptSymmetric sym n24 dta 234 edta = encryptSymmetric sym n24 dta
235 hPutStrLn stderr $ "CookieRequest! responding to " ++ show (key2id remoteUserKey)
234 return $ Cookie n24 edta 236 return $ Cookie n24 edta
235 237
236lanDiscoveryH :: Client -> NodeInfo -> NodeInfo -> IO (Maybe (Message -> Message)) 238lanDiscoveryH :: Client -> NodeInfo -> NodeInfo -> IO (Maybe (Message -> Message))