msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Use public category with original name as SRGS start cat.

Browse Source
This commit is contained in:
bringert
2006-12-08 20:10:28 +00:00
parent 46ca2e7b1a
commit 0ae6351754
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Speech/PrSRGS.hs
View File

@@ -47,7 +47,7 @@ prSrgsXml sisr (SRG{grammarName=name,startCat=start,
origStartCat=origStart,grammarLanguage=l,rules=rs}) origStartCat=origStart,grammarLanguage=l,rules=rs})
= showsXMLDoc xmlGr = showsXMLDoc xmlGr
where where
root = prCat start root = cfgCatToGFCat origStart
xmlGr = grammar root l ([meta "description" xmlGr = grammar root l ([meta "description"
("SRGS XML speech recognition grammar for " ++ name ("SRGS XML speech recognition grammar for " ++ name
++ ". " ++ "Original start category: " ++ origStart), ++ ". " ++ "Original start category: " ++ origStart),