diff options
| author | Bartosz Nitka <niteria@gmail.com> | 2016-06-23 06:24:47 -0700 |
|---|---|---|
| committer | Bartosz Nitka <niteria@gmail.com> | 2016-06-23 08:46:46 -0700 |
| commit | bb7402187819a489d933643f694d819b63ae25c2 (patch) | |
| tree | ab63155f6d8ca097943291e14ef200442f1a9238 | |
| parent | 35d1564cea2e611a4fecf24f09eff83f8a55af1c (diff) | |
| download | haskell-bb7402187819a489d933643f694d819b63ae25c2.tar.gz | |
Remove Ord TyCon
After 35d1564cea2e: Provide Uniquable version of SCC we
can remove this. We want to remove it because when used
it can introduce unnecessary nondeterminism.
GHC Trac: #4012
| -rw-r--r-- | compiler/types/TyCon.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/compiler/types/TyCon.hs b/compiler/types/TyCon.hs index a275caa54b..ad837467e4 100644 --- a/compiler/types/TyCon.hs +++ b/compiler/types/TyCon.hs @@ -2140,13 +2140,6 @@ instance Eq TyCon where a == b = getUnique a == getUnique b a /= b = getUnique a /= getUnique b -instance Ord TyCon where - a <= b = case (a `compare` b) of { LT -> True; EQ -> True; GT -> False } - a < b = case (a `compare` b) of { LT -> True; EQ -> False; GT -> False } - a >= b = case (a `compare` b) of { LT -> False; EQ -> True; GT -> True } - a > b = case (a `compare` b) of { LT -> False; EQ -> False; GT -> True } - compare a b = getUnique a `compare` getUnique b - instance Uniquable TyCon where getUnique tc = tyConUnique tc |