Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/fe4ee2e1d7eeca4e3bcb50df864e2114b04ddde5 >--------------------------------------------------------------- commit fe4ee2e1d7eeca4e3bcb50df864e2114b04ddde5 Author: Simon Marlow <[email protected]> Date: Wed Jul 18 21:26:17 2012 +0100 ErrorCall should be a newtype, and derive Eq/Ord >--------------------------------------------------------------- GHC/Exception.lhs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/GHC/Exception.lhs b/GHC/Exception.lhs index 76a9eb4..ba40a89 100644 --- a/GHC/Exception.lhs +++ b/GHC/Exception.lhs @@ -165,8 +165,8 @@ throw e = raise# (toException e) \begin{code} -- |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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
