From: simonmar <unknown>
Date: Wed, 31 May 2000 16:04:47 +0000 (+0000)
Subject: [project @ 2000-05-31 16:04:47 by simonmar]
X-Git-Tag: Approximately_9120_patches~4336
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bef62cbd96e3153e9314c7f824cdbbd7b6106305;p=ghc-hetmet.git

[project @ 2000-05-31 16:04:47 by simonmar]
fix apparent cut-n-pasto: rEC_SEL_ERROR_ID was printed as "patError".
---

diff --git a/ghc/compiler/basicTypes/MkId.lhs b/ghc/compiler/basicTypes/MkId.lhs
index 9c52fdd..88078e8 100644
--- a/ghc/compiler/basicTypes/MkId.lhs
+++ b/ghc/compiler/basicTypes/MkId.lhs
@@ -701,10 +701,10 @@ templates, but we don't ever expect to generate code for it.
 \begin{code}
 eRROR_ID
   = pc_bottoming_Id errorIdKey pREL_ERR SLIT("error") errorTy
-rEC_SEL_ERROR_ID
-  = generic_ERROR_ID recSelErrIdKey SLIT("patError")
 pAT_ERROR_ID
   = generic_ERROR_ID patErrorIdKey SLIT("patError")
+rEC_SEL_ERROR_ID
+  = generic_ERROR_ID recSelErrIdKey SLIT("recSelError")
 rEC_CON_ERROR_ID
   = generic_ERROR_ID recConErrorIdKey SLIT("recConError")
 rEC_UPD_ERROR_ID