diff options
| author | joe <joe@jerkface.net> | 2018-05-30 23:13:18 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2018-05-30 23:13:18 -0400 |
| commit | 7534881d7b6a211a27300426903cff1abc7a50ba (patch) | |
| tree | bc047921a62165bab80da5615974ebaba233d414 /Announcer.hs | |
| parent | 40c5a8aec30538cad0e43027aa6beec2ace8d0fc (diff) | |
Stop announcing toxid when xmpp clients disconnect.
Diffstat (limited to 'Announcer.hs')
| -rw-r--r-- | Announcer.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Announcer.hs b/Announcer.hs index 72d70a1e..c66d26b4 100644 --- a/Announcer.hs +++ b/Announcer.hs | |||
| @@ -40,6 +40,9 @@ import qualified GHC.Generics as Generics | |||
| 40 | newtype AnnounceKey = AnnounceKey ByteString | 40 | newtype AnnounceKey = AnnounceKey ByteString |
| 41 | deriving (Hashable,Ord,Eq) | 41 | deriving (Hashable,Ord,Eq) |
| 42 | 42 | ||
| 43 | instance Show AnnounceKey where | ||
| 44 | show (AnnounceKey bs) = "AnnounceKey " ++ show (Char8.unpack bs) | ||
| 45 | |||
| 43 | packAnnounceKey :: Announcer -> String -> STM AnnounceKey | 46 | packAnnounceKey :: Announcer -> String -> STM AnnounceKey |
| 44 | packAnnounceKey _ = return . AnnounceKey . Char8.pack | 47 | packAnnounceKey _ = return . AnnounceKey . Char8.pack |
| 45 | 48 | ||