summaryrefslogtreecommitdiff
path: root/src/Network/Tox/DHT
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/Tox/DHT')
-rw-r--r--src/Network/Tox/DHT/Handlers.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Network/Tox/DHT/Handlers.hs b/src/Network/Tox/DHT/Handlers.hs
index 42937b89..e2dc8eba 100644
--- a/src/Network/Tox/DHT/Handlers.hs
+++ b/src/Network/Tox/DHT/Handlers.hs
@@ -219,11 +219,10 @@ getNodesH routing addr (GetNodes nid) = do
219 219
220createCookie :: TransportCrypto -> NodeInfo -> PublicKey -> IO Cookie 220createCookie :: TransportCrypto -> NodeInfo -> PublicKey -> IO Cookie
221createCookie crypto ni remoteUserKey = do 221createCookie crypto ni remoteUserKey = do
222 (n24,sym,us) <- atomically $ do 222 (n24,sym) <- atomically $ do
223 n24 <- transportNewNonce crypto 223 n24 <- transportNewNonce crypto
224 sym <- transportSymmetric crypto 224 sym <- transportSymmetric crypto
225 us <- readTVar $ userKeys crypto 225 return (n24,sym)
226 return (n24,sym,us)
227 timestamp <- round . (* 1000000) <$> getPOSIXTime 226 timestamp <- round . (* 1000000) <$> getPOSIXTime
228 let dta = encodePlain $ CookieData 227 let dta = encodePlain $ CookieData
229 { cookieTime = timestamp 228 { cookieTime = timestamp