addDestroySessionHook

1 files changed, 1 insertions, 0 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index bef09b75..4ec4a3f4 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1686,6 +1686,7 @@ onNewToxSession sv ssvar ContactInfo{accounts} addrTox netcrypto = do
                 return c
             Just c  -> return c
 
+    addDestroySessionHook netcrypto (Just 0) $ delSession c . fromIntegral . ncSessionId
     addSession c netcrypto
 
     return ()