From 5db6180fd42469ee9a72d431a06ad61ac2c343d8 Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Sun, 7 Sep 2014 12:54:05 +0200
Subject: [PATCH] add MessageError default definitions

---
 source/Network/Xmpp/Types.hs | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/source/Network/Xmpp/Types.hs b/source/Network/Xmpp/Types.hs
index e066ba3..81772ac 100644
--- a/source/Network/Xmpp/Types.hs
+++ b/source/Network/Xmpp/Types.hs
@@ -30,6 +30,7 @@ module Network.Xmpp.Types
     , Message(..)
     , message
     , MessageError(..)
+    , messageError
     , MessageType(..)
     , Presence(..)
     , presence
@@ -40,6 +41,7 @@ module Network.Xmpp.Types
     , StreamFeatures(..)
     , Stanza(..)
     , messageS
+    , messageErrorS
     , presenceS
     , StanzaError(..)
     , StanzaErrorCondition(..)
@@ -236,6 +238,27 @@ data MessageError = MessageError { messageErrorID          :: !(Maybe Text)
                                  , messageErrorAttributes  :: ![ExtendedAttribute]
                                  } deriving (Eq, Show)
 
+messageError :: MessageError
+messageError = MessageError { messageErrorID          = Nothing
+                            , messageErrorFrom        = Nothing
+                            , messageErrorTo          = Nothing
+                            , messageErrorLangTag     = Nothing
+                            , messageErrorStanzaError =
+                                StanzaError { stanzaErrorType = Cancel
+                                            , stanzaErrorCondition =
+                                                  ServiceUnavailable
+                                            , stanzaErrorText = Nothing
+                                            , stanzaErrorApplicationSpecificCondition = Nothing
+                                            }
+                            , messageErrorPayload     = []
+                            , messageErrorAttributes  = []
+                            }
+
+instance Default MessageError where
+    def = messageError
+
+messageErrorS :: Stanza
+messageErrorS = MessageErrorS def
 
 -- | The type of a Message being sent
 -- (<http://xmpp.org/rfcs/rfc6121.html#message-syntax-type>)