pgf service: include the start category in grammar info

This commit is contained in:
hallgren
2011-10-18 14:31:40 +00:00
parent d9f7697f7a
commit 4c3cc9f176

View File

@@ -297,6 +297,7 @@ doGrammar :: PGF -> Maybe (Accept Language) -> JSValue
doGrammar pgf macc = showJSON $ toJSObject
[("name", showJSON (PGF.abstractName pgf)),
("userLanguage", showJSON (selectLanguage pgf macc)),
("startcat",showJSON (PGF.showType [] (PGF.startCat pgf))),
("categories", showJSON categories),
("functions", showJSON functions),
("languages", showJSON languages)]