diff options
| author | Andrew Cady <d@jerkface.net> | 2018-06-23 20:03:27 -0400 |
|---|---|---|
| committer | Andrew Cady <d@jerkface.net> | 2018-06-23 20:03:27 -0400 |
| commit | c96c733c1ef60ab3bb164074b34a8c004de995cf (patch) | |
| tree | 78620f71e6ee9a913c61ddb7176e8ea7c0e0aa2d | |
| parent | 02cac92ab79526cdbec7313b34e30b2b2a13ef16 (diff) | |
oops, that line was important
| -rw-r--r-- | Announcer.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Announcer.hs b/Announcer.hs index 6d971ebf..370ef13a 100644 --- a/Announcer.hs +++ b/Announcer.hs | |||
| @@ -177,6 +177,7 @@ listener announcer = relisten | |||
| 177 | case cmd of | 177 | case cmd of |
| 178 | ScheduleAction (k, p, s) -> atomically $ modifyScheduled $ PSQ.insert' k s p | 178 | ScheduleAction (k, p, s) -> atomically $ modifyScheduled $ PSQ.insert' k s p |
| 179 | UnscheduleAction k -> atomically $ modifyScheduled $ PSQ.delete k | 179 | UnscheduleAction k -> atomically $ modifyScheduled $ PSQ.delete k |
| 180 | RunAction io -> io | ||
| 180 | RunActionSTM k (ScheduledItem f) -> do | 181 | RunActionSTM k (ScheduledItem f) -> do |
| 181 | now <- getPOSIXTime | 182 | now <- getPOSIXTime |
| 182 | join . atomically $ modifyScheduled (PSQ.delete k) >> f announcer k now | 183 | join . atomically $ modifyScheduled (PSQ.delete k) >> f announcer k now |