[project @ 1999-07-29 11:30:30 by sof]

[ghc-hetmet.git] / ghc / compiler / prelude / PrimRep.lhs

diff --git a/ghc/compiler/prelude/PrimRep.lhs b/ghc/compiler/prelude/PrimRep.lhs
index 2b934c3..2d13efa 100644 (file)
--- a/ghc/compiler/prelude/PrimRep.lhs
+++ b/ghc/compiler/prelude/PrimRep.lhs
@@ -207,9 +207,6 @@ showPrimRep  :: PrimRep -> String
 showPrimRepToUser :: PrimRep -> String
 
 showPrimRep PtrRep        = "P_"       -- short for StgPtr
-
-showPrimRep CodePtrRep     = "P_"      -- DEATH to StgFunPtr! (94/02/22 WDP)
-showPrimRep PtrRep         = "P_"      -- short for StgPtr
 showPrimRep CodePtrRep     = "P_"      -- DEATH to StgFunPtr! (94/02/22 WDP)
 showPrimRep DataPtrRep     = "D_"
 showPrimRep RetRep         = "P_"