diff options
| author | krasimir <krasimir@chalmers.se> | 2010-03-24 11:11:55 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-03-24 11:11:55 +0000 |
| commit | 68482aa7e9882ab8d65fb5fe261efc0e807f6dfd (patch) | |
| tree | b818f5c25002f0be2eefad441e62aa08c959cbe6 /src/compiler/GF/Speech | |
| parent | 76d155af0eb6174e479ec6c2023554984c14106f (diff) | |
now for every category we store, in PGF, the list of functions for it in source-code order. The order matters for the termination of the exhaustive generation with dependent types.
Diffstat (limited to 'src/compiler/GF/Speech')
| -rw-r--r-- | src/compiler/GF/Speech/VoiceXML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Speech/VoiceXML.hs b/src/compiler/GF/Speech/VoiceXML.hs index d638e30a8..9511dde23 100644 --- a/src/compiler/GF/Speech/VoiceXML.hs +++ b/src/compiler/GF/Speech/VoiceXML.hs @@ -40,7 +40,7 @@ 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 (cats (abstract pgf)), not (isLiteralCat c)] -- |