fix xpPresence

13 years ago · a03df77a04
1 changed files with 1 additions and 1 deletions
--- a/source/Network/Xmpp/Marshal.hs
+++ b/source/Network/Xmpp/Marshal.hs
@ -65,7 +65,7 @@ xpPresence = ("xpPresence" , "") <?+> xpWrap
				@@ -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)
    )