added alltenses to the default search path (just like prelude)

This commit is contained in:
aarne
2012-12-20 16:05:34 +00:00
parent fa6f8f49ce
commit 793ba98249
2 changed files with 3 additions and 2 deletions

View File

@@ -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'