diff options
| author | Bartosz Nitka <niteria@gmail.com> | 2016-06-09 04:48:15 -0700 |
|---|---|---|
| committer | Bartosz Nitka <niteria@gmail.com> | 2016-06-09 04:51:11 -0700 |
| commit | 70e0a5644b8c20f70d6349cb4e0a0f0f1c06f5a0 (patch) | |
| tree | 6457d513cda9b098687cc75b06f3119e623c796d | |
| parent | e703a232174fd6e6cc42f2b27a2d9a2a17957aa7 (diff) | |
| download | haskell-70e0a5644b8c20f70d6349cb4e0a0f0f1c06f5a0.tar.gz | |
Remove Ord Class
It was implemented in terms of Unique which is nondeterministic
GHC Trac: #4012
| -rw-r--r-- | compiler/types/Class.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/compiler/types/Class.hs b/compiler/types/Class.hs index 93cc72ff88..27afe4d05c 100644 --- a/compiler/types/Class.hs +++ b/compiler/types/Class.hs @@ -279,13 +279,6 @@ instance Eq Class where c1 == c2 = classKey c1 == classKey c2 c1 /= c2 = classKey c1 /= classKey c2 -instance Ord Class where - c1 <= c2 = classKey c1 <= classKey c2 - c1 < c2 = classKey c1 < classKey c2 - c1 >= c2 = classKey c1 >= classKey c2 - c1 > c2 = classKey c1 > classKey c2 - compare c1 c2 = classKey c1 `compare` classKey c2 - instance Uniquable Class where getUnique c = classKey c |