[commit: base] master: ErrorCall should be a newtype, and derive Eq/Ord (fe4ee2e)

[Simon Marlow]

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 <marlowsd at gmail.com>
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