From 70c9f7b365b07044c07837a04223a11dfa3b7140 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 17 Nov 2003 15:17:53 +0000
Subject: Lexer by need.

---
 src/GF/Grammar/Values.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/GF/Grammar/Values.hs')

diff --git a/src/GF/Grammar/Values.hs b/src/GF/Grammar/Values.hs
index 4d787488d..015f9ffb3 100644
--- a/src/GF/Grammar/Values.hs
+++ b/src/GF/Grammar/Values.hs
@@ -44,6 +44,8 @@ cPredefAbs = identC "PredefAbs"
 cInt = identC "Int"
 cString = identC "String"
 
+isPredefCat c = elem c [cInt,cString]
+
 eType :: Exp
 eType = Sort "Type"
 
-- 
cgit v1.2.3