From 375754e1064f7c64e3806fb802675c80aff1023a Mon Sep 17 00:00:00 2001 From: krasimir Date: Tue, 22 Apr 2008 12:12:29 +0000 Subject: move gfLibraryPath and gfGrammarPath to UseIO. Now they are accessible and there is only one place to change if you want to use different envVar --- src/GF/Devel/Compile/Compile.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'src/GF/Devel/Compile/Compile.hs') diff --git a/src/GF/Devel/Compile/Compile.hs b/src/GF/Devel/Compile/Compile.hs index 65c0530f1..07e059ed4 100644 --- a/src/GF/Devel/Compile/Compile.hs +++ b/src/GF/Devel/Compile/Compile.hs @@ -44,9 +44,6 @@ intermOut opts opt s = prMod :: SourceModule -> String prMod = prModule --- | environment variable for grammar search path -gfGrammarPathVar = "GF_GRAMMAR_PATH" - -- | the environment type CompileEnv = (Int,GF) @@ -67,7 +64,7 @@ compileModule opts1 env file = do let ps1 = if (useFileOpt && not useLineOpt) then (ps0 ++ map (combine fpath) ps0) else ps0 - ps <- ioeIO $ extendPathEnv gfLibraryPath gfGrammarPathVar ps1 + ps <- ioeIO $ extendPathEnv ps1 let ioeIOIf = if oElem beVerbose opts then ioeIO else (const (return ())) ioeIOIf $ putStrLn $ "module search path:" +++ show ps ---- let sgr = snd env -- cgit v1.2.3