From: Malcolm.Wallace@cs.york.ac.uk <unknown>
Date: Mon, 28 Jul 2008 16:45:37 +0000 (+0000)
Subject: Add instance Show Control.Exception.Exception for nhc98.
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d0076d7c913ae3f85a01a04f745906e021b2206d;p=ghc-base.git

Add instance Show Control.Exception.Exception for nhc98.
---

diff --git a/Control/Exception.hs b/Control/Exception.hs
index ffa8f98..a7d14db 100644
--- a/Control/Exception.hs
+++ b/Control/Exception.hs
@@ -157,10 +157,14 @@ data Exception   = IOException    IOException
                  | ArrayException ArrayException
                  | AsyncException AsyncException
                  | ExitException  ExitCode
+                 deriving Show
 type IOException = IOError
 data ArithException
 data ArrayException
 data AsyncException
+instance Show ArithException
+instance Show ArrayException
+instance Show AsyncException
 
 catch    :: IO a -> (Exception -> IO a) -> IO a
 a `catch` b = a `H'98.catch` (b . IOException)