1 files changed, 8 insertions, 2 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 56c4b8e6..98e9691b 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -101,8 +101,10 @@ newCrypto :: IO TransportCrypto
 newCrypto = do
     secret <- generateSecretKey
     alias <- generateSecretKey
-    let pubkey = toPublic secret
-        aliaspub = toPublic alias
+    ralias <- generateSecretKey
+    let pubkey    = toPublic secret
+        aliaspub  = toPublic alias
+        raliaspub = toPublic ralias
     (symkey, drg) <- do
         drg0 <- getSystemDRG
         return $ randomBytesGenerate 32 drg0 :: IO (ByteString, SystemDRG)
@@ -115,6 +117,8 @@ newCrypto = do
         , transportPublic = pubkey
         , onionAliasSecret = alias
         , onionAliasPublic = aliaspub
+        , rendezvousSecret = ralias
+        , rendezvousPublic = raliaspub
         , transportSymmetric = return $ SymmetricKey symkey
         , transportNewNonce = do
             drg1 <- readTVar noncevar
@@ -204,6 +208,7 @@ data Tox = Tox
     , toxOnion :: Onion.Client RouteId
     , toxToRoute :: Transport String Onion.Rendezvous (Assym (Encrypted Onion.DataToRoute))
     , toxCrypto :: Transport String SockAddr NetCrypto
+    , toxCryptoKeys :: TransportCrypto
     , toxRouting :: DHT.Routing
     , toxTokens :: TVar SessionTokens
     , toxAnnouncedKeys :: TVar Onion.AnnouncedKeys
@@ -273,6 +278,7 @@ newTox keydb addr = do
         , toxOnion = onionclient
         , toxToRoute = dtacrypt
         , toxCrypto = cryptonet
+        , toxCryptoKeys = crypto
         , toxRouting = routing
         , toxTokens = toks
         , toxAnnouncedKeys = keydb