diff options
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 0d6a143ef..4400c2585 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -60,6 +60,7 @@ import GF.Speech.PrJSGF (jsgfPrinter) import GF.Speech.PrSRGS (srgsXmlPrinter) import GF.Speech.PrSLF import GF.Speech.PrFA (faGraphvizPrinter,regularPrinter,faCPrinter) +import GF.Speech.GrammarToVoiceXML (grammar2vxml) import GF.Data.Zipper @@ -257,6 +258,7 @@ customGrammarPrinter = ,(strCI "srgs_xml_ms_sem", \s -> let opts = stateOptions s name = cncId s in srgsXmlPrinter name opts True Nothing $ stateCFG s) + ,(strCI "vxml", grammar2vxml . stateGrammarST) ,(strCI "slf", \s -> let opts = stateOptions s start = getStartCat opts name = cncId s |