[project @ 2002-10-01 15:58:42 by erkok]

[ghc-hetmet.git] / ghc / compiler / prelude / PrelNames.lhs

diff --git a/ghc/compiler/prelude/PrelNames.lhs b/ghc/compiler/prelude/PrelNames.lhs
index aa711d2..d32f360 100644 (file)
--- a/ghc/compiler/prelude/PrelNames.lhs
+++ b/ghc/compiler/prelude/PrelNames.lhs
@@ -203,6 +203,9 @@ knownKeyNames
        thenMName, bindMName, returnMName, failMName,
        thenIOName, bindIOName, returnIOName, failIOName,
 
+       -- MonadRec stuff
+       mfixName,
+
        -- Ix stuff
        ixClassName, 
 
@@ -282,7 +285,7 @@ knownKeyNames
        -- Others
        unsafeCoerceName, otherwiseIdName, 
        plusIntegerName, timesIntegerName,
-       eqStringName, assertName, runSTRepName,
+       eqStringName, assertName, assertErrorName, runSTRepName,
        printName, splitName, fstName, sndName,
        errorName,
 
@@ -335,7 +338,7 @@ lEX_Name       = mkModuleName "Text.Read.Lex"
 mAIN_Name        = mkModuleName "Main"
 pREL_INT_Name    = mkModuleName "GHC.Int"
 pREL_WORD_Name   = mkModuleName "GHC.Word"
-
+mONAD_FIX_Name   = mkModuleName "Control.Monad.Fix"
 aDDR_Name        = mkModuleName "Addr"
 
 gLA_EXTS_Name   = mkModuleName "GHC.Exts"
@@ -353,6 +356,7 @@ pREL_REAL           = mkPrelModule pREL_REAL_Name
 pREL_FLOAT     = mkPrelModule pREL_FLOAT_Name
 pRELUDE                = mkPrelModule pRELUDE_Name
 
+
 iNTERACTIVE     = mkHomeModule (mkModuleName "$Interactive")
 
 -- MetaHaskell Extension  text2 from Meta/work/gen.hs
@@ -611,7 +615,7 @@ augmentName   = varQual pREL_BASE_Name FSLIT("augment")   augmentIdKey
 appendName       = varQual pREL_BASE_Name FSLIT("++")        appendIdKey
 andName                  = varQual pREL_BASE_Name FSLIT("&&")        andIdKey
 orName           = varQual pREL_BASE_Name FSLIT("||")        orIdKey
-assertName        = varQual pREL_BASE_Name FSLIT("assert")   assertIdKey
+assertName        = varQual pREL_BASE_Name FSLIT("assert")    assertIdKey
 lazyIdName       = wVarQual pREL_BASE_Name FSLIT("lazy")     lazyIdKey
 
 -- PrelTup
@@ -791,6 +795,7 @@ newStablePtrName      = varQual  pREL_STABLE_Name FSLIT("newStablePtr") newStabl
 
 -- Error module
 errorName               = wVarQual pREL_ERR_Name FSLIT("error")                errorIdKey
+assertErrorName                 = wVarQual pREL_ERR_Name FSLIT("assertError")          assertErrorIdKey
 recSelErrorName                 = wVarQual pREL_ERR_Name FSLIT("recSelError")          recSelErrorIdKey
 runtimeErrorName        = wVarQual pREL_ERR_Name FSLIT("runtimeError")         runtimeErrorIdKey
 irrefutPatErrorName     = wVarQual pREL_ERR_Name FSLIT("irrefutPatError")      irrefutPatErrorIdKey
@@ -805,6 +810,9 @@ runSTRepName           = varQual pREL_ST_Name  FSLIT("runSTRep") runSTRepIdKey
 
 -- The "split" Id for splittable implicit parameters
 splitName          = varQual gLA_EXTS_Name FSLIT("split") splitIdKey
+
+-- Recursive-do notation
+mfixName          = varQual mONAD_FIX_Name FSLIT("mfix") mfixIdKey
 \end{code}
 
 %************************************************************************
@@ -1091,6 +1099,7 @@ andIdKey                = mkPreludeMiscIdUnique 57
 orIdKey                              = mkPreludeMiscIdUnique 58
 thenIOIdKey                  = mkPreludeMiscIdUnique 59
 lazyIdKey                    = mkPreludeMiscIdUnique 60
+assertErrorIdKey             = mkPreludeMiscIdUnique 61
 
 -- Parallel array functions
 nullPIdKey                   = mkPreludeMiscIdUnique 80
@@ -1177,6 +1186,9 @@ valIdKey        = mkPreludeMiscIdUnique 159
 protoIdKey      = mkPreludeMiscIdUnique 160
 matchIdKey      = mkPreludeMiscIdUnique 161
 clauseIdKey     = mkPreludeMiscIdUnique 162
+
+-- Recursive do notation
+mfixIdKey      = mkPreludeMiscIdUnique 163
 \end{code}