From 5ae7be358daf169a3852d93f36c30c4ce7d0363e Mon Sep 17 00:00:00 2001 From: krasimir Date: Thu, 1 Jul 2010 08:51:59 +0000 Subject: redesign the open-literals API --- src/compiler/GF/Speech/VoiceXML.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/compiler/GF/Speech') diff --git a/src/compiler/GF/Speech/VoiceXML.hs b/src/compiler/GF/Speech/VoiceXML.hs index 9511dde23..f3f05d3d7 100644 --- a/src/compiler/GF/Speech/VoiceXML.hs +++ b/src/compiler/GF/Speech/VoiceXML.hs @@ -40,8 +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 (cats (abstract pgf)), - not (isLiteralCat c)] + | (c,(_,fs)) <- Map.toList (cats (abstract pgf))] -- -- * Questions to ask -- cgit v1.2.3