From cc8ba02f7f5d3b6721b77085d0d3ce29bf853780 Mon Sep 17 00:00:00 2001
From: Jon Kristensen <info@jonkristensen.com>
Date: Thu, 21 Jul 2011 23:22:32 +0200
Subject: [PATCH] added sasl failure type

---
 Network/XMPP/Types.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Network/XMPP/Types.hs b/Network/XMPP/Types.hs
index 6b0d34c..2143479 100644
--- a/Network/XMPP/Types.hs
+++ b/Network/XMPP/Types.hs
@@ -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