Tox: Shared secrets cache.

1 files changed, 2 insertions, 0 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 40d17a07..35eaebb5 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -114,6 +114,7 @@ newCrypto = do
         return $ randomBytesGenerate 32 drg0 :: IO (ByteString, SystemDRG)
     noncevar <- atomically $ newTVar $ fst $ withDRG drg drgNew
     cookieKeys <- atomically $ newTVar []
+    cache <- newSecretsCache
     hPutStrLn stderr $ "secret(tox) = " ++ DHT.showHex secret
     hPutStrLn stderr $ "public(tox) = " ++ DHT.showHex pubkey
     hPutStrLn stderr $ "symmetric(tox) = " ++ DHT.showHex symkey
@@ -132,6 +133,7 @@ newCrypto = do
             return nonce
         , userKeys = ukeys
         , pendingCookies = cookieKeys
+        , secretsCache = cache
         }
 
 updateIP :: TVar (R.BucketList NodeInfo) -> SockAddr -> STM ()