GHC.Conc.reportError now returns IO ()

It used to return IO a, by "return undefined".

diff --git a/GHC/Conc.lhs b/GHC/Conc.lhs
index 67a2199..d152815 100644 (file)
--- a/GHC/Conc.lhs
+++ b/GHC/Conc.lhs
@@ -1272,11 +1272,10 @@ foreign import ccall unsafe "sizeof_fd_set"
 reportStackOverflow :: IO a
 reportStackOverflow = do callStackOverflowHook; return undefined
 
-reportError :: SomeException -> IO a
+reportError :: SomeException -> IO ()
 reportError ex = do
    handler <- getUncaughtExceptionHandler
    handler ex
-   return undefined
 
 -- SUP: Are the hooks allowed to re-enter Haskell land?  If so, remove
 -- the unsafe below.