From 7534881d7b6a211a27300426903cff1abc7a50ba Mon Sep 17 00:00:00 2001 From: joe Date: Wed, 30 May 2018 23:13:18 -0400 Subject: Stop announcing toxid when xmpp clients disconnect. --- Announcer.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Announcer.hs') 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 newtype AnnounceKey = AnnounceKey ByteString deriving (Hashable,Ord,Eq) +instance Show AnnounceKey where + show (AnnounceKey bs) = "AnnounceKey " ++ show (Char8.unpack bs) + packAnnounceKey :: Announcer -> String -> STM AnnounceKey packAnnounceKey _ = return . AnnounceKey . Char8.pack -- cgit v1.2.3