From ccd51897664df4547f9649d1c7f1ffb92a35b43d Mon Sep 17 00:00:00 2001 From: bringert Date: Wed, 19 Apr 2006 09:03:19 +0000 Subject: Use quest_Cat to generate questions in the VoiceXML printer. --- src/GF/UseGrammar/Custom.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/UseGrammar') diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 82aade7ff..f6799811b 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -262,7 +262,7 @@ customGrammarPrinter = start = getStartCatCF opts s in srgsXmlPrinter name start opts True Nothing $ stateCFG s) ,(strCI "vxml", \opts s -> let start = getStartCat opts s - in grammar2vxml start (stateGrammarST s)) + in grammar2vxml start s) ,(strCI "slf", \opts s -> let start = getStartCatCF opts s name = cncId s in slfPrinter name start $ stateCFG s) -- cgit v1.2.3