diff options
| author | simonpj <unknown> | 2005-03-09 10:56:09 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2005-03-09 10:56:09 +0000 |
| commit | 0d197643ea29ae54ed91e51fc890893b2ae5e16c (patch) | |
| tree | 452df7eaaf9bced73f820c6e811df185e506f79e /ghc/compiler/prelude/PrelNames.lhs | |
| parent | 44644ebe79c748861894de4813efd47dae6cb945 (diff) | |
| download | haskell-0d197643ea29ae54ed91e51fc890893b2ae5e16c.tar.gz | |
[project @ 2005-03-09 10:56:09 by simonpj]
Add missing provenance for mfix; pls merge
Diffstat (limited to 'ghc/compiler/prelude/PrelNames.lhs')
| -rw-r--r-- | ghc/compiler/prelude/PrelNames.lhs | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/ghc/compiler/prelude/PrelNames.lhs b/ghc/compiler/prelude/PrelNames.lhs index 2be6f8a8f2..69d924f5eb 100644 --- a/ghc/compiler/prelude/PrelNames.lhs +++ b/ghc/compiler/prelude/PrelNames.lhs @@ -188,7 +188,13 @@ basicKnownKeyNames otherwiseIdName, plusIntegerName, timesIntegerName, eqStringName, assertName, assertErrorName, runSTRepName, - printName, splitName, fstName, sndName, + printName, fstName, sndName, + + -- MonadFix + monadFixClassName, mfixName, + + -- Splittable class + splittableClassName, splitName, -- Booleans andName, orName @@ -601,10 +607,12 @@ newStablePtrName = varQual pREL_STABLE FSLIT("newStablePtr") newStablePtrI runSTRepName = varQual pREL_ST FSLIT("runSTRep") runSTRepIdKey -- The "split" Id for splittable implicit parameters -splitName = varQual gLA_EXTS FSLIT("split") splitIdKey +splittableClassName = clsQual gLA_EXTS FSLIT("Splittable") splittableClassKey +splitName = methName splittableClassName FSLIT("split") splitIdKey -- Recursive-do notation -mfixName = varQual mONAD_FIX FSLIT("mfix") mfixIdKey +monadFixClassName = clsQual mONAD_FIX FSLIT("MonadFix") monadFixClassKey +mfixName = methName monadFixClassName FSLIT("mfix") mfixIdKey -- Arrow notation arrAName = varQual aRROW FSLIT("arr") arrAIdKey @@ -687,6 +695,9 @@ typeable4ClassKey = mkPreludeClassUnique 24 typeable5ClassKey = mkPreludeClassUnique 25 typeable6ClassKey = mkPreludeClassUnique 26 typeable7ClassKey = mkPreludeClassUnique 27 + +monadFixClassKey = mkPreludeClassUnique 28 +splittableClassKey = mkPreludeClassUnique 29 \end{code} %************************************************************************ |