diff options
| author | Julien Dessaux | 2011-11-03 18:49:43 +0100 |
|---|---|---|
| committer | Julien Dessaux | 2011-11-03 18:50:44 +0100 |
| commit | 50c8c0801ebc3707dfd86c2bc31a6768110d1821 (patch) | |
| tree | 387104c5f2f41f484c7f5a425435b6589a94584f /Hsbot/Core.hs | |
| parent | Other cosmetics + version upgrade. (diff) | |
| download | hsbot-50c8c0801ebc3707dfd86c2bc31a6768110d1821.tar.gz hsbot-50c8c0801ebc3707dfd86c2bc31a6768110d1821.tar.bz2 hsbot-50c8c0801ebc3707dfd86c2bc31a6768110d1821.zip | |
Updated to support the latest version of the tls module.
Diffstat (limited to 'Hsbot/Core.hs')
| -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 4dc1e92..7f97918 100644 --- a/Hsbot/Core.hs +++ b/Hsbot/Core.hs @@ -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 $ |