pgf service: include the start category in grammar info

2011-10-18 14:31:40 +00:00
parent d9f7697f7a
commit 4c3cc9f176
1 changed files with 1 additions and 0 deletions
--- 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)]