From: simonmar <unknown>
Date: Fri, 6 Sep 2002 13:58:58 +0000 (+0000)
Subject: [project @ 2002-09-06 13:58:58 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1713
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dc9c5583ddc876362c09dba165ecdbcf35c5a1f4;p=ghc-hetmet.git

[project @ 2002-09-06 13:58:58 by simonmar]
Remove foreignPtrTyCon and foreignObjTyCon
---

diff --git a/ghc/compiler/prelude/TysWiredIn.lhs b/ghc/compiler/prelude/TysWiredIn.lhs
index 7c8009b..62b2623 100644
--- a/ghc/compiler/prelude/TysWiredIn.lhs
+++ b/ghc/compiler/prelude/TysWiredIn.lhs
@@ -360,26 +360,6 @@ stablePtrTyCon
 	    alpha_tyvar [] [mkStablePtrPrimTy alphaTy] stablePtrTyCon
 \end{code}
 
-\begin{code}
-foreignObjTyCon
-  = pcNonRecDataTyCon foreignObjTyConName
-	[] [] [foreignObjDataCon]
-  where
-    foreignObjDataCon
-      = pcDataCon foreignObjDataConName
-	    [] [] [foreignObjPrimTy] foreignObjTyCon
-\end{code}
-
-\begin{code}
-foreignPtrTyCon
-  = pcNonRecDataTyCon foreignPtrTyConName
-	alpha_tyvar  [(True,False)] [foreignPtrDataCon]
-  where
-    foreignPtrDataCon
-      = pcDataCon foreignPtrDataConName
-	    alpha_tyvar [] [foreignObjPrimTy] foreignPtrTyCon
-\end{code}
-
 %************************************************************************
 %*									*
 \subsection[TysWiredIn-Integer]{@Integer@ and its related ``pairing'' types}