diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs index 8260df122..19847bca1 100644 --- a/src/server/PGFService.hs +++ b/src/server/PGFService.hs @@ -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)]