diff options
| -rw-r--r-- | Assistant/Threads/XMPPClient.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Assistant/Threads/XMPPClient.hs b/Assistant/Threads/XMPPClient.hs index c8c115e3a..a90ffb820 100644 --- a/Assistant/Threads/XMPPClient.hs +++ b/Assistant/Threads/XMPPClient.hs @@ -171,7 +171,9 @@ logXMPPEvent :: XMPPEvent -> String logXMPPEvent (GotNetMessage m) = logNetMessage m logXMPPEvent (PresenceMessage p) = logPresence p logXMPPEvent (Ignorable (ReceivedPresence p)) = "Ignorable " ++ logPresence p -logXMPPEvent v = show v +logXMPPEvent (Ignorable _) = "Ignorable message" +logXMPPEvent (Unknown _) = "Unknown message" +logXMPPEvent (ProtocolError _) = "Protocol error message" logPresence :: Presence -> String logPresence (p@Presence { presenceFrom = Just jid }) = unwords |