From 7551c70db6c76a796e93fa1cd4ebe7c850344b7e Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sun, 16 Dec 2007 22:24:36 +0000
Subject: restored Int size and last ; added lib/prelude to be the last in any
 grammar path

---
 src/GF/Infra/UseIO.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Infra/UseIO.hs')

diff --git a/src/GF/Infra/UseIO.hs b/src/GF/Infra/UseIO.hs
index 101f09c54..6c15ee6e5 100644
--- a/src/GF/Infra/UseIO.hs
+++ b/src/GF/Infra/UseIO.hs
@@ -130,7 +130,7 @@ extendPathEnv lib var ps = do
   s <- catch (getEnv var) (const (return ""))     -- e.g. GF_GRAMMAR_PATH
   let fs = pFilePaths s
   let ss = ps ++ fs
-  liftM concat $ mapM allSubdirs $ ss ++ [b ++ "/" ++ s | s <- ss]
+  liftM concat $ mapM allSubdirs $ ss ++ [b ++ "/" ++ s | s <- ss ++ ["prelude"]]
 
 pFilePaths :: String -> [FilePath]
 pFilePaths s = case break isPathSep s of
-- 
cgit v1.2.3