Merge branch 'dht-rewrite' of jerkface.net:repo/bittorrent into dht-rewrite

1 files changed, 5 insertions, 2 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index c0330657..f54c5249 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -353,6 +353,7 @@ data Session = Session
     , dhts              :: Map.Map String DHT
     , externalAddresses :: IO [SockAddr]
     , swarms            :: Mainline.SwarmsDatabase
+    , cryptosessions    :: Tox.NetCryptoSessions
     , toxkeys           :: TVar Tox.AnnouncedKeys
     , userkeys          :: TVar [(SecretKey,PublicKey)]
     , roster            :: Roster
@@ -947,12 +948,13 @@ main = do
 
     keysdb <- Tox.newKeysDatabase
 
+    crypto <- Tox.newCrypto
+    netCryptoSessionsState <- Tox.newSessionsState crypto Tox.defaultUnRecHook Tox.defaultCryptoDataHooks
+
     (mbtox,quitTox,toxdhts,toxips,taddrs) <- case porttox opts of
         "" -> return (Nothing,return (), Map.empty, return [],[])
         toxport -> do
             addrTox <- getBindAddress toxport (ip6tox opts)
-            crypto <- Tox.newCrypto
-            netCryptoSessionsState <- Tox.newSessionsState crypto Tox.defaultUnRecHook Tox.defaultCryptoDataHooks
             tox <- Tox.newTox keysdb addrTox (Just netCryptoSessionsState)
             quitTox <- Tox.forkTox tox
 
@@ -1133,6 +1135,7 @@ main = do
                 , dhts              = dhts  -- all DHTs
                 , signalQuit        = signalQuit
                 , swarms            = swarms
+                , cryptosessions    = netCryptoSessionsState
                 , toxkeys           = keysdb
                 , userkeys          = toxids
                 , roster            = rstr