fix hang bug on p command

1 files changed, 3 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index bb491bfc..eaf908f8 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -800,7 +800,9 @@ clientSession s@Session{..} sock cnum h = do
                                     r   <- parseResult tokenstr
                                     return $ case selectedKey of
                                         Nothing -> hPutClient h "Missing secret user-key."
-                                        Just k  -> asend k dta r
+                                        Just k  -> do
+                                            asend k dta r
+                                            hPutClient h "Sent."
                         maybe (hPutClient h ("Unsupported method: "++method))
                               goTarget
                               $ Map.lookup method dhtAnnouncables