From 6b264121bee3b5c08af388f20c5273ef8956bc5e Mon Sep 17 00:00:00 2001
From: James Crayne <jim.crayne@gmail.com>
Date: Sat, 3 Nov 2018 03:00:58 -0400
Subject: addDestroySessionHook

---
 examples/dhtd.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'examples/dhtd.hs')

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 ()
-- 
cgit v1.2.3