call setTerminated from destroySession

1 files changed, 3 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index bf7d7162..f4a2544c 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1734,7 +1734,9 @@ main = do
     keysdb <- Tox.newKeysDatabase
 
     _crypto <- Tox.newCrypto
-    _netCryptoSessionsState <- Tox.newSessionsState _crypto Tox.defaultUnRecHook Tox.defaultCryptoDataHooks
+    let emptyDestroyHook :: Tox.NetCryptoSession -> IO ()
+        emptyDestroyHook session = dput XNetCrypto $ "SESSION DESTROY HOOK NOT ADDED ! publkey= " ++ show (Tox.key2id (Tox.ncTheirPublicKey session))
+    _netCryptoSessionsState <- Tox.newSessionsState _crypto emptyDestroyHook Tox.defaultUnRecHook Tox.defaultCryptoDataHooks
     (mbtox,quitTox,toxdhts,toxips,(taddrs::[SockAddr])) <- case porttox opts of
         "" -> return (Nothing,return (), Map.empty, return [],[])
         toxport -> do