From a03df77a0453c638ca4253c7621b3fa635160b8d Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Sun, 19 May 2013 13:23:33 +0200
Subject: [PATCH] fix xpPresence

---
 source/Network/Xmpp/Marshal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/Network/Xmpp/Marshal.hs b/source/Network/Xmpp/Marshal.hs
index dad82d4..8bfe098 100644
--- a/source/Network/Xmpp/Marshal.hs
+++ b/source/Network/Xmpp/Marshal.hs
@@ -65,7 +65,7 @@ xpPresence = ("xpPresence" , "") <?+> xpWrap
               (xpAttrImplied "from" xpPrim)
               (xpAttrImplied "to"   xpPrim)
               xpLangTag
-              (xpAttr "type" $ xpWithDefault Available xpPrim)
+              (xpDefault Available $ xpAttr "type" xpPrim)
          )
          (xpAll xpElemVerbatim)
     )