add missing cases in unpickle functions

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"

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)