From c4a69d7c4a7c723466f666d5a8f6881def142bdb Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Sat, 13 Nov 2010 22:18:41 +0000
Subject: [PATCH] flags in Setup.hs to speed up library compilation

---
 Setup.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Setup.hs b/Setup.hs
index bd5e2a3ec..e28cd566f 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -176,6 +176,7 @@ rgl_dst_dir lbi = buildDir lbi </> "rgl"
 -- don't support all flags needed; they are used in tests
  
 langsCoding = [
+  (("amharic",  "Amh"),""),
   (("arabic",   "Ara"),""),
   (("bulgarian","Bul"),""),
   (("catalan",  "Cat"),""),
@@ -203,7 +204,7 @@ langsCoding = [
 langs = map fst langsCoding
 
 -- languagues for which to compile Lang
-langsLang = langs `except` ["Ara","Lat","Tur"]
+langsLang = langs `except` ["Amh","Ara","Lat","Hin","Tha","Tur"]
 
 -- languages for which to compile Try 
 langsAPI  = langsLang `except` ["Hin","Ina","Rus","Tha"]
@@ -299,7 +300,7 @@ unlexer abstr ls =
 -- | Runs the gf executable in compile mode with the given arguments.
 run_gfc :: PackageDescription -> LocalBuildInfo -> [String] -> IO ()
 run_gfc pkg lbi args = 
-    do let args' = ["-batch","-gf-lib-path="++rgl_src_dir,"+RTS","-K16M","-RTS"] ++ filter (not . null) args
+    do let args' = ["-batch","-src","-gf-lib-path="++rgl_src_dir,"+RTS","-K32M","-RTS"] ++ filter (not . null) args
            gf = default_gf pkg lbi
        putStrLn $ "Running: " ++ gf ++ " " ++ unwords (map showArg args')
        e <- rawSystem gf args'