From 75ae05b6f9db504aec47be8b3b57266dc7a27fa6 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sat, 6 Feb 1999 18:05:05 +0000
Subject: [PATCH] [project @ 1999-02-06 18:05:05 by sof] The StablePtr dataCon
is now a 'known' name
---
ghc/compiler/prelude/PrelInfo.lhs | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/ghc/compiler/prelude/PrelInfo.lhs b/ghc/compiler/prelude/PrelInfo.lhs
index f176eed187e2..88af198ef744 100644
--- a/ghc/compiler/prelude/PrelInfo.lhs
+++ b/ghc/compiler/prelude/PrelInfo.lhs
@@ -365,6 +365,7 @@ knownKeyNames
, (mutableByteArrayTyCon_RDR, mutableByteArrayTyConKey)
, (foreignObjTyCon_RDR, foreignObjTyConKey)
, (stablePtrTyCon_RDR, stablePtrTyConKey)
+ , (stablePtrDataCon_RDR, stablePtrDataConKey)
-- Classes. *Must* include:
-- classes that are grabbed by key (e.g., eqClassKey)
@@ -461,10 +462,11 @@ ratioDataCon_RDR = dataQual pREL_NUM SLIT(":%")
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_STABLE SLIT("StablePtr")
-deRefStablePtr_RDR = varQual pREL_STABLE SLIT("deRefStablePtr")
-makeStablePtr_RDR = varQual pREL_STABLE SLIT("makeStablePtr")
+foreignObjTyCon_RDR = tcQual pREL_IO_BASE SLIT("ForeignObj")
+stablePtrTyCon_RDR = tcQual pREL_STABLE SLIT("StablePtr")
+stablePtrDataCon_RDR = dataQual 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")
--
GitLab