From d4103e3e18a36523735af38eace98a64e1068e6e Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sun, 23 Aug 2009 23:07:43 +0200
Subject: Rebooting now works great, thanks to the communication channel
 preservation.

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

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index f0db040..617468a 100644
--- a/Main.hs
+++ b/Main.hs
@@ -1,4 +1,5 @@
 module Main where
+
 import System.Exit
 import System.Plugins
 
@@ -27,8 +28,8 @@ main = do
     imain modul' reboot
 
 -- | Dynamic rebooting function
-reboot :: Module -> a -> IO ()
-reboot modul' state = do
+reboot :: Module -> a -> b -> IO ()
+reboot modul' state chan = do
     mkstat <- makeAll "Hsbot.hs" ghcargs
     case mkstat of
         MakeSuccess _ _ -> do
@@ -37,7 +38,7 @@ reboot modul' state = do
             case ldstat of
                 LoadSuccess modul'' imain' -> do
                     putStrLn "REBOOT: Successful recompilation & reloading, rebooting..."
-                    imain' modul'' reboot state
+                    imain' modul'' reboot state chan
                 LoadFailure e -> fatality e
         MakeFailure e -> fatality e
     where
-- 
cgit v1.2.3