From d0076d7c913ae3f85a01a04f745906e021b2206d Mon Sep 17 00:00:00 2001
From: "Malcolm.Wallace@cs.york.ac.uk" <unknown>
Date: Mon, 28 Jul 2008 16:45:37 +0000
Subject: [PATCH] Add instance Show Control.Exception.Exception for nhc98.

---
 Control/Exception.hs |    4 ++++
 1 file changed, 4 insertions(+)

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)
-- 
1.7.10.4