writeStanza :: WriteSemaphore -> Stanza -> IO (Either XmppFailure ())
writeStanza sem a = do
    let outData = renderElement $ nsHack (pickleElem xpStanza a)
    debugOut outData
    semWrite sem outData


-- | Send a stanza to the server without running plugins. (The stanza is sent as
-- is)
writeStanza :: WriteSemaphore -> Stanza -> IO (Either XmppFailure ())
writeStanza sem a = do
    let outData = renderElement $ nsHack (pickleElem xpStanza a)
    debugOut outData
    semWrite sem outData


-- | Send a stanza to the server without running plugins. (The stanza is sent as
-- is)
writeStanza sem a = do
    let outData = renderElement $ nsHack (pickleElem xpStanza a)
    debugOut outData
    semWrite sem outData


-- | Send a stanza to the server without running plugins. (The stanza is sent as
-- is)