Commit 4b1350ea authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Remove some redundant Show instances

parent 6f2f8380
......@@ -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}
%************************************************************************
......
......@@ -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"
......
......@@ -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}
......
......@@ -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 }
......
......@@ -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
......
......@@ -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)
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment