diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Speech/GrammarToVoiceXML.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/GF/Speech/GrammarToVoiceXML.hs b/src/GF/Speech/GrammarToVoiceXML.hs index 051a7e596..0667b9efd 100644 --- a/src/GF/Speech/GrammarToVoiceXML.hs +++ b/src/GF/Speech/GrammarToVoiceXML.hs @@ -154,12 +154,12 @@ cat2form gr qs cat fs = -- block [doCallback "entered" cat [return_ [catFieldId cat]] []], field (catFieldId cat) [] [promptString (getCatQuestion cat qs), - vxmlGrammar (gr++"#"++catFormId cat), - nomatch [Data "I didn't understand you.", reprompt], - help [Data (mkHelpText cat)], - filled [] [if_else (catFieldId cat ++ ".name == '?'") - [reprompt] - [{-doCallback "refined" cat [return_ [catFieldId cat]] []-}]] + vxmlGrammar (gr++"#"++catFormId cat) + -- , nomatch [Data "I didn't understand you.", reprompt], + -- help [Data (mkHelpText cat)], + --filled [] [if_else (catFieldId cat ++ ".name == '?'") + -- [reprompt] + -- [{-doCallback "refined" cat [return_ [catFieldId cat]] []-}]] ] ] ++ concatMap (uncurry (fun2sub gr cat)) fs |