Remove some redundant Show instances
authorIan Lynagh <igloo@earth.li>
Tue, 12 Jun 2012 01:03:14 +0000 (02:03 +0100)
committerIan Lynagh <igloo@earth.li>
Tue, 12 Jun 2012 01:20:29 +0000 (02:20 +0100)
compiler/basicTypes/BasicTypes.lhs
compiler/basicTypes/DataCon.lhs
compiler/basicTypes/IdInfo.lhs
compiler/basicTypes/Literal.lhs
compiler/coreSyn/CoreSyn.lhs
compiler/prelude/PrimOp.lhs
compiler/types/Class.lhs

index 98579ac..6db5788 100644 (file)
@@ -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}
 
 %************************************************************************
index dde85a3..d46759c 100644 (file)
@@ -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"
index 0d715ef..3f5eaa4 100644 (file)
@@ -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}
 
 
index fe36b9d..2a06c90 100644 (file)
@@ -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  }
index 40243ed..e52a6cf 100644 (file)
@@ -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
 
index 39bee1f..b055376 100644 (file)
@@ -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)
index 992fde7..136ecec 100644 (file)
@@ -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