rename GF.Grammar.Predef.isPredefCat to isLiteralCat

src/compiler/GF/Grammar/Lookup.hs

@@ -60,8 +60,8 @@ lookupIdentInfo mo i = lookupIdent i (jments mo)
 
 lookupResDef :: SourceGrammar -> QIdent -> Err Term
 lookupResDef gr (m,c)
-  | isPredefCat c = lock c defLinType 
-  | otherwise     = look m c
+  | isLiteralCat c = lock c defLinType 
+  | otherwise      = look m c
   where 
     look m c = do
       mo <- lookupModule gr m
@@ -161,7 +161,7 @@ lookupAbsDef gr m c = errIn (render (text "looking up absdef of" <+> ppIdent c))
     _            -> return (Nothing,Nothing)
 
 lookupLincat :: SourceGrammar -> Ident -> Ident -> Err Type
-lookupLincat gr m c | isPredefCat c = return defLinType --- ad hoc; not needed?
+lookupLincat gr m c | isLiteralCat c = return defLinType --- ad hoc; not needed?
 lookupLincat gr m c = do
   mo <- lookupModule gr m
   info <- lookupIdentInfo mo c

src/compiler/GF/Grammar/Predef.hs

@@ -24,7 +24,7 @@ module GF.Grammar.Predef
           , cErrorType
           , cOverload
           , cUndefinedType
-          , isPredefCat
+          , isLiteralCat
 
           , cPTrue, cPFalse
 
@@ -88,8 +88,8 @@ cOverload = identC (BS.pack "overload")
 cUndefinedType :: Ident
 cUndefinedType = identC (BS.pack "UndefinedType")
 
-isPredefCat :: Ident -> Bool
-isPredefCat c = elem c [cInt,cString,cFloat]
+isLiteralCat :: Ident -> Bool
+isLiteralCat c = elem c [cInt,cString,cFloat]
 
 cPTrue :: Ident
 cPTrue  = identC (BS.pack "PTrue")

src/compiler/GF/Grammar/Values.hs

@@ -19,7 +19,7 @@ module GF.Grammar.Values (-- * values used in TC type checking
                Binds, Constraints, MetaSubst,
 	       -- * for TC
 	       valAbsInt, valAbsFloat, valAbsString, vType,
-	       isPredefCat,
+	       isLiteralCat,
 	       eType, 
 --Z tree2exp, loc2treeFocus
 	      ) where