Commit b2624ee3 authored by niteria's avatar niteria

Remove Ord PatSyn

It's implemented in terms of Unique which is nondeterministic

GHC Trac: #4012
parent 70e0a564
......@@ -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
......
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