From 5ae7be358daf169a3852d93f36c30c4ce7d0363e Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 1 Jul 2010 08:51:59 +0000
Subject: redesign the open-literals API

---
 src/compiler/GF/Grammar/Predef.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/compiler/GF/Grammar/Predef.hs')

diff --git a/src/compiler/GF/Grammar/Predef.hs b/src/compiler/GF/Grammar/Predef.hs
index f16765433..f9c2c5d18 100644
--- a/src/compiler/GF/Grammar/Predef.hs
+++ b/src/compiler/GF/Grammar/Predef.hs
@@ -25,7 +25,7 @@ module GF.Grammar.Predef
           , cErrorType
           , cOverload
           , cUndefinedType
-          , isLiteralCat
+          , isPredefCat
 
           , cPTrue, cPFalse
 
@@ -92,8 +92,8 @@ cOverload = identC (BS.pack "overload")
 cUndefinedType :: Ident
 cUndefinedType = identC (BS.pack "UndefinedType")
 
-isLiteralCat :: Ident -> Bool
-isLiteralCat c = elem c [cInt,cString,cFloat,cVar]
+isPredefCat :: Ident -> Bool
+isPredefCat c = elem c [cInt,cString,cFloat]
 
 cPTrue :: Ident
 cPTrue  = identC (BS.pack "PTrue")
-- 
cgit v1.2.3