From f7230b1aa8286fffed7fa7663f14492470208d6f Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Sun, 11 Aug 2013 16:08:31 +0200 Subject: [PATCH] add missing cases in unpickle functions --- 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)