1 files changed, 1 insertions, 0 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 9b5abb22..db56ec24 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -455,6 +455,7 @@ clientSession s@Session{..} sock cnum h = do
                 hPutClient h $ "error."
 
         ("stop", _) -> do hPutClient h "Terminating DHT Daemon."
+                          mapM_ (saveNodes netname) dhts
                           hCloseClient h
                           signalQuit