From e56c425691401df898d6f98c83ce7d0feb5cae46 Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Wed, 5 Mar 2014 16:17:22 +0100 Subject: [PATCH] re-add debug output to outbound stanzas --- source/Network/Xmpp/Concurrent/Basic.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/source/Network/Xmpp/Concurrent/Basic.hs b/source/Network/Xmpp/Concurrent/Basic.hs index b9b3c5b..4f25fbe 100644 --- 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) writeStanza :: WriteSemaphore -> Stanza -> IO (Either XmppFailure ()) writeStanza sem a = do let outData = renderElement $ nsHack (pickleElem xpStanza a) + debugOut outData semWrite sem outData