Add instance Show Control.Exception.Exception for nhc98.

diff --git a/Control/Exception.hs b/Control/Exception.hs
index ffa8f98..a7d14db 100644 (file)
--- 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)