From: Ian Lynagh <igloo@earth.li>
Date: Tue, 2 Sep 2008 22:47:30 +0000 (+0000)
Subject: Don't look for actual OldException.Exception exceptions
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cdd30e6640d450835091b8815b42d55bee67df6b;p=ghc-base.git

Don't look for actual OldException.Exception exceptions
We don't actually throw them (we throw the new Exception equivalents
instead), and looking for them was causing an infinite loop
---

diff --git a/Control/OldException.hs b/Control/OldException.hs
index 7036912..7e5ebc8 100644
--- a/Control/OldException.hs
+++ b/Control/OldException.hs
@@ -710,8 +710,7 @@ instance New.Exception Exception where
       Just exc -> Just (f exc)
       _        -> e
     casters =
-      [Caster (\e -> e),
-       Caster (\exc -> ArithException exc),
+      [Caster (\exc -> ArithException exc),
        Caster (\exc -> ArrayException exc),
        Caster (\(New.AssertionFailed err) -> AssertionFailed err),
        Caster (\exc -> AsyncException exc),