X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2FPrelException.lhs;fp=ghc%2Flib%2Fstd%2FPrelException.lhs;h=5dd4a4a84941d32969b6fce2ab3a3b24e34d1548;hb=2e8a6c42c77658e25443217876173e64ce8b0d90;hp=2d1c5c87ad7c6b867c653d54f8da9f0f6d5bf17d;hpb=6771cedb8968c18f51cbac405be5ea46c5370348;p=ghc-hetmet.git

diff --git a/ghc/lib/std/PrelException.lhs b/ghc/lib/std/PrelException.lhs
index 2d1c5c8..5dd4a4a 100644
--- a/ghc/lib/std/PrelException.lhs
+++ b/ghc/lib/std/PrelException.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: PrelException.lhs,v 1.20 2000/06/09 13:49:35 simonmar Exp $
+% $Id: PrelException.lhs,v 1.21 2000/06/18 21:12:31 panne Exp $
 %
 % (c) The GRAP/AQUA Project, Glasgow University, 1998
 %
@@ -64,6 +64,7 @@ data AsyncException
 data ArrayException
   = IndexOutOfBounds  	String		-- out-of-range array access
   | UndefinedElement	String		-- evaluating an undefined element
+  deriving (Eq, Ord)
 
 stackOverflow, heapOverflow :: Exception -- for the RTS
 stackOverflow = AsyncException StackOverflow