summaryrefslogtreecommitdiff
path: root/Hsbot/Plugin
diff options
context:
space:
mode:
authorJulien Dessaux2011-05-05 00:36:05 +0200
committerJulien Dessaux2011-05-05 00:36:05 +0200
commit4522289d55dd66b6e314f18858b0a59df101300c (patch)
tree7ed5816ba38d26822cf541ffb7565ceb12051fd5 /Hsbot/Plugin
parentAdded the Duck module (PAN!). (diff)
downloadhsbot-4522289d55dd66b6e314f18858b0a59df101300c.tar.gz
hsbot-4522289d55dd66b6e314f18858b0a59df101300c.tar.bz2
hsbot-4522289d55dd66b6e314f18858b0a59df101300c.zip
Code cleaning.
Diffstat (limited to '')
-rw-r--r--Hsbot/Plugin.hs2
1 files changed, 1 insertions, 1 deletions
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