Added isLiteralCat function to PGF.Macros.

2008-09-26 15:04:13 +00:00
parent f377af2617
commit 0e869a3574
2 changed files with 2 additions and 5 deletions
--- a/src/PGF/Macros.hs
+++ b/src/PGF/Macros.hs
@@ -136,4 +136,5 @@ 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"])