adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Temporary fix for the parsing mistake when not using TLS

Browse source
This commit is contained in:
Julien Dessaux 2011-11-07 23:03:53 +01:00
parent 899f76718f
commit fca73a28e3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Hsbot/Core.hs
View file

@ -136,7 +136,7 @@ botReader env handle mctx chan = do
Nothing -> return () Nothing -> return ()
readThis :: Handle -> Maybe (TLSCtx Handle) -> IO String readThis :: Handle -> Maybe (TLSCtx Handle) -> IO String
readThis _ (Just ctx) = fmap L.toString (recvData ctx) 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 :: Env IO ()
botLoop = forever $ do botLoop = forever $ do