adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Updated to support the latest version of the tls module.

Browse source
This commit is contained in:
Julien Dessaux 2011-11-03 18:49:43 +01:00
parent 7cefea4cbc
commit 50c8c0801e
4 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Hsbot/Core.hs
View file

@ -103,7 +103,7 @@ runHsbot die_msgs = do
-- TODO : kill plugin threads
return code
botReader :: BotEnv -> Handle -> Maybe TLSCtx -> Chan Message -> IO ()
botReader :: BotEnv -> Handle -> Maybe (TLSCtx Handle) -> Chan Message -> IO ()
botReader env _ (Just ctx) chan = forever $
fmap L.toString (recvData ctx) `catch` handleIOException env "botReader died" >>= handleIncomingStr chan
botReader env handle Nothing chan = forever $