diff options
Diffstat (limited to 'Announcer.hs')
| -rw-r--r-- | Announcer.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Announcer.hs b/Announcer.hs index 41c1c2a6..89dc5c3b 100644 --- a/Announcer.hs +++ b/Announcer.hs | |||
| @@ -46,11 +46,11 @@ newtype AnnounceKey = AnnounceKey ByteString | |||
| 46 | instance Show AnnounceKey where | 46 | instance Show AnnounceKey where |
| 47 | show (AnnounceKey bs) = "AnnounceKey " ++ show (Char8.unpack bs) | 47 | show (AnnounceKey bs) = "AnnounceKey " ++ show (Char8.unpack bs) |
| 48 | 48 | ||
| 49 | packAnnounceKey :: Announcer -> String -> STM AnnounceKey | 49 | packAnnounceKey :: Announcer -> String -> AnnounceKey |
| 50 | packAnnounceKey _ = return . AnnounceKey . Char8.pack | 50 | packAnnounceKey _ = AnnounceKey . Char8.pack |
| 51 | 51 | ||
| 52 | unpackAnnounceKey :: Announcer -> AnnounceKey -> STM String | 52 | unpackAnnounceKey :: Announcer -> AnnounceKey -> String |
| 53 | unpackAnnounceKey _ (AnnounceKey bs) = return $ Char8.unpack bs | 53 | unpackAnnounceKey _ (AnnounceKey bs) = Char8.unpack bs |
| 54 | 54 | ||
| 55 | -- | Actions that can be scheduled to occur at some particular time in the | 55 | -- | Actions that can be scheduled to occur at some particular time in the |
| 56 | -- future. Since periodic event handlers are responsible for re-scheduling | 56 | -- future. Since periodic event handlers are responsible for re-scheduling |