From dda052d5dfac60c647aff7f5a03605350eaf2f62 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Sat, 26 May 2018 19:47:58 +0000 Subject: fix hang bug on p command --- examples/dhtd.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'examples/dhtd.hs') 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 -- cgit v1.2.3