From 8211794a30e72e0430338d65f77ac10200b21f27 Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Sun, 12 May 2013 14:30:59 +0200
Subject: [PATCH] Use the name space hack in the writer thread

---
 source/Network/Xmpp/Concurrent.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/source/Network/Xmpp/Concurrent.hs b/source/Network/Xmpp/Concurrent.hs
index c91c1c1..24ced41 100644
--- a/source/Network/Xmpp/Concurrent.hs
+++ b/source/Network/Xmpp/Concurrent.hs
@@ -147,7 +147,9 @@ writeWorker stCh writeR = forever $ do
     (write, next) <- atomically $ (,) <$>
         takeTMVar writeR <*>
         readTChan stCh
-    r <- write $ renderElement (pickleElem xpStanza next)
+    let outData = renderElement $ nsHack (pickleElem xpStanza next)
+    debugOut outData
+    r <- write outData
     atomically $ putTMVar writeR write
     unless r $ do
         atomically $ unGetTChan stCh next -- If the writing failed, the