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

bugfix in extendPathEnv

Browse Source
This commit is contained in:
krasimir
2009-10-03 07:39:06 +00:00
parent eae27821a0
commit da177ed66a
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Infra/UseIO.hs
View File

@@ -78,7 +78,7 @@ extendPathEnv :: Options -> FilePath -> IO [FilePath]
extendPathEnv opts fdir = do
b <- getLibraryPath opts -- e.g. GF_LIB_PATH
ss <- getGrammarPath opts -- e.g. GF_GRAMMAR_PATH
ps <- liftM (nub . concat) $ mapM allSubdirs $ ss ++ [b </> s | s <- ss] ++ [fdir </> s | s <- ss]
ps <- liftM (nub . concat) $ mapM allSubdirs $ [fdir </> s | s <- ss] ++ [b </> s | s <- ss]
mapM canonicalizePath ps
where
allSubdirs :: FilePath -> IO [FilePath]