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/Core.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Hsbot/Core.hs')

diff --git a/Hsbot/Core.hs b/Hsbot/Core.hs
index a8f29ec..e3ce3eb 100644
--- a/Hsbot/Core.hs
+++ b/Hsbot/Core.hs
@@ -4,9 +4,9 @@ module Hsbot.Core
     ) where
 
 import Control.Concurrent
-import Control.Concurrent.Chan
+import Control.Concurrent.Chan()
 import Control.Monad.State
-import Data.List
+import Data.List()
 import qualified Data.Map as M
 import Network
 import System.IO
@@ -36,8 +36,8 @@ connectServer server = do
 disconnectServer :: IrcBot ()
 disconnectServer = do
     bot <- get
-    liftIO $ killThread $ readerThreadId bot
     mapM_ unloadPlugin (M.keys $ botPlugins bot)
+    liftIO $ killThread $ readerThreadId bot
     liftIO $ hClose $ botHandle bot
     return ()
 
-- 
cgit v1.2.3