diff options
| -rw-r--r-- | Hsbot/Core.hs | 2 |
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 |