[project @ 2002-04-28 01:58:29 by sof]

Heal HEID.

* eRROR_ID: use FSLIT() rather than SLIT() to have "error" be added to
  the FastString hash table rather than as an ext. C string; the Binary
  instance for FastString can't handle the latter, only the former.
  [any deep reasons why not?]

diff --git a/ghc/compiler/basicTypes/MkId.lhs b/ghc/compiler/basicTypes/MkId.lhs
index 15ed717..80d4622 100644 (file)
--- a/ghc/compiler/basicTypes/MkId.lhs
+++ b/ghc/compiler/basicTypes/MkId.lhs
@@ -931,7 +931,7 @@ runtimeErrorTy                = mkSigmaTy [openAlphaTyVar] [] (mkFunTy addrPrimTy openAlpha
 \end{code}
 
 \begin{code}
-eRROR_ID = pc_bottoming_Id errorIdKey pREL_ERR SLIT("error") errorTy
+eRROR_ID = pc_bottoming_Id errorIdKey pREL_ERR FSLIT("error") errorTy
 
 errorTy  :: Type
 errorTy  = mkSigmaTy [openAlphaTyVar] [] (mkFunTys [mkListTy charTy] openAlphaTy)