allow hooks to be passed in to newTox

1 files changed, 4 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index a2ebdf86..fa4ce95b 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -79,6 +79,7 @@ import qualified Network.Tox.DHT.Transport as Tox
 import qualified Network.Tox.DHT.Handlers as Tox
 import qualified Network.Tox.Onion.Transport as Tox
 import qualified Network.Tox.Onion.Handlers as Tox
+import qualified Network.Tox.Crypto.Handlers as Tox
 import Data.Typeable
 import Roster
 
@@ -790,7 +791,9 @@ main = do
         "" -> return (Nothing,return (), Map.empty, return [],[])
         toxport -> do
             addrTox <- getBindAddress toxport (ip6tox opts)
-            tox <- Tox.newTox keysdb addrTox
+            crypto <- Tox.newCrypto
+            netCryptoSessionsState <- Tox.newSessionsState crypto Tox.defaultUnRecHook Tox.defaultCryptoDataHooks
+            tox <- Tox.newTox keysdb addrTox (Just netCryptoSessionsState)
             quitTox <- Tox.forkTox tox
 
             toxSearches <- atomically $ newTVar Map.empty