New "cookie" command for tox command-line interface.

1 files changed, 2 insertions, 0 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index e9220fcb..d434360f 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -112,6 +112,7 @@ newCrypto = do
         drg0 <- getSystemDRG
         return $ randomBytesGenerate 32 drg0 :: IO (ByteString, SystemDRG)
     noncevar <- atomically $ newTVar $ fst $ withDRG drg drgNew
+    cookieKeys <- atomically $ newTVar []
     hPutStrLn stderr $ "secret(tox) = " ++ DHT.showHex secret
     hPutStrLn stderr $ "public(tox) = " ++ DHT.showHex pubkey
     hPutStrLn stderr $ "symmetric(tox) = " ++ DHT.showHex symkey
@@ -129,6 +130,7 @@ newCrypto = do
             writeTVar noncevar drg2
             return nonce
         , userKeys = ukeys
+        , pendingCookies = cookieKeys
         }
 
 updateIP :: TVar (R.BucketList NodeInfo) -> SockAddr -> STM ()