diff options
Diffstat (limited to 'src/GF/Devel/Compile/Compile.hs')
| -rw-r--r-- | src/GF/Devel/Compile/Compile.hs | 5 |
1 files changed, 1 insertions, 4 deletions
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 |