Use public category with original name as SRGS start cat.

2006-12-08 20:10:28 +00:00
parent 46ca2e7b1a
commit 0ae6351754
1 changed files with 1 additions and 1 deletions
--- a/src/GF/Speech/PrSRGS.hs
+++ b/src/GF/Speech/PrSRGS.hs
@@ -47,7 +47,7 @@ prSrgsXml sisr (SRG{grammarName=name,startCat=start,
               origStartCat=origStart,grammarLanguage=l,rules=rs})
    = showsXMLDoc xmlGr
    where
-    root = prCat start
+    root = cfgCatToGFCat origStart 
    xmlGr = grammar root l ([meta "description" 
                             ("SRGS XML speech recognition grammar for " ++ name
                              ++ ". " ++ "Original start category: " ++ origStart),