diff options
| author | Julien Dessaux | 2011-05-05 00:36:05 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2011-05-05 00:36:05 +0200 |
| commit | 4522289d55dd66b6e314f18858b0a59df101300c (patch) | |
| tree | 7ed5816ba38d26822cf541ffb7565ceb12051fd5 /Hsbot/Plugin.hs | |
| parent | Added the Duck module (PAN!). (diff) | |
| download | hsbot-4522289d55dd66b6e314f18858b0a59df101300c.tar.gz hsbot-4522289d55dd66b6e314f18858b0a59df101300c.tar.bz2 hsbot-4522289d55dd66b6e314f18858b0a59df101300c.zip | |
Code cleaning.
Diffstat (limited to 'Hsbot/Plugin.hs')
| -rw-r--r-- | Hsbot/Plugin.hs | 2 |
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 |