diff options
| author | jim@bo <jim@bo> | 2018-06-24 07:14:59 -0400 |
|---|---|---|
| committer | jim@bo <jim@bo> | 2018-06-24 07:15:08 -0400 |
| commit | 9f30ec540c49fc2ea4e05a87b3253937a868c721 (patch) | |
| tree | ed7a92cb85e625f886a68c3aa9faa39b4d084e2a /examples/dhtd.hs | |
| parent | 5c2c19dfa55f0a319d78411e21fdd0cb5dcc4547 (diff) | |
save nodes on stop command
Diffstat (limited to 'examples/dhtd.hs')
| -rw-r--r-- | examples/dhtd.hs | 1 |
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 | |||
| 455 | hPutClient h $ "error." | 455 | hPutClient h $ "error." |
| 456 | 456 | ||
| 457 | ("stop", _) -> do hPutClient h "Terminating DHT Daemon." | 457 | ("stop", _) -> do hPutClient h "Terminating DHT Daemon." |
| 458 | mapM_ (saveNodes netname) dhts | ||
| 458 | hCloseClient h | 459 | hCloseClient h |
| 459 | signalQuit | 460 | signalQuit |
| 460 | 461 | ||