From 3fd8859e2df289737f5cb15ef3cadd11bce6be69 Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Sun, 12 May 2013 14:57:25 +0200 Subject: [PATCH] fix debug messages in Network.Xmpp.TLS --- source/Network/Xmpp/Tls.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/source/Network/Xmpp/Tls.hs b/source/Network/Xmpp/Tls.hs index 75ea5dc..f3b8a4e 100644 --- a/source/Network/Xmpp/Tls.hs +++ b/source/Network/Xmpp/Tls.hs @@ -122,7 +122,7 @@ tlsinit params backend = do handshake con let src = forever $ do dt <- liftIO $ recvData con - liftIO $ debugM "Pontarius.Xmpp.TLS" ("in :" ++ BSC8.unpack dt) + liftIO $ debugM "Pontarius.Xmpp.TLS" ("In :" ++ BSC8.unpack dt) yield dt let snk = do d <- await @@ -134,9 +134,8 @@ tlsinit params backend = do readWithBuffer <- liftIO $ mkReadBuffer (recvData con) return ( src , snk - , \s -> do - liftIO $ debugM "Pontarius.Xmpp.TLS" ("out :" ++ BSC8.unpack s) - sendData con $ BL.fromChunks [s] + -- Note: sendData already sends the data to the debug output + , \s -> sendData con $ BL.fromChunks [s] , liftIO . readWithBuffer , con )