From a71aed81fd2abe142aa71ba75f59bb21a3afbd1e Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 25 May 2009 12:19:32 +0000 Subject: fixed pre expressions, parsing {} patterns, and the path in resource Make.hs --- next-lib/src/Make.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'next-lib/src/Make.hs') 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 -- cgit v1.2.3