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

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