added sasl failure type

15 years ago · cc8ba02f7f
1 changed files with 4 additions and 0 deletions
--- a/Network/XMPP/Types.hs
+++ b/Network/XMPP/Types.hs
@ -301,6 +301,10 @@ data StanzaErrorCondition = BadRequest            | -- ^ Malformed XML
				@@ -301,6 +301,10 @@ data StanzaErrorCondition = BadRequest            | -- ^ Malformed XML
 -- =============================================================================


+data SASLFailure = SASLFailure { saslFailureCondition :: SASLError
+                               , saslFailureText :: Maybe String } -- TODO: XMLLang
+
+
 data SASLError = -- SASLAborted | -- Client aborted - should not happen
                 SASLAccountDisabled | -- ^ The account has been temporarily
                                       --   disabled