summaryrefslogtreecommitdiff
path: root/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs6
1 files changed, 3 insertions, 3 deletions
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