diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-12-28 17:12:40 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-12-28 17:12:40 +0000 |
| commit | 475d53565195233d3928847c98cef69fc19c56c4 (patch) | |
| tree | ac2fbeb664043045c7aed5f06eb15f6fd19e6f0c /src/GF/UseGrammar/Custom.hs | |
| parent | 1ab879764a4af7544d3904d69758d5935bb659ee (diff) | |
Use printname to make VoiceXML prompts.
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 9a689cb8c..4fdc04982 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -270,7 +270,7 @@ customGrammarPrinter = \opts s -> let name = cncId s start = getStartCatCF opts s in SRGS.srgsXmlPrinter name start opts (Just SISR.SISROld) Nothing $ stateCFG s) - ,(strCI "vxml", \opts s -> let start = getStartCat opts s + ,(strCI "vxml", \opts s -> let start = cfCat2Ident (startCatStateOpts opts s) in grammar2vxml start s) ,(strCI "slf", \opts s -> let start = getStartCatCF opts s name = cncId s |