diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-05-27 15:00:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-05-27 15:00:07 -0400 |
| commit | 951ca752077065110ecf714348e5fb0489b57130 (patch) | |
| tree | 0896fd419f5c8c943d270f3d93326b270680278f /Assistant/Threads/XMPPClient.hs | |
| parent | 9ba81f16426bbf443e0904545cdca93c5d8cfb6f (diff) | |
avoid debug logging unknown xmpp messages, which may contain sensative information
Diffstat (limited to 'Assistant/Threads/XMPPClient.hs')
| -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 |