1 files changed, 4 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index f4a2544c..efd51e6d 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -455,7 +455,6 @@ clientSession s@Session{..} sock cnum h = do
                 hPutClient h $ "error."
 
         ("stop", _) -> do hPutClient h "Terminating DHT Daemon."
-                          mapM_ (saveNodes netname) dhts
                           hCloseClient h
                           signalQuit
 
@@ -2077,4 +2076,8 @@ main = do
     quitTox
 
     swarmsdb <- atomically $ readTVar (Mainline.contactInfo swarms)
+    forM_ (Map.toList dhts) $ \(netname,dht) -> do
+        saveNodes netname dht
+        dput XMisc $ "Saved " ++ nodesFileName netname ++ "."
     L.writeFile "bt-peers.dat" $ S.encodeLazy swarmsdb
+    dput XMisc $ "Saved bt-peers.dat"