diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-12-08 20:10:28 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-12-08 20:10:28 +0000 |
| commit | 7e8d0e49b2f639d82a7cbe74b984b06b044a8577 (patch) | |
| tree | 813ba9e8395ac204c278d7ffced6d33b1152bba1 /src | |
| parent | a4b04963782448e477e2ef54640ee5739c97f17a (diff) | |
Use public category with original name as SRGS start cat.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Speech/PrSRGS.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Speech/PrSRGS.hs b/src/GF/Speech/PrSRGS.hs index a8c166791..89014b1d3 100644 --- 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), |