From 2f270f8bdf0e5f226e9e54881ec71a2bde465b71 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Fri, 7 Aug 2009 00:10:45 +0200
Subject: Refactored some minor stuff

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

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 0a72e62..87f7588 100644
--- a/Main.hs
+++ b/Main.hs
@@ -25,16 +25,16 @@ main = do
 
 -- | Dynamic rebooting function
 reboot :: Module -> a -> IO ()
-reboot modul' st = do
+reboot modul' state = do
     mkstat <- makeAll "Hsbot.hs" [] --ghcargs
     case mkstat of
         MakeSuccess _ _ -> do
             unloadAll modul'
             ldstat <- load_ "Hsbot/Main.o" [".","Hsbot","Hsbot/Plugins"] "imain'"
             case ldstat of
-                LoadSuccess v imain' -> do
+                LoadSuccess modul'' imain' -> do
                     putStrLn "REBOOT: Successful recompilation & reloading, rebooting..."
-                    imain' v reboot st
+                    imain' modul'' reboot state
                 LoadFailure e -> fatality e
         MakeFailure e -> fatality e
     where
-- 
cgit v1.2.3