Browse Source

re-add debug output to outbound stanzas

master
Philipp Balzarek 12 years ago
parent
commit
e56c425691
  1. 1
      source/Network/Xmpp/Concurrent/Basic.hs

1
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 :: WriteSemaphore -> Stanza -> IO (Either XmppFailure ())
writeStanza sem a = do writeStanza sem a = do
let outData = renderElement $ nsHack (pickleElem xpStanza a) let outData = renderElement $ nsHack (pickleElem xpStanza a)
debugOut outData
semWrite sem outData semWrite sem outData

Loading…
Cancel
Save