Commit 3c083fae authored by Simon Marlow's avatar Simon Marlow
Browse files

ErrorCall should be a newtype, and derive Eq/Ord

parent 1e1c03fa
......@@ -165,8 +165,8 @@ throw e = raise# (toException e)
-- |This is thrown when the user calls 'error'. The @String@ is the
-- argument given to 'error'.
data ErrorCall = ErrorCall String
deriving Typeable
newtype ErrorCall = ErrorCall String
deriving (Eq, Ord, Typeable)
instance Exception ErrorCall
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