GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-11 04:02:52 -06:00
Code Issues Packages Projects Releases Wiki Activity

move the literal category names to PGF.Macros

Browse Source
This commit is contained in:
krasimir
2008-10-19 14:21:58 +00:00
parent c44f79dd64
commit d27b017c7f
3 changed files with 8 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/PGF/Macros.hs
View File

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