diff options
| author | simonpj <unknown> | 2002-09-25 10:53:11 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2002-09-25 10:53:11 +0000 |
| commit | 4e5a383f739c312e3811b89d519a95a675182e58 (patch) | |
| tree | f5e29b0e42bb48d5e6f95acec1e92eba0ecd474a /ghc/compiler/prelude | |
| parent | 830b30333f3a297d3e4c97ff98474953abdc8b26 (diff) | |
| download | haskell-4e5a383f739c312e3811b89d519a95a675182e58.tar.gz | |
[project @ 2002-09-25 10:53:11 by simonpj]
Fix assertion handling
Diffstat (limited to 'ghc/compiler/prelude')
| -rw-r--r-- | ghc/compiler/prelude/PrelNames.lhs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ghc/compiler/prelude/PrelNames.lhs b/ghc/compiler/prelude/PrelNames.lhs index aa711d2c03..fd5e769f8a 100644 --- a/ghc/compiler/prelude/PrelNames.lhs +++ b/ghc/compiler/prelude/PrelNames.lhs @@ -282,7 +282,7 @@ knownKeyNames -- Others unsafeCoerceName, otherwiseIdName, plusIntegerName, timesIntegerName, - eqStringName, assertName, runSTRepName, + eqStringName, assertName, assertErrorName, runSTRepName, printName, splitName, fstName, sndName, errorName, @@ -611,7 +611,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 +791,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 @@ -1091,6 +1092,7 @@ andIdKey = mkPreludeMiscIdUnique 57 orIdKey = mkPreludeMiscIdUnique 58 thenIOIdKey = mkPreludeMiscIdUnique 59 lazyIdKey = mkPreludeMiscIdUnique 60 +assertErrorIdKey = mkPreludeMiscIdUnique 61 -- Parallel array functions nullPIdKey = mkPreludeMiscIdUnique 80 |