~singpolyma/network-protocol-xmpp

4d5504e2e8706b669710cb03d3d39758cf3dd83e — John Millikin 12 years ago 3eeaaad
Small cleanup to 'putTree'.
1 files changed, 1 insertions(+), 2 deletions(-)

M Network/Protocol/XMPP/Monad.hs
M Network/Protocol/XMPP/Monad.hs => Network/Protocol/XMPP/Monad.hs +1 -2
@@ 128,8 128,7 @@ putTree t = do
	[text] <- liftIO $ A.runX (A.constA root >>> A.writeDocumentToString [
		(A.a_no_xml_pi, "1")
		])
	h <- getHandle
	liftTLS $ H.hPutBytes h $ B.pack text
	putBytes $ B.pack text

putStanza :: S.Stanza a => a -> XMPP ()
putStanza = putTree . S.stanzaToTree