diff options
| author | sof <unknown> | 2002-04-28 01:58:29 +0000 |
|---|---|---|
| committer | sof <unknown> | 2002-04-28 01:58:29 +0000 |
| commit | f6124b6ca2ec9820f7eb454dbcffbf4b8b790d4f (patch) | |
| tree | 144380a64a9e75018286e0ad0dae1d2a9f1c4224 | |
| parent | 6a268d8669c50288f33d5bccd468522a8d56073a (diff) | |
| download | haskell-f6124b6ca2ec9820f7eb454dbcffbf4b8b790d4f.tar.gz | |
[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?]
| -rw-r--r-- | ghc/compiler/basicTypes/MkId.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/basicTypes/MkId.lhs b/ghc/compiler/basicTypes/MkId.lhs index 15ed717411..80d4622e7f 100644 --- 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) |