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
 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