From 10830082d1a9c000a419c88dfd64b5b086b87b8d Mon Sep 17 00:00:00 2001
From: "Malcolm.Wallace@cs.york.ac.uk" <unknown>
Date: Tue, 5 Aug 2008 16:03:30 +0000
Subject: [PATCH] make ExitCode an instance of Exception for nhc98

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

diff --git a/Control/Exception.hs b/Control/Exception.hs
index e52d2e8..b3638f6 100644
--- a/Control/Exception.hs
+++ b/Control/Exception.hs
@@ -187,6 +187,10 @@ instance Exception IOError where
     toException                     = SomeException
     fromException (SomeException e) = Just (unsafeCoerce e)
 
+instance Exception ExitCode where
+    toException                     = SomeException
+    fromException (SomeException e) = Just (unsafeCoerce e)
+
 data ArithException
 data ArrayException
 data AsyncException
-- 
1.7.10.4