the Predef function eqVal to compare equality of parameter values

2012-02-24 10:00:27 +00:00
parent be76d44b8f
commit aa7668ef75
2 changed files with 7 additions and 0 deletions
--- a/src/compiler/GF/Grammar/Predef.hs
+++ b/src/compiler/GF/Grammar/Predef.hs
@@ -33,6 +33,7 @@ module GF.Grammar.Predef
          , cOccurs, cEqInt, cLessInt, cPlus, cShow, cRead
          , cToStr, cMapStr, cError
          , cToUpper, cToLower, cIsUpper
+          , cEqVal

          -- hacks
          , cMeta, cAs, cChar, cChars, cSeq, cAlt, cRep
@@ -129,6 +130,9 @@ cIsUpper = identC (BS.pack "isUpper")
 cEqStr :: Ident
 cEqStr = identC (BS.pack "eqStr")

+cEqVal :: Ident
+cEqVal = identC (BS.pack "eqVal")
+
 cOccur :: Ident
 cOccur = identC (BS.pack "occur")