Tweaks to announce scheduler.

1 files changed, 2 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 58a69c6a..d6da567a 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -988,7 +988,8 @@ clientSession s@Session{..} sock cnum h = do
                             as <- readTVar (scheduled $ announcer)
                             forM (PSQ.toList as) $ \(k,ptm,item) -> do
                                 kstr <- unpackAnnounceKey announcer k
-                                return [ show (ptm - now)
+                                return [ if ptm==0 then "now"
+                                                   else show (ptm - now)
                                        , show (itemStatusNum item)
                                        , kstr
                                        ]