From ae6e8ee401e170224312d78cf43e0e51e49e9976 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 30 Apr 2009 07:56:22 +0000
Subject: added -gf-lib-path option which overides the value of GF_LIB_PATH

---
 src/GF/Compile.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Compile.hs')

diff --git a/src/GF/Compile.hs b/src/GF/Compile.hs
index 59357f783..67e1d218c 100644
--- a/src/GF/Compile.hs
+++ b/src/GF/Compile.hs
@@ -119,7 +119,7 @@ compileModule opts1 env file = do
   let opts = addOptions opts0 opts1
   let fdir = dropFileName file
   let ps0 = flag optLibraryPath opts
-  ps1 <- ioeIO $ extendPathEnv $ fdir : ps0
+  ps1 <- ioeIO $ extendPathEnv opts $ fdir : ps0
   let ps2 = ps1 ++ map (fdir </>) ps0
   ps <- ioeIO $ fmap nub $ mapM canonicalizePath ps2
   ioeIO $ putIfVerb opts $ "module search path:" +++ show ps ----
-- 
cgit v1.2.3