diff options
| author | Andrew Cady <d@jerkface.net> | 2018-06-18 07:12:13 -0400 |
|---|---|---|
| committer | Andrew Cady <d@jerkface.net> | 2018-06-18 07:12:13 -0400 |
| commit | 0e4cf7e622d2e5b2af6a3707e08f0fac45cd6bb4 (patch) | |
| tree | 9ea90cb6466f242f16ee6cc73c9b17a4a1ff7726 /examples/dhtd.hs | |
| parent | 19364a287f7083fc60beed2d6eae3dd71d27e737 (diff) | |
avoid exposing PSQ
Diffstat (limited to 'examples/dhtd.hs')
| -rw-r--r-- | examples/dhtd.hs | 4 |
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 | |||
| 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) |