diff options
| author | aarne <aarne@chalmers.se> | 2012-02-24 10:00:27 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2012-02-24 10:00:27 +0000 |
| commit | aa7668ef752c0bf2419780b2ec7581a29fa3afd1 (patch) | |
| tree | 7cbdea38686bf05c63e9575ead1342577ac9873a /src/compiler/GF/Grammar/Predef.hs | |
| parent | be76d44b8f7761387b5f0f5df51298bd50a64af8 (diff) | |
the Predef function eqVal to compare equality of parameter values
Diffstat (limited to 'src/compiler/GF/Grammar/Predef.hs')
| -rw-r--r-- | src/compiler/GF/Grammar/Predef.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/compiler/GF/Grammar/Predef.hs b/src/compiler/GF/Grammar/Predef.hs index b77aea40e..44cc060ec 100644 --- 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") |