use New.catch instead of catchException in OldException

diff --git a/Control/OldException.hs b/Control/OldException.hs
index 00b1cf4..afa4492 100644 (file)
--- a/Control/OldException.hs
+++ b/Control/OldException.hs
@@ -135,7 +135,6 @@ import GHC.Base
 import GHC.Num
 import GHC.Show
 import GHC.IOBase ( IO )
-import GHC.IOBase (catchException)
 import qualified GHC.IOBase as ExceptionBase
 import qualified GHC.IOBase as New
 import GHC.Conc hiding (setUncaughtExceptionHandler,
@@ -398,7 +397,7 @@ catchDyn :: Typeable exception => IO a -> (exception -> IO a) -> IO a
 #ifdef __NHC__
 catchDyn m k = m        -- can't catch dyn exceptions in nhc98
 #else
-catchDyn m k = catchException m handle
+catchDyn m k = New.catch m handle
   where handle ex = case ex of
                            (DynException dyn) ->
                                 case fromDynamic dyn of