diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 02:03:14 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 02:20:29 +0100 |
| commit | 4b1350ead394472cb9612a4ae81ae160c208d7e3 (patch) | |
| tree | c1893f04852606042bff62483cf9f5d8e5f80d12 /compiler/coreSyn | |
| parent | 6f2f83800dd89af67cbf6de4d9b2afda4af0938f (diff) | |
| download | haskell-4b1350ead394472cb9612a4ae81ae160c208d7e3.tar.gz | |
Remove some redundant Show instances
Diffstat (limited to 'compiler/coreSyn')
| -rw-r--r-- | compiler/coreSyn/CoreSyn.lhs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs index 40243edc0a..e52a6cfe45 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 |