Commit 70e0a564 authored by niteria's avatar niteria
Browse files

Remove Ord Class

It was implemented in terms of Unique which is nondeterministic

GHC Trac: #4012
parent e703a232
...@@ -279,13 +279,6 @@ instance Eq Class where ...@@ -279,13 +279,6 @@ instance Eq 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
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 instance Uniquable Class where
getUnique c = classKey c getUnique c = classKey c
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment