-- NB. this is used by the testsuite driver

-- | The same as 'runIO', but for non-IO computations.  Used for
-- wrapping @foreign export@ and @foreign import \"wrapper\"@ when these
-- are used to export Haskell functions with non-IO types.
--
runNonIO :: a -> IO a
runNonIO a = catch (a `seq` return a) topHandler
runNonIO :: a -> IO a
runNonIO a = catch (a `seq` return a) topHandler
runNonIO a = catch (a `seq` return a) topHandler