redesign the open-literals API

2010-07-01 08:51:59 +00:00
parent 706b215fce
commit 5ae7be358d
15 changed files with 198 additions and 176 deletions
--- 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