summaryrefslogtreecommitdiff
path: root/Main.hs
diff options
context:
space:
mode:
authorJulien Dessaux2009-08-07 00:19:14 +0200
committerJulien Dessaux2009-08-07 00:19:14 +0200
commit14f87adb8b3cfc019b7de7f082e3851a91b6a364 (patch)
tree6860704ec357ebcba4518cfd354a880907073800 /Main.hs
parentRefactored some minor stuff (diff)
downloadhsbot-14f87adb8b3cfc019b7de7f082e3851a91b6a364.tar.gz
hsbot-14f87adb8b3cfc019b7de7f082e3851a91b6a364.tar.bz2
hsbot-14f87adb8b3cfc019b7de7f082e3851a91b6a364.zip
Wrote the ping pong stuff
Diffstat (limited to '')
-rw-r--r--Main.hs7
1 files changed, 5 insertions, 2 deletions
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'