From: Malcolm.Wallace@cs.york.ac.uk <unknown>
Date: Tue, 5 Aug 2008 16:03:30 +0000 (+0000)
Subject: make ExitCode an instance of Exception for nhc98
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=10830082d1a9c000a419c88dfd64b5b086b87b8d;p=ghc-base.git

make ExitCode an instance of Exception for nhc98
---

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