From 9bae44c37d31afa0a05d012d6f4cfa204ec3f125 Mon Sep 17 00:00:00 2001 From: bringert Date: Fri, 3 Feb 2006 18:43:06 +0000 Subject: Moved general XML stuff to GF.Data.XML. Started working on VoiceXML generation. --- src/GF/UseGrammar/Custom.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/GF/UseGrammar/Custom.hs') 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 -- cgit v1.2.3