msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

simpler algorithm for file searching in the compiler. should be equivalent to the previous one

Browse Source
This commit is contained in:
krasimir
2009-05-20 13:23:34 +00:00
parent 878ad278b5
commit b45bdaefec
2 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/GF/Compile.hs
View File

@@ -118,10 +118,7 @@ compileModule opts1 env file = do
opts0 <- getOptionsFromFile file
let opts = addOptions opts0 opts1
let fdir = dropFileName file
let ps0 = flag optLibraryPath opts
ps1 <- ioeIO $ extendPathEnv opts $ fdir : ps0
let ps2 = ps1 ++ map (fdir </>) ps0
ps <- ioeIO $ fmap nub $ mapM canonicalizePath ps2
ps <- ioeIO $ extendPathEnv opts fdir
ioeIO $ putIfVerb opts $ "module search path:" +++ show ps ----
let (_,sgr,rfs) = env
files <- getAllFiles opts ps rfs file