From 4c76d3d40bbfea365283c13256b3e7cf2d2deb5e Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Wed, 21 Apr 2010 20:57:22 +0200
Subject: Fixed several stuff.

---
 Plugins/Core.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Plugins/Core.hs')

diff --git a/Plugins/Core.hs b/Plugins/Core.hs
index b05e9aa..123d2e6 100644
--- a/Plugins/Core.hs
+++ b/Plugins/Core.hs
@@ -2,7 +2,7 @@ module Plugins.Core
     ( mainCore
     ) where
 
-import Control.Concurrent.Chan
+import Control.Concurrent.Chan(Chan)
 import Control.Exception
 import Control.Monad.State
 import Prelude hiding (catch)
@@ -16,8 +16,8 @@ mainCore :: Chan BotMsg -> Chan BotMsg -> IO ()
 mainCore serverChan chan = do
     let plugin = PluginInstance "Core" serverChan chan
     evalStateT (mapM_ sendRegisterCommand ["list", "load", "reload", "unload"]) plugin
-    (execStateT run plugin) `catch` (\(ex :: AsyncException) -> return plugin)
-    evalStateT (mapM_ sendUnregisterCommand ["list", "load", "reload", "unload"]) plugin
+    plugin' <- (execStateT run plugin) `catch` (\(_ :: AsyncException) -> return plugin)
+    evalStateT (mapM_ sendUnregisterCommand ["list", "load", "reload", "unload"]) plugin'
 
 -- | The IrcPlugin monad main function
 run :: IrcPlugin ()
-- 
cgit v1.2.3