diff options
-rw-r--r-- | src/Network/Tox/DHT/Handlers.hs | 5 |
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 | ||
220 | createCookie :: TransportCrypto -> NodeInfo -> PublicKey -> IO Cookie | 220 | createCookie :: TransportCrypto -> NodeInfo -> PublicKey -> IO Cookie |
221 | createCookie crypto ni remoteUserKey = do | 221 | createCookie 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 |