From c4822899ecde79d5cd3141eb43996ee8a6f3144f Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Tue, 5 Nov 2013 16:52:15 +0100
Subject: [PATCH] add messagS and presenceS stanza template

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

diff --git a/source/Network/Xmpp/Types.hs b/source/Network/Xmpp/Types.hs
index cee529b..638be84 100644
--- a/source/Network/Xmpp/Types.hs
+++ b/source/Network/Xmpp/Types.hs
@@ -163,6 +163,10 @@ message = Message { messageID      = Nothing
                   , messagePayload = []
                   }
 
+-- | Empty message stanza
+messageS :: Stanza
+messageS = MessageS message
+
 instance Default Message where
     def = message
 
@@ -232,6 +236,10 @@ presence = Presence { presenceID       = Nothing
                     , presencePayload  = []
                     }
 
+-- | Empty presence stanza
+presenceS :: Stanza
+presenceS = PresenceS presence
+
 instance Default Presence where
     def = presence