From da177ed66a85e337104ce3a697c24d4c0f7e44ad Mon Sep 17 00:00:00 2001 From: krasimir Date: Sat, 3 Oct 2009 07:39:06 +0000 Subject: [PATCH] bugfix in extendPathEnv --- src/GF/Infra/UseIO.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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]