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

pgf service: include the start category in grammar info

Browse Source
This commit is contained in:
hallgren
2011-10-18 14:31:40 +00:00
parent d9f7697f7a
commit 4c3cc9f176
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/server/PGFService.hs
View File

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