diff options
| author | krasimir <krasimir@chalmers.se> | 2009-10-03 07:39:06 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-10-03 07:39:06 +0000 |
| commit | a63668577eb4b8ede69c5bd9d07c42366f6a6a60 (patch) | |
| tree | 7eab2cbd04d9fc1ec2513c5105214fa3bdada51e /src/GF | |
| parent | 56f979d6696640324ccf2f765691d3e7a51ca407 (diff) | |
bugfix in extendPathEnv
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Infra/UseIO.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Infra/UseIO.hs b/src/GF/Infra/UseIO.hs index e8528fc3d..f8389c672 100644 --- a/src/GF/Infra/UseIO.hs +++ b/src/GF/Infra/UseIO.hs @@ -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] |