summaryrefslogtreecommitdiff
path: root/Hsbot
diff options
context:
space:
mode:
Diffstat (limited to 'Hsbot')
-rw-r--r--Hsbot/Core.hs8
-rw-r--r--Hsbot/Plugin.hs2
2 files changed, 5 insertions, 5 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