diff options
Diffstat (limited to '')
| -rw-r--r-- | Hsbot/Core.hs | 2 | ||||
| -rw-r--r-- | Hsbot/Types.hs | 2 | ||||
| -rw-r--r-- | Hsbot/Utils.hs | 2 |
3 files changed, 3 insertions, 3 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 $ diff --git a/Hsbot/Types.hs b/Hsbot/Types.hs index 7ca9ee0..b0110c2 100644 --- a/Hsbot/Types.hs +++ b/Hsbot/Types.hs @@ -34,7 +34,7 @@ data BotEnv = BotEnv , envThreadIdsMv :: MVar [ThreadId] , envConfig :: Config , envTLS :: Maybe TLSParams - , envTLSCtx :: Maybe TLSCtx + , envTLSCtx :: Maybe (TLSCtx Handle) } -- The bot monad 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) |