Removed useless tvar access.

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
 
 createCookie :: TransportCrypto -> NodeInfo -> PublicKey -> IO Cookie
 createCookie crypto ni remoteUserKey = do
-    (n24,sym,us) <- atomically $ do
+    (n24,sym) <- atomically $ do
         n24 <- transportNewNonce crypto
         sym <- transportSymmetric crypto
-        us <- readTVar $ userKeys crypto
-        return (n24,sym,us)
+        return (n24,sym)
     timestamp <- round . (* 1000000) <$> getPOSIXTime
     let dta = encodePlain $ CookieData
             { cookieTime  = timestamp