From 0dc19c31390bccfce871da776a503d1d90d3d5dc Mon Sep 17 00:00:00 2001 From: bringert Date: Sun, 10 Dec 2006 23:32:30 +0000 Subject: [PATCH] VoiceXML: don't use subdialog srcexpr for statically know subdialogs. --- src/GF/Speech/GrammarToVoiceXML.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/GF/Speech/GrammarToVoiceXML.hs b/src/GF/Speech/GrammarToVoiceXML.hs index 08ed8f705..450e829c1 100644 --- a/src/GF/Speech/GrammarToVoiceXML.hs +++ b/src/GF/Speech/GrammarToVoiceXML.hs @@ -106,7 +106,7 @@ skel2vxml name start skel qs = where gr = grammarURI name prelude = var "debug" (Just "1") : scriptLib - startForm = Tag "form" [] [subdialog "sub" [("srcexpr","'#'+"++string start)] []] + startForm = Tag "form" [] [subdialog "sub" [("src", "#"++start)] []] grammarURI :: String -> String grammarURI name = name ++ ".grxml" @@ -174,7 +174,7 @@ fun2form gr fun args = where argNames = zip ["arg"++show n | n <- [0..]] args ss = map (uncurry mkSub) argNames - mkSub a t = subdialog a [("srcexpr","'#'+"++string t)] + mkSub a t = subdialog a [("src","#"++t)] [param "value" ("value."++a), filled [] [assign ("value."++a) (a++"."++t)]] ret = block [return_ ["value"]]