add missing cases in unpickle functions

12 years ago · f7230b1aa8
2 changed files with 2 additions and 0 deletions
--- a/source/Network/Xmpp/Marshal.hs
+++ b/source/Network/Xmpp/Marshal.hs
@ -347,6 +347,7 @@ xpPresenceType = ("xpPresenceType", "") <?>
				@@ -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"
--- a/source/Network/Xmpp/Sasl/Common.hs
+++ b/source/Network/Xmpp/Sasl/Common.hs
@ -113,6 +113,7 @@ xpSaslError = ("xpSaslError", "") <?>
				@@ -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)