1 files changed, 2 insertions, 2 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 28bfc9b4..3f9685cf 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -988,8 +988,8 @@ clientSession s@Session{..} sock cnum h = do
        ("a", "") -> cmd0 $ do
                        now <- getPOSIXTime
                        rs <- atomically $ do
-                            as <- readTVar (scheduled $ announcer)
+                            as <- scheduleToList announcer
-                            forM (PSQ.toList as) $ \(k,ptm,item) -> do
+                            forM (as) $ \(k,ptm,item) -> do
                                kstr <- unpackAnnounceKey announcer k
                                return [ if ptm==0 then "now"
                                                   else show (ptm - now)

diff --git a/examples/dhtd.hs b/examples/dhtd.hs index 28bfc9b4..3f9685cf 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs
@@ -988,8 +988,8 @@ clientSession s@Session{..} sock cnum h = do
988	("a", "") -> cmd0 $ do	988	("a", "") -> cmd0 $ do
989	now <- getPOSIXTime	989	now <- getPOSIXTime
990	rs <- atomically $ do	990	rs <- atomically $ do
991	as <- readTVar (scheduled $ announcer)	991	as <- scheduleToList announcer
992	forM (PSQ.toList as) $ \(k,ptm,item) -> do	992	forM (as) $ \(k,ptm,item) -> do
993	kstr <- unpackAnnounceKey announcer k	993	kstr <- unpackAnnounceKey announcer k
994	return [ if ptm==0 then "now"	994	return [ if ptm==0 then "now"
995	else show (ptm - now)	995	else show (ptm - now)