From 4522289d55dd66b6e314f18858b0a59df101300c Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Thu, 5 May 2011 00:36:05 +0200
Subject: Code cleaning.

---
 Hsbot/Plugin.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Hsbot/Plugin.hs')

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
-- 
cgit v1.2.3