From d859e087be2bfd5ae8e7d3b61f63a2e80c01ce66 Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Tue, 2 Jul 2013 13:58:55 +0200 Subject: [PATCH] clear warnings --- source/Network/Xmpp/Marshal.hs | 1 + source/Network/Xmpp/Sasl/Common.hs | 1 + 2 files changed, 2 insertions(+) diff --git a/source/Network/Xmpp/Marshal.hs b/source/Network/Xmpp/Marshal.hs index c21c975..9d1d4e3 100644 --- a/source/Network/Xmpp/Marshal.hs +++ b/source/Network/Xmpp/Marshal.hs @@ -347,6 +347,7 @@ xpPresenceType = ("xpPresenceType", "") presenceTypeFromText "unsubscribe" = Just Unsubscribe presenceTypeFromText "unsubscribed" = Just Unsubscribed presenceTypeFromText "probe" = Just Probe + presenceTypeFromText _ = Nothing presenceTypeToText Available = "available" presenceTypeToText Unavailable = "unavailable" presenceTypeToText Subscribe = "subscribe" diff --git a/source/Network/Xmpp/Sasl/Common.hs b/source/Network/Xmpp/Sasl/Common.hs index 0687bd1..bf23b3b 100644 --- a/source/Network/Xmpp/Sasl/Common.hs +++ b/source/Network/Xmpp/Sasl/Common.hs @@ -113,6 +113,7 @@ xpSaslError = ("xpSaslError", "") saslErrorFromText "mechanism-too-weak" = Just SaslMechanismTooWeak saslErrorFromText "not-authorized" = Just SaslNotAuthorized saslErrorFromText "temporary-auth-failure" = Just SaslTemporaryAuthFailure + saslErrorFromText _ = Nothing -- Challenge element pickler. xpChallenge :: PU [Node] (Maybe Text.Text)