diff options
| author | krasimir <krasimir@chalmers.se> | 2009-05-20 13:23:34 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-05-20 13:23:34 +0000 |
| commit | b45bdaefec1778f1557a8b8ba3e2602d033621bf (patch) | |
| tree | 0a7c52cf192c62ab4cda989fffbf6632529d46fa /src/GF/Compile.hs | |
| parent | 878ad278b5c6a5f168c6588d154e4dd4ce3fe862 (diff) | |
simpler algorithm for file searching in the compiler. should be equivalent to the previous one
Diffstat (limited to 'src/GF/Compile.hs')
| -rw-r--r-- | src/GF/Compile.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/GF/Compile.hs b/src/GF/Compile.hs index 4e16e9121..4b63c5c2e 100644 --- a/src/GF/Compile.hs +++ b/src/GF/Compile.hs @@ -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 |