re-add debug output to outbound stanzas

12 years ago · e56c425691
1 changed files with 1 additions and 0 deletions
--- a/source/Network/Xmpp/Concurrent/Basic.hs
+++ b/source/Network/Xmpp/Concurrent/Basic.hs
@ -19,6 +19,7 @@ semWrite sem bs = Ex.bracket (atomically $ takeTMVar sem)
				@@ -19,6 +19,7 @@ semWrite sem bs = Ex.bracket (atomically $ takeTMVar sem)
 writeStanza :: WriteSemaphore -> Stanza -> IO (Either XmppFailure ())
 writeStanza sem a = do
    let outData = renderElement $ nsHack (pickleElem xpStanza a)
+    debugOut outData
    semWrite sem outData