From 14f87adb8b3cfc019b7de7f082e3851a91b6a364 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Fri, 7 Aug 2009 00:19:14 +0200
Subject: Wrote the ping pong stuff

---
 Main.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 87f7588..f0db040 100644
--- a/Main.hs
+++ b/Main.hs
@@ -2,11 +2,14 @@ module Main where
 import System.Exit
 import System.Plugins
 
+ghcargs :: [String]
+ghcargs = ["-XPatternGuards"] 
+
 -- | Dynamic launching function
 main :: IO ()
 main = do
     putStrLn "hsbot starting..."
-    m <- makeAll "Hsbot.hs" [] -- ghcargs
+    m <- makeAll "Hsbot.hs" ghcargs
     (modul', imain) <- case m of
         MakeSuccess _ _ -> do
             ldstat <- load_ "Hsbot/Main.o" [".","Hsbot","Hsbot/Plugins"] "imain"
@@ -26,7 +29,7 @@ main = do
 -- | Dynamic rebooting function
 reboot :: Module -> a -> IO ()
 reboot modul' state = do
-    mkstat <- makeAll "Hsbot.hs" [] --ghcargs
+    mkstat <- makeAll "Hsbot.hs" ghcargs
     case mkstat of
         MakeSuccess _ _ -> do
             unloadAll modul'
-- 
cgit v1.2.3