GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-06 17:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

bugfix in extendPathEnv

Browse Source
This commit is contained in:
krasimir
2009-10-03 07:39:06 +00:00
parent 56f979d669
commit a63668577e
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 extendPathEnv opts fdir = do
b <- getLibraryPath opts -- e.g. GF_LIB_PATH b <- getLibraryPath opts -- e.g. GF_LIB_PATH
ss <- getGrammarPath opts -- e.g. GF_GRAMMAR_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 mapM canonicalizePath ps
where where
allSubdirs :: FilePath -> IO [FilePath] allSubdirs :: FilePath -> IO [FilePath]