move the literal category names to PGF.Macros

2008-10-19 14:21:58 +00:00
parent 9837fb8fb1
commit 418856d9bf
3 changed files with 8 additions and 9 deletions
--- a/src/PGF/Macros.hs
+++ b/src/PGF/Macros.hs
@@ -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"