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,
#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