From cdd30e6640d450835091b8815b42d55bee67df6b Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 2 Sep 2008 22:47:30 +0000 Subject: [PATCH] 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 --- Control/OldException.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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), -- 1.7.10.4