From 4c3cc9f176cf3fcc4545dd4294bf4dbf788928fc Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Tue, 18 Oct 2011 14:31:40 +0000
Subject: [PATCH] pgf service: include the start category in grammar info

---
 src/server/PGFService.hs | 1 +
 1 file changed, 1 insertion(+)

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)]