diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-01-05 15:47:53 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-01-05 15:47:53 +0000 |
| commit | 76b852f510132b186fb8323ad85fce42605b29e3 (patch) | |
| tree | 290f466f4b088069c093bfd6b3844feeda56d3f8 /src/GF/UseGrammar/Custom.hs | |
| parent | 6ee7296f9dd5290bb3ee581403a18464444ab28b (diff) | |
VoiceXML printer no takes Options and StateGrammar, like SRG printers do.
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 291b8405d..ca2b704b6 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -254,8 +254,7 @@ customGrammarPrinter = ,(strCI "srgs_xml", SRGS.srgsXmlPrinter Nothing False) ,(strCI "srgs_xml_prob", SRGS.srgsXmlPrinter Nothing True) ,(strCI "srgs_xml_sisr_old", SRGS.srgsXmlPrinter (Just SISR.SISROld) False) - ,(strCI "vxml", \opts s -> let start = cfCat2Ident (startCatStateOpts opts s) - in grammar2vxml start s) + ,(strCI "vxml", grammar2vxml) ,(strCI "slf", slfPrinter) ,(strCI "slf_graphviz", slfGraphvizPrinter) ,(strCI "slf_sub", slfSubPrinter) |