tox: Generate keys within STM monad.

1 files changed, 5 insertions, 0 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 1bf6efc5..7011618c 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -101,6 +101,11 @@ newCrypto = do
             let (nonce, drg2) = withDRG drg1 (Nonce24 <$> getRandomBytes 24)
             writeTVar noncevar drg2
             return nonce
+        , transportNewKey = do
+            drg1 <- readTVar noncevar
+            let (k, drg2) = withDRG drg1 generateSecretKey
+            writeTVar noncevar drg2
+            return k
         , userKeys = return []
         , pendingCookies = cookieKeys
         , secretsCache = cache