From: Bertram Felgenhauer <int-e@gmx.de>
Date: Sat, 16 Aug 2008 13:26:31 +0000 (+0000)
Subject: Fix oversight in Control.OldException
X-Git-Tag: 6_10_branch_has_been_forked~42
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=57c5c671f24503a2e3d3205e7a70ce0a66bab2e1;p=ghc-base.git

Fix oversight in Control.OldException
The NonTermination constructor slipped through in the Exception instance.
---

diff --git a/Control/OldException.hs b/Control/OldException.hs
index f6a0740..cdd5af8 100644
--- a/Control/OldException.hs
+++ b/Control/OldException.hs
@@ -748,7 +748,7 @@ instance New.Exception Exception where
   toException (ExitException exc)    = SomeException exc
   toException (IOException exc)      = SomeException exc
   toException (NoMethodError err)    = SomeException (New.NoMethodError err)
-  toException NonTermination         = SomeException NonTermination
+  toException NonTermination         = SomeException New.NonTermination
   toException (PatternMatchFail err) = SomeException (New.PatternMatchFail err)
   toException (RecConError err)      = SomeException (New.RecConError err)
   toException (RecSelError err)      = SomeException (New.RecSelError err)