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

redesign the open-literals API

Browse Source
This commit is contained in:
krasimir
2010-07-01 08:51:59 +00:00
parent 706b215fce
commit 5ae7be358d
15 changed files with 198 additions and 176 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/compiler/GF/Speech/VoiceXML.hs
View File

@@ -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