[project @ 1999-01-28 17:10:52 by simonpj]

PrelInfo should define deRefStablePtr and friends to be in PrelStable

diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index 834134f..a22c590 100644 (file)
--- 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 (file)
--- 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")