From b879c3c1030f08091e6b796f838dddd7f0e9f4a8 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Wed, 1 Nov 2017 14:25:50 -0400
Subject: Prevent announce from wrongly halting client session.

---
 examples/dhtd.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'examples')

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
-- 
cgit v1.2.3