added -nofun and -nocat options to vt

2008-06-22 14:15:06 +00:00
parent 0f0e65f706
commit 0a43025bbe
4 changed files with 30 additions and 34 deletions
--- a/src-3.0/PGF/Macros.hs
+++ b/src-3.0/PGF/Macros.hs
@@ -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