some new functions in ResourceDemo

2026-05-03 16:22:52 -06:00 · 2012-05-11 12:09:42 +00:00
parent 99c7579e85
commit 670b92fd16
3 changed files with 31 additions and 28 deletions
--- a/lib/src/demo/Compile.hs
+++ b/lib/src/demo/Compile.hs
@@ -29,7 +29,7 @@ main = do
    else return ()
  case opts of
    _ | elem "-make" opts || elem "-link" opts -> do
-      let comm = "gf -make -s " ++ unwords (map (++ ".pgf") modus)
+      let comm = "gf -make -s " ++ unwords (map (++ ".pgf") modus) ++" +RTS -K320M -RTS"
      putStrLn comm
      system comm
      return ()