From b4613af39b9a0829c13eb2987a0469bff5ada16c Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 28 Jan 1999 17:10:53 +0000
Subject: [PATCH] [project @ 1999-01-28 17:10:52 by simonpj] PrelInfo should
 define deRefStablePtr and friends to be in PrelStable

---
 ghc/compiler/basicTypes/OccName.lhs |    2 +-
 ghc/compiler/prelude/PrelInfo.lhs   |    6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index 834134f..a22c590 100644
--- a/ghc/compiler/basicTypes/OccName.lhs
+++ b/ghc/compiler/basicTypes/OccName.lhs
@@ -458,7 +458,7 @@ guys never show up in error messages.  What a hack.
 \begin{code}
 mkMethodOcc :: OccName -> OccName
 mkMethodOcc occ@(OccName VarName fs) = occ
-mkMethodOcc occ			     = mk_simple_deriv varName "$m"
+mkMethodOcc occ			     = mk_simple_deriv varName "$m" occ
 \end{code}
 
 
diff --git a/ghc/compiler/prelude/PrelInfo.lhs b/ghc/compiler/prelude/PrelInfo.lhs
index 28c1948..c1e3a9d 100644
--- a/ghc/compiler/prelude/PrelInfo.lhs
+++ b/ghc/compiler/prelude/PrelInfo.lhs
@@ -462,9 +462,9 @@ byteArrayTyCon_RDR		= tcQual pREL_ARR  SLIT("ByteArray")
 mutableByteArrayTyCon_RDR	= tcQual pREL_ARR  SLIT("MutableByteArray")
 
 foreignObjTyCon_RDR	= tcQual  pREL_IO_BASE SLIT("ForeignObj")
-stablePtrTyCon_RDR	= tcQual  pREL_FOREIGN SLIT("StablePtr")
-deRefStablePtr_RDR      = varQual pREL_FOREIGN SLIT("deRefStablePtr")
-makeStablePtr_RDR       = varQual pREL_FOREIGN SLIT("makeStablePtr")
+stablePtrTyCon_RDR	= tcQual  pREL_STABLE SLIT("StablePtr")
+deRefStablePtr_RDR      = varQual pREL_STABLE SLIT("deRefStablePtr")
+makeStablePtr_RDR       = varQual pREL_STABLE SLIT("makeStablePtr")
 
 eqClass_RDR		= clsQual pREL_BASE SLIT("Eq")
 ordClass_RDR		= clsQual pREL_BASE SLIT("Ord")
-- 
1.7.10.4