diff options
| -rw-r--r-- | Hsbot/Core.hs | 8 | ||||
| -rw-r--r-- | Hsbot/Plugin.hs | 2 | ||||
| -rw-r--r-- | TODO | 10 |
3 files changed, 14 insertions, 6 deletions
diff --git a/Hsbot/Core.hs b/Hsbot/Core.hs index 4e79c76..9c72771 100644 --- a/Hsbot/Core.hs +++ b/Hsbot/Core.hs @@ -75,10 +75,10 @@ runHsbot = do -- Then we join channels mapM_ (liftIO . sendStr connhdl tlsCtx . IRC.encode . IRC.joinChan) channels -- Finally we set the new bot state - asks envBotState >>= liftIO . (flip putMVar BotState { botPlugins = M.empty - , botHooks = [] - , botChannels = channels - , botNickname = nickname }) + asks envBotState >>= liftIO . flip putMVar BotState { botPlugins = M.empty + , botHooks = [] + , botChannels = channels + , botNickname = nickname } -- | Run the bot itself trueRunHsbot :: Env IO BotStatus trueRunHsbot = do diff --git a/Hsbot/Plugin.hs b/Hsbot/Plugin.hs index 6f14413..ebcff8d 100644 --- a/Hsbot/Plugin.hs +++ b/Hsbot/Plugin.hs @@ -13,7 +13,7 @@ import Hsbot.Types loadPlugin :: PluginId -> Env IO () loadPlugin pId = do botMVar <- asks envBotState - (liftIO $ takeMVar botMVar) >>= execStateT effectivelyLoadPlugin >>= liftIO . putMVar botMVar + liftIO (takeMVar botMVar) >>= execStateT effectivelyLoadPlugin >>= liftIO . putMVar botMVar where effectivelyLoadPlugin :: Bot (Env IO) () effectivelyLoadPlugin = do @@ -1,8 +1,16 @@ +* owner rights +* better hooks? + + + + + + + :julien!~julien@ogu21.corp PRIVMSG #shbot :@quote graou snif * Improve configuration file errors display * fork process in background -* implement logging capabilities * add a function to answer by /msg to somebody * write the vote system for the quote module |