From 168311f7e3c95ce635ede8f21d77a6f0da4ca4ea Mon Sep 17 00:00:00 2001
From: Jon Kristensen <info@jonkri.com>
Date: Mon, 4 Mar 2013 00:20:39 +0100
Subject: [PATCH] Do not Base64-encode log output

---
 source/Network/Xmpp/Stream.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/source/Network/Xmpp/Stream.hs b/source/Network/Xmpp/Stream.hs
index 0bb5098..f37694c 100644
--- a/source/Network/Xmpp/Stream.hs
+++ b/source/Network/Xmpp/Stream.hs
@@ -414,17 +414,15 @@ connectTcp host port hostname config = do
                   ((sourceHandle h $= logConduit) $= XP.parseBytes def)
                   (return ())
     let hand = StreamHandle { streamSend = \d -> do
-                                     let d64 = encode d
                                      debugM "Pontarius.Xmpp" $
-                                       "Sending TCP data: " ++ (BSC8.unpack d64)
+                                       "Sending TCP data: " ++ (BSC8.unpack d)
                                        ++ "."
                                      catchPush $ BS.hPut h d
                                 , streamReceive = \n -> do
                                      d <- BS.hGetSome h n
-                                     let d64 = encode d
                                      debugM "Pontarius.Xmpp" $
                                        "Received TCP data: " ++
-                                       (BSC8.unpack d64) ++ "."
+                                       (BSC8.unpack d) ++ "."
                                      return d
                                 , streamFlush = hFlush h
                                 , streamClose = hClose h