From: simonmar <unknown>
Date: Wed, 31 Jul 2002 12:17:35 +0000 (+0000)
Subject: [project @ 2002-07-31 12:17:35 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1786
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=616aab1b9cbf9f98ebad406a4f058359e9c16184;p=ghc-hetmet.git

[project @ 2002-07-31 12:17:35 by simonmar]
Remove unused primRepTyCon
---

diff --git a/ghc/compiler/prelude/TysPrim.lhs b/ghc/compiler/prelude/TysPrim.lhs
index df43faf..eab67e1 100644
--- a/ghc/compiler/prelude/TysPrim.lhs
+++ b/ghc/compiler/prelude/TysPrim.lhs
@@ -42,9 +42,7 @@ module TysPrim(
 	word32PrimTyCon,	word32PrimTy,
 
 	int64PrimTyCon,		int64PrimTy,
-	word64PrimTyCon,	word64PrimTy,
-
-	primRepTyCon
+	word64PrimTyCon,	word64PrimTy
   ) where
 
 #include "HsVersions.h"
@@ -371,31 +369,3 @@ to the thread id internally.
 threadIdPrimTy    = mkTyConTy threadIdPrimTyCon
 threadIdPrimTyCon = pcPrimTyCon0 threadIdPrimTyConName ThreadIdRep
 \end{code}
-
-%************************************************************************
-%*									*
-\subsection[TysPrim-PrimRep]{Making types from PrimReps}
-%*									*
-%************************************************************************
-
-Each of the primitive types from this module is equivalent to a
-PrimRep (see PrimRep.lhs).  The following function returns the
-primitive TyCon for a given PrimRep.
-
-\begin{code}
-primRepTyCon CharRep       = charPrimTyCon
-primRepTyCon Int8Rep       = charPrimTyCon
-primRepTyCon IntRep        = intPrimTyCon
-primRepTyCon WordRep       = wordPrimTyCon
-primRepTyCon Int32Rep      = int32PrimTyCon
-primRepTyCon Int64Rep      = int64PrimTyCon
-primRepTyCon Word32Rep     = word32PrimTyCon
-primRepTyCon Word64Rep     = word64PrimTyCon
-primRepTyCon AddrRep       = addrPrimTyCon
-primRepTyCon FloatRep      = floatPrimTyCon
-primRepTyCon DoubleRep     = doublePrimTyCon
-primRepTyCon StablePtrRep  = stablePtrPrimTyCon
-primRepTyCon ForeignObjRep = foreignObjPrimTyCon
-primRepTyCon WeakPtrRep    = weakPrimTyCon
-primRepTyCon other         = pprPanic "primRepTyCon" (ppr other)
-\end{code}