From 27dda59db4be007d4daa58f8f0a12873f26af1d4 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Tue, 3 Jun 2008 20:05:52 +0000
Subject: Get VoiceXML generation working.

---
 src-3.0/GF/Compile/Export.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src-3.0/GF/Compile')

diff --git a/src-3.0/GF/Compile/Export.hs b/src-3.0/GF/Compile/Export.hs
index 25f99ed55..44ea189cb 100644
--- a/src-3.0/GF/Compile/Export.hs
+++ b/src-3.0/GF/Compile/Export.hs
@@ -10,6 +10,7 @@ import GF.Infra.Option
 import GF.Speech.CFG
 import GF.Speech.PGFToCFG
 import GF.Speech.SRGS
+import GF.Speech.VoiceXML
 import GF.Text.UTF8
 
 -- top-level access to code generation
@@ -26,6 +27,8 @@ prPGF fmt gr name = case fmt of
   FmtHaskell_GADT -> grammar2haskellGADT gr name
   FmtBNF          -> prCFG $ pgfToCFG gr (outputConcr gr)
   FmtSRGS_XML     -> srgsXmlPrinter Nothing gr (outputConcr gr)
+  FmtVoiceXML     -> grammar2vxml gr (outputConcr gr)
+
 
 -- | Get the name of the concrete syntax to generate output from.
 -- FIXME: there should be an option to change this.
-- 
cgit v1.2.3