diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-12-10 23:32:30 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-12-10 23:32:30 +0000 |
| commit | 0dc19c31390bccfce871da776a503d1d90d3d5dc (patch) | |
| tree | 4fcfbb079f16dee0d189580e4d78e97922c78f41 /src/GF | |
| parent | c0db56422bd07385061bdc915abb80e63799994f (diff) | |
VoiceXML: don't use subdialog srcexpr for statically know subdialogs.
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Speech/GrammarToVoiceXML.hs | 4 |
1 files 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"]] |