reportStackOverflow now returns IO ()

It used to do "return undefined" to return IO a.

diff --git a/GHC/Conc.lhs b/GHC/Conc.lhs
index d152815..cd501e1 100644 (file)
--- a/GHC/Conc.lhs
+++ b/GHC/Conc.lhs
@@ -1269,8 +1269,8 @@ foreign import ccall unsafe "sizeof_fd_set"
 
 #endif
 
-reportStackOverflow :: IO a
-reportStackOverflow = do callStackOverflowHook; return undefined
+reportStackOverflow :: IO ()
+reportStackOverflow = callStackOverflowHook
 
 reportError :: SomeException -> IO ()
 reportError ex = do