avoid exposing PSQ

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)
-                            forM (PSQ.toList as) $ \(k,ptm,item) -> do
+                            as <- scheduleToList announcer
+                            forM (as) $ \(k,ptm,item) -> do
                                 kstr <- unpackAnnounceKey announcer k
                                 return [ if ptm==0 then "now"
                                                    else show (ptm - now)