From fca73a28e33a2b36192c3a8b5cc1f805a250e074 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Mon, 7 Nov 2011 23:03:53 +0100
Subject: Temporary fix for the parsing mistake when not using TLS

---
 Hsbot/Core.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Hsbot/Core.hs b/Hsbot/Core.hs
index d454c77..670afa0 100644
--- a/Hsbot/Core.hs
+++ b/Hsbot/Core.hs
@@ -136,7 +136,7 @@ botReader env handle mctx chan = do
             Nothing -> return ()
     readThis :: Handle -> Maybe (TLSCtx Handle) -> IO String
     readThis _ (Just ctx) = fmap L.toString (recvData ctx)
-    readThis h Nothing = hGetLine h
+    readThis h Nothing = hGetLine h >>= \s -> return $ s ++ "\n"
 
 botLoop :: Env IO ()
 botLoop = forever $ do
-- 
cgit v1.2.3