Prevent announce from wrongly halting client session.

1 files changed, 2 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index f54c5249..e5539036 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -605,7 +605,7 @@ clientSession s@Session{..} sock cnum h = do
                             doit :: Char -> Announcer -> AnnounceKey -> AnnounceMethod r -> r -> IO ()
                             doit '+' = schedule
                             doit '-' = cancel
-                            doit _   = \_ _ _ _ -> hPutClient h "Starting(+) or canceling(-)?"
+                            doit _   = \_ _ _ _ -> hPutClientChunk h "Starting(+) or canceling(-)?"
                             matchingResult ::
                                 ( Typeable stok
                                 , Typeable ptok
@@ -668,6 +668,7 @@ clientSession s@Session{..} sock cnum h = do
                                                             (qresultAddr dta)
                                                             announceInterval)
                                             dta
+                                    hPutClient h "ok."
                         let aerror = unlines
                                 [ "announce error."
                                 , "method = " ++ method