From 4d5504e2e8706b669710cb03d3d39758cf3dd83e Mon Sep 17 00:00:00 2001
From: John Millikin <jmillikin@gmail.com>
Date: Mon, 26 Apr 2010 04:25:15 +0000
Subject: [PATCH] Small cleanup to 'putTree'.

---
 Network/Protocol/XMPP/Monad.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Network/Protocol/XMPP/Monad.hs b/Network/Protocol/XMPP/Monad.hs
index f5f34c8..748b6f9 100644
--- a/Network/Protocol/XMPP/Monad.hs
+++ b/Network/Protocol/XMPP/Monad.hs
@@ -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
-- 
2.38.4