NetCrypto wip

1 files changed, 3 insertions, 1 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index d5db6979..4cc762c4 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -89,6 +89,7 @@ import Crypto.Tox
 import Data.Word64Map                        (fitsInInt)
 import qualified Data.Word64Map              (empty)
 import Network.Tox.Crypto.Transport          (NetCrypto)
+import Network.Tox.Crypto.Handlers           (newSessionsState, cryptoNetHandler)
 import qualified Network.Tox.DHT.Handlers    as DHT
 import qualified Network.Tox.DHT.Transport   as DHT
 import Network.Tox.NodeId
@@ -308,11 +309,12 @@ newTox keydb addr = do
                     (const id)
 
     roster <- newRoster
+    sessionsState <- newSessionsState crypto
     return Tox
         { toxDHT = dhtclient
         , toxOnion = onionclient
         , toxToRoute = onInbound (updateRoster roster) dtacrypt
-        , toxCrypto = cryptonet
+        , toxCrypto = addHandler (error "printErrors stderr") (cryptoNetHandler sessionsState) cryptonet
         , toxCryptoKeys = crypto
         , toxRouting = routing
         , toxTokens = toks