GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 03:09:33 -06:00
Code Issues Packages Projects Releases Wiki Activity

Added isLiteralCat function to PGF.Macros.

Browse Source
This commit is contained in:
bjorn
2008-09-26 15:04:13 +00:00
parent 804232aebc
commit 0f4e8468be
2 changed files with 2 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Speech/VoiceXML.hs
View File

@@ -45,10 +45,6 @@ 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)] 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 -- * Questions to ask
-- --

3
src/PGF/Macros.hs
View File

@@ -136,4 +136,5 @@ combinations t = case t of
[] -> [[]] [] -> [[]]
aa:uu -> [a:u | a <- aa, u <- combinations uu] aa:uu -> [a:u | a <- aa, u <- combinations uu]
isLiteralCat :: CId -> Bool
isLiteralCat = (`elem` [mkCId "String", mkCId "Float", mkCId "Int"])