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/Utils.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/Utils.hs')
-rw-r--r-- | Hsbot/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Hsbot/Utils.hs b/Hsbot/Utils.hs index 5d5c424..d29345c 100644 --- a/Hsbot/Utils.hs +++ b/Hsbot/Utils.hs @@ -48,7 +48,7 @@ hasAccess (Just mask) right = | otherwise = False -- Helpers -sendStr :: BotEnv -> Handle -> Maybe TLSCtx -> String -> IO () +sendStr :: BotEnv -> Handle -> Maybe (TLSCtx Handle) -> String -> IO () sendStr env _ (Just ctx) msg = sendData ctx (L.fromString $ msg ++ "\r\n") `catch` handleIOException env ("sendStr " ++ msg) sendStr env handle Nothing msg = hPutStrLn handle (msg ++ "\r\n") `catch` handleIOException env ("sendStr " ++ msg) |