From f09e929dd1e46c066a566a5e0c6437ecaf3002a1 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Tue, 6 Jun 2006 21:30:14 +0000
Subject: initial support for literal categories e.g. String,Int and Float

---
 src/GF/Grammar/Macros.hs | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'src/GF/Grammar')

diff --git a/src/GF/Grammar/Macros.hs b/src/GF/Grammar/Macros.hs
index 8261f7f36..e7d073382 100644
--- a/src/GF/Grammar/Macros.hs
+++ b/src/GF/Grammar/Macros.hs
@@ -398,16 +398,17 @@ freshAsTerm s = Vr (varX (readIntArg s))
 
 -- | create a terminal for concrete syntax
 string2term :: String -> Term
-string2term = ccK
+string2term = K
 
-ccK :: String -> Term
-ccC :: Term -> Term -> Term
-ccK = K
-ccC = C
+int2term :: Integer -> Term
+int2term = EInt
+
+float2term :: Double -> Term
+float2term = EFloat
 
 -- | create a terminal from identifier
 ident2terminal :: Ident -> Term
-ident2terminal = ccK . prIdent
+ident2terminal = K . prIdent
 
 -- | create a constant
 string2CnTrm :: String -> Term
-- 
cgit v1.2.3