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