GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-05 17:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

SRGS generation: don't include debug script stuff if debugging is disabled. Place category comments better.

Browse Source
This commit is contained in:
bringert
2006-12-12 10:37:45 +00:00
parent b859fb7a7a
commit 694f644fe5
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Speech/GrammarToVoiceXML.hs
View File

@@ -110,7 +110,7 @@ skel2vxml name language start skel qs =
vxml language (prelude ++ [startForm] ++ concatMap (uncurry (catForms gr qs)) skel)
where
gr = grammarURI name
prelude = (if debug then [var "debug" (Just "0")] else []) ++ scriptLib
prelude = if debug then [var "debug" (Just "0")] ++ scriptLib else []
startForm = Tag "form" [] [subdialog "sub" [("src", "#"++start)] []]
grammarURI :: String -> String