bring crypto-sessions state into scope

1 files changed, 2 insertions, 0 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index f73de4e9..0400f14a 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -219,6 +219,7 @@ data Tox = Tox
     , toxOnion :: Onion.Client RouteId
     , toxToRoute :: Transport String Onion.AnnouncedRendezvous (PublicKey,Onion.OnionData)
     , toxCrypto :: Transport String SockAddr NetCrypto
+    , toxCryptoSessions :: NetCryptoSessions
     , toxCryptoKeys :: TransportCrypto
     , toxRouting :: DHT.Routing
     , toxTokens :: TVar SessionTokens
@@ -319,6 +320,7 @@ newTox keydb addr mbSessionsState = do
         , toxOnion = onionclient
         , toxToRoute = onInbound (updateRoster roster) dtacrypt
         , toxCrypto = addHandler (hPutStrLn stderr) (cryptoNetHandler sessionsState) cryptonet
+        , toxCryptoSessions = sessionsState
         , toxCryptoKeys = crypto
         , toxRouting = routing
         , toxTokens = toks