diff options
| author | aarne <aarne@chalmers.se> | 2012-12-20 16:05:34 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2012-12-20 16:05:34 +0000 |
| commit | 5ff33f47be003088bd5a5b0e5b7c35a83151a751 (patch) | |
| tree | be984e0bdca7b543425516365f35b0e86a74dc3b /src/compiler/GF/Infra/UseIO.hs | |
| parent | d968503d90cbc3a2fa7e41616652a1cd07683c45 (diff) | |
added alltenses to the default search path (just like prelude)
Diffstat (limited to 'src/compiler/GF/Infra/UseIO.hs')
| -rw-r--r-- | src/compiler/GF/Infra/UseIO.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/compiler/GF/Infra/UseIO.hs b/src/compiler/GF/Infra/UseIO.hs index dec2269fd..756df0679 100644 --- a/src/compiler/GF/Infra/UseIO.hs +++ b/src/compiler/GF/Infra/UseIO.hs @@ -70,7 +70,8 @@ getLibraryDirectory opts = getGrammarPath :: FilePath -> IO [FilePath] getGrammarPath lib_dir = do - catch (fmap splitSearchPath $ getEnv gfGrammarPathVar) (\_ -> return [lib_dir </> "prelude"]) -- e.g. GF_GRAMMAR_PATH + catch (fmap splitSearchPath $ getEnv gfGrammarPathVar) + (\_ -> return [lib_dir </> "alltenses",lib_dir </> "prelude"]) -- e.g. GF_GRAMMAR_PATH -- | extends the search path with the -- 'gfLibraryPath' and 'gfGrammarPathVar' |