Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/4b1350ead394472cb9612a4ae81ae160c208d7e3 >--------------------------------------------------------------- commit 4b1350ead394472cb9612a4ae81ae160c208d7e3 Author: Ian Lynagh <[email protected]> Date: Tue Jun 12 02:03:14 2012 +0100 Remove some redundant Show instances >--------------------------------------------------------------- compiler/basicTypes/BasicTypes.lhs | 3 --- compiler/basicTypes/DataCon.lhs | 3 --- compiler/basicTypes/IdInfo.lhs | 3 --- compiler/basicTypes/Literal.lhs | 3 --- compiler/coreSyn/CoreSyn.lhs | 3 --- compiler/prelude/PrimOp.lhs | 3 --- compiler/types/Class.lhs | 3 --- 7 files changed, 0 insertions(+), 21 deletions(-) diff --git a/compiler/basicTypes/BasicTypes.lhs b/compiler/basicTypes/BasicTypes.lhs index 98579ac..6db5788 100644 --- a/compiler/basicTypes/BasicTypes.lhs +++ b/compiler/basicTypes/BasicTypes.lhs @@ -572,9 +572,6 @@ instance Outputable OccInfo where | otherwise = char '*' pp_args | int_cxt = char '!' | otherwise = empty - -instance Show OccInfo where - showsPrec p occ = showsPrecSDoc p (ppr occ) \end{code} %************************************************************************ diff --git a/compiler/basicTypes/DataCon.lhs b/compiler/basicTypes/DataCon.lhs index dde85a3..d46759c 100644 --- a/compiler/basicTypes/DataCon.lhs +++ b/compiler/basicTypes/DataCon.lhs @@ -470,9 +470,6 @@ instance NamedThing DataCon where instance Outputable DataCon where ppr con = ppr (dataConName con) -instance Show DataCon where - showsPrec p con = showsPrecSDoc p (ppr con) - instance Data.Data DataCon where -- don't traverse? toConstr _ = abstractConstr "DataCon" diff --git a/compiler/basicTypes/IdInfo.lhs b/compiler/basicTypes/IdInfo.lhs index 0d715ef..3f5eaa4 100644 --- a/compiler/basicTypes/IdInfo.lhs +++ b/compiler/basicTypes/IdInfo.lhs @@ -496,9 +496,6 @@ pprLBVarInfo IsOneShotLambda = ptext (sLit "OneShot") instance Outputable LBVarInfo where ppr = pprLBVarInfo - -instance Show LBVarInfo where - showsPrec p c = showsPrecSDoc p (ppr c) \end{code} diff --git a/compiler/basicTypes/Literal.lhs b/compiler/basicTypes/Literal.lhs index fe36b9d..2a06c90 100644 --- a/compiler/basicTypes/Literal.lhs +++ b/compiler/basicTypes/Literal.lhs @@ -206,9 +206,6 @@ instance Binary Literal where instance Outputable Literal where ppr lit = pprLiteral (\d -> d) lit -instance Show Literal where - showsPrec p lit = showsPrecSDoc p (ppr lit) - instance Eq Literal where a == b = case (a `compare` b) of { EQ -> True; _ -> False } a /= b = case (a `compare` b) of { EQ -> False; _ -> True } diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs index 40243ed..e52a6cf 100644 --- a/compiler/coreSyn/CoreSyn.lhs +++ b/compiler/coreSyn/CoreSyn.lhs @@ -963,9 +963,6 @@ instance Outputable AltCon where ppr (LitAlt lit) = ppr lit ppr DEFAULT = ptext (sLit "__DEFAULT") -instance Show AltCon where - showsPrec p con = showsPrecSDoc p (ppr con) - cmpAlt :: (AltCon, a, b) -> (AltCon, a, b) -> Ordering cmpAlt (con1, _, _) (con2, _, _) = con1 `cmpAltCon` con2 diff --git a/compiler/prelude/PrimOp.lhs b/compiler/prelude/PrimOp.lhs index 39bee1f..b055376 100644 --- a/compiler/prelude/PrimOp.lhs +++ b/compiler/prelude/PrimOp.lhs @@ -80,9 +80,6 @@ instance Ord PrimOp where instance Outputable PrimOp where ppr op = pprPrimOp op - -instance Show PrimOp where - showsPrec p op = showsPrecSDoc p (pprPrimOp op) \end{code} An @Enum@-derived list would be better; meanwhile... (ToDo) diff --git a/compiler/types/Class.lhs b/compiler/types/Class.lhs index 992fde7..136ecec 100644 --- a/compiler/types/Class.lhs +++ b/compiler/types/Class.lhs @@ -237,9 +237,6 @@ instance NamedThing Class where instance Outputable Class where ppr c = ppr (getName c) -instance Show Class where - showsPrec p c = showsPrecSDoc p (ppr c) - instance Outputable DefMeth where ppr (DefMeth n) = ptext (sLit "Default method") <+> ppr n ppr (GenDefMeth n) = ptext (sLit "Generic default method") <+> ppr n _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
