[commit: ghc] master: Remove Ord TyCon (bb74021)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/bb7402187819a489d933643f694d819b63ae25c2/ghc

>---------------------------------------------------------------

commit bb7402187819a489d933643f694d819b63ae25c2
Author: Bartosz Nitka <niteria at gmail.com>
Date:   Thu Jun 23 06:24:47 2016 -0700

    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


>---------------------------------------------------------------

bb7402187819a489d933643f694d819b63ae25c2
 compiler/types/TyCon.hs | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/compiler/types/TyCon.hs b/compiler/types/TyCon.hs
index a275caa..ad83746 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