From dc9c5583ddc876362c09dba165ecdbcf35c5a1f4 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 6 Sep 2002 13:58:58 +0000
Subject: [PATCH] [project @ 2002-09-06 13:58:58 by simonmar] Remove
 foreignPtrTyCon and foreignObjTyCon

---
 ghc/compiler/prelude/TysWiredIn.lhs |   20 --------------------
 1 file changed, 20 deletions(-)

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}
-- 
1.7.10.4