Fix oversight in Control.OldException

[ghc-base.git] / Control / OldException.hs

diff --git a/Control/OldException.hs b/Control/OldException.hs
index f6a0740..cdd5af8 100644 (file)
--- 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)