From a3924abece87303a26ab8066cbf0509976864a48 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Thu, 2 Jun 2011 16:10:46 +0000
Subject: Predef functions toUpper, toLower, isUpper

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

(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 f9c2c5d18..b77aea40e 100644
--- a/src/compiler/GF/Grammar/Predef.hs
+++ b/src/compiler/GF/Grammar/Predef.hs
@@ -32,6 +32,7 @@ module GF.Grammar.Predef
           , cLength, cDrop, cTake, cTk, cDp, cEqStr, cOccur
           , cOccurs, cEqInt, cLessInt, cPlus, cShow, cRead
           , cToStr, cMapStr, cError
+          , cToUpper, cToLower, cIsUpper
 
           -- hacks
           , cMeta, cAs, cChar, cChars, cSeq, cAlt, cRep
@@ -116,6 +117,15 @@ cTk = identC (BS.pack "tk")
 cDp :: Ident
 cDp = identC (BS.pack "dp")
 
+cToUpper :: Ident
+cToUpper = identC (BS.pack "toUpper")
+
+cToLower :: Ident
+cToLower = identC (BS.pack "toLower")
+
+cIsUpper :: Ident
+cIsUpper = identC (BS.pack "isUpper")
+
 cEqStr :: Ident
 cEqStr = identC (BS.pack "eqStr")
 
-- 
cgit v1.2.3