summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Hsbot/Core.hs2
1 files changed, 1 insertions, 1 deletions
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