[project @ 1999-11-11 15:20:28 by simonmar]

[ghc-hetmet.git] / ghc / lib / std / PrelException.lhs

diff --git a/ghc/lib/std/PrelException.lhs b/ghc/lib/std/PrelException.lhs
index d434c5a..bed83d7 100644 (file)
--- a/ghc/lib/std/PrelException.lhs
+++ b/ghc/lib/std/PrelException.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: PrelException.lhs,v 1.9 1999/11/11 15:18:00 simonmar Exp $
+% $Id: PrelException.lhs,v 1.10 1999/11/11 15:20:29 simonmar Exp $
 %
 % (c) The GRAP/AQUA Project, Glasgow University, 1998
 %
@@ -38,7 +38,6 @@ data Exception
   | AssertionFailed    String          -- Assertions
   | DynException       Dynamic         -- Dynamic exceptions
   | AsyncException     AsyncException  -- Externally generated errors
-  | ArrayException     ArrayException  -- Array-related exceptions
   | NonTermination
 
 data ArithException
@@ -55,11 +54,6 @@ data AsyncException
   | ThreadKilled
   deriving (Eq, Ord)
 
-data ArrayException
-  = IndexOutOfBounds String
-  | UndefinedElement String
-  deriving (Eq, Ord)
-
 stackOverflow, heapOverflow :: Exception -- for the RTS
 stackOverflow = AsyncException StackOverflow
 heapOverflow  = AsyncException HeapOverflow
@@ -76,12 +70,6 @@ instance Show AsyncException where
   showsPrec _ HeapOverflow    = showString "heap overflow"
   showsPrec _ ThreadKilled    = showString "thread killed"
 
-instance Show ArrayException where
-  showsPrec _ (IndexOutOfBounds s) = showString "array index out of bounds: "
-                                  . showString s
-  showsPrec _ (UndefinedElement s) = showString "undefined array element: "
-                                  . showString s
-
 instance Show Exception where
   showsPrec _ (IOException err)                 = shows err
   showsPrec _ (ArithException err)       = shows err