From 13b27686db1f0938c55260bb516f93181a7f230e Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Sat, 23 Mar 2013 18:34:14 +0100 Subject: [PATCH] clear warning in Network.Xmpp.Tls --- source/Network/Xmpp/Tls.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/source/Network/Xmpp/Tls.hs b/source/Network/Xmpp/Tls.hs index 3027b85..f9f1745 100644 --- a/source/Network/Xmpp/Tls.hs +++ b/source/Network/Xmpp/Tls.hs @@ -30,12 +30,12 @@ mkBackend con = Backend { backendSend = \bs -> void (streamSend con bs) bufferReceive _ 0 = return BS.empty bufferReceive recv n = BS.concat `liftM` (go n) where - go n = do - bs <- recv n + go m = do + bs <- recv m case BS.length bs of 0 -> return [] - l -> if l < n - then (bs :) `liftM` go (n - l) + l -> if l < m + then (bs :) `liftM` go (m - l) else return [bs] starttlsE :: Element