diff options
| author | bjorn <bjorn@bringert.net> | 2008-06-12 18:12:43 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-06-12 18:12:43 +0000 |
| commit | 26afcb4dab43d440d619387dd86794a02d210afd (patch) | |
| tree | 54376b1c9bbd9077d2463645f425f6e07dcc8f6b | |
| parent | 62b04f399cd271f2e1eed783f63e31727f4ddc65 (diff) | |
Exclude literal categories from generated VoiceXML.
| -rw-r--r-- | src-3.0/GF/Speech/VoiceXML.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src-3.0/GF/Speech/VoiceXML.hs b/src-3.0/GF/Speech/VoiceXML.hs index a2aa7d6d6..14a93c796 100644 --- a/src-3.0/GF/Speech/VoiceXML.hs +++ b/src-3.0/GF/Speech/VoiceXML.hs @@ -42,7 +42,12 @@ type Skeleton = [(CId, [(CId, [CId])])] pgfSkeleton :: PGF -> Skeleton pgfSkeleton pgf = [(c,[(f,fst (catSkeleton (lookType pgf f))) | f <- fs]) - | (c,fs) <- Map.toList (catfuns (abstract pgf))] + | (c,fs) <- Map.toList (catfuns (abstract pgf)), + not (isLiteralCat c)] + +-- FIXME: should this go in a more general module? +isLiteralCat :: CId -> Bool +isLiteralCat = (`elem` [mkCId "String", mkCId "Float", mkCId "Int"]) -- -- * Questions to ask |