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.

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

(limited to 'Hsbot/Main.hs')

diff --git a/Hsbot/Main.hs b/Hsbot/Main.hs
index 592fefa..5bf03bf 100644
--- a/Hsbot/Main.hs
+++ b/Hsbot/Main.hs
@@ -5,7 +5,7 @@ module Hsbot.Main
 import Control.Exception
 import Control.Monad.State
 import Prelude hiding (catch)
-import System.IO
+import System.IO()
 
 import Config
 import Hsbot.Core
@@ -17,8 +17,8 @@ import Hsbot.Types
 imain :: IO ()
 imain = do
     bot <- connectServer $ ircServer config
-    (execStateT run bot) `catch` (\(ex :: IOException) -> return bot)
-    evalStateT disconnectServer bot
+    bot' <- (execStateT run bot) `catch` (\(_ :: IOException) -> return bot)
+    evalStateT disconnectServer bot'
 
 -- | The Bot monad main function
 run :: IrcBot ()
-- 
cgit v1.2.3