GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-28 04:08:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

added -nofun and -nocat options to vt

Browse Source
This commit is contained in:
aarne
2008-06-22 14:15:06 +00:00
parent 16fd61ce00
commit 7d1ee74958
4 changed files with 30 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src-3.0/PGF/Macros.hs
View File

@@ -34,6 +34,9 @@ lookType :: PGF -> CId -> Type
lookType pgf f =
fst $ lookMap (error $ "lookType " ++ show f) f (funs (abstract pgf))
lookValCat :: PGF -> CId -> CId
lookValCat pgf = valCat . lookType pgf
lookParser :: PGF -> CId -> Maybe ParserInfo
lookParser pgf lang = Map.lookup lang (concretes pgf) >>= parser