From eb0bd54e68ac3c776750c88ce4eb3d03954777f2 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 30 Jun 2010 07:40:22 +0000
Subject: rename isLiteralFCat -> isPredefFId, fcat(String|Int|Float) ->
 fid(String|Int|Float)

---
 src/runtime/haskell/PGF/Data.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'src/runtime/haskell/PGF/Data.hs')

diff --git a/src/runtime/haskell/PGF/Data.hs b/src/runtime/haskell/PGF/Data.hs
index fd357a678..490e25a84 100644
--- a/src/runtime/haskell/PGF/Data.hs
+++ b/src/runtime/haskell/PGF/Data.hs
@@ -103,11 +103,11 @@ readLanguage = readCId
 showLanguage :: Language -> String
 showLanguage = showCId
 
-fcatString, fcatInt, fcatFloat, fcatVar :: Int
-fcatString = (-1)
-fcatInt    = (-2)
-fcatFloat  = (-3)
-fcatVar    = (-4)
-
-isLiteralFCat :: FId -> Bool
-isLiteralFCat = (`elem` [fcatString, fcatInt, fcatFloat, fcatVar])
+fidString, fidInt, fidFloat, fidVar :: FId
+fidString = (-1)
+fidInt    = (-2)
+fidFloat  = (-3)
+fidVar    = (-4)
+
+isPredefFId :: FId -> Bool
+isPredefFId = (`elem` [fidString, fidInt, fidFloat, fidVar])
-- 
cgit v1.2.3