1
0
forked from GitHub/gf-core

added -gf-lib-path option which overides the value of GF_LIB_PATH

This commit is contained in:
krasimir
2009-04-30 07:56:22 +00:00
parent c6ac4801ad
commit ae6e8ee401
3 changed files with 17 additions and 10 deletions

View File

@@ -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 ----