diff options
| author | Julien Dessaux | 2011-11-07 23:03:53 +0100 |
|---|---|---|
| committer | Julien Dessaux | 2011-11-07 23:03:53 +0100 |
| commit | fca73a28e33a2b36192c3a8b5cc1f805a250e074 (patch) | |
| tree | 60b0e368ea2025c1e33ec6d709e762e2454fa5cc | |
| parent | Fixed the fix to properly handle incomplete messages when there is nothing mo... (diff) | |
| download | hsbot-fca73a28e33a2b36192c3a8b5cc1f805a250e074.tar.gz hsbot-fca73a28e33a2b36192c3a8b5cc1f805a250e074.tar.bz2 hsbot-fca73a28e33a2b36192c3a8b5cc1f805a250e074.zip | |
Temporary fix for the parsing mistake when not using TLS
| -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 |