[commit: ghc] master: Remove Ord PatSyn (b2624ee)

[git at git.haskell.org]

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

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

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

commit b2624ee3efe847d553a9a8b822f88ff5bb056377
Author: Bartosz Nitka <niteria at gmail.com>
Date:   Thu Jun 9 04:52:48 2016 -0700

    Remove Ord PatSyn
    
    It's implemented in terms of Unique which is nondeterministic
    
    GHC Trac: #4012


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

b2624ee3efe847d553a9a8b822f88ff5bb056377
 compiler/basicTypes/PatSyn.hs | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/compiler/basicTypes/PatSyn.hs b/compiler/basicTypes/PatSyn.hs
index 5ff99e0..3c5e709 100644
--- a/compiler/basicTypes/PatSyn.hs
+++ b/compiler/basicTypes/PatSyn.hs
@@ -270,13 +270,6 @@ instance Eq PatSyn where
     (==) = (==) `on` getUnique
     (/=) = (/=) `on` getUnique
 
-instance Ord PatSyn where
-    (<=) = (<=) `on` getUnique
-    (<) = (<) `on` getUnique
-    (>=) = (>=) `on` getUnique
-    (>) = (>) `on` getUnique
-    compare = compare `on` getUnique
-
 instance Uniquable PatSyn where
     getUnique = psUnique