diff options
| author | aarne <aarne@chalmers.se> | 2009-05-25 12:19:32 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-05-25 12:19:32 +0000 |
| commit | a71aed81fd2abe142aa71ba75f59bb21a3afbd1e (patch) | |
| tree | e5e8ed34cea3f395faad5dd41396035ec1e27070 /next-lib/src/Make.hs | |
| parent | 3efb7a671bb9f40ac0b442aa94e1714ddd8c9c53 (diff) | |
fixed pre expressions, parsing {} patterns, and the path in resource Make.hs
Diffstat (limited to 'next-lib/src/Make.hs')
| -rw-r--r-- | next-lib/src/Make.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/next-lib/src/Make.hs b/next-lib/src/Make.hs index 63f50afc2..e3af0110e 100644 --- a/next-lib/src/Make.hs +++ b/next-lib/src/Make.hs @@ -198,7 +198,8 @@ unlexer abstr ls = -- | Runs the gf executable in compile mode with the given arguments. run_gfc :: [String] -> IO () run_gfc args = - do let args' = ["-batch","-gf-lib-path=."] ++ filter (not . null) args ++ ["+RTS"] ++ rts_flags ++ ["-RTS"] + do let args' = ["-batch"] ++ filter (not . null) args ++ ["+RTS"] ++ rts_flags ++ ["-RTS"] +--- do let args' = ["-batch","-gf-lib-path=."] ++ filter (not . null) args ++ ["+RTS"] ++ rts_flags ++ ["-RTS"] --- why path? AR putStrLn $ "Running: " ++ default_gf ++ " " ++ unwords (map showArg args') e <- rawSystem default_gf args' case e of |