From faacff422eadbc644c579e1684a777db1280862a Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Sat, 14 Dec 2013 17:43:10 +0100
Subject: [PATCH] fix minor problems in Marshal

---
 source/Network/Xmpp/Marshal.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/source/Network/Xmpp/Marshal.hs b/source/Network/Xmpp/Marshal.hs
index 286d4e4..14110e9 100644
--- a/source/Network/Xmpp/Marshal.hs
+++ b/source/Network/Xmpp/Marshal.hs
@@ -1,6 +1,6 @@
 -- Picklers and unpicklers convert Haskell data to XML and XML to Haskell data,
--- respectively. By convensions, pickler/unpickler ("PU") function names start
--- out with "xp".
+-- respectively. By convention, pickler/unpickler ("PU") function names start
+-- with "xp".
 
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ViewPatterns #-}
@@ -137,7 +137,7 @@ xpStanzaError = ("xpStanzaError" , "") <?+> xpWrap
               xpErrorCondition
               (xpOption $ xpElem "{jabber:client}text"
                    (xpAttrImplied xmlLang xpLang)
-                   (xpContent xpId)
+                   (xpContent xpText)
               )
               (xpOption xpElemVerbatim)
          )