diff options
Diffstat (limited to 'src')
| -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] |