From 6358f9be49b4e7c0e1fe6b4e97bfca99a8087b03 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 10 Jul 2009 15:32:57 +0000 Subject: [PATCH] reportStackOverflow now returns IO () It used to do "return undefined" to return IO a. --- GHC/Conc.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/GHC/Conc.lhs b/GHC/Conc.lhs index d152815..cd501e1 100644 --- 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 -- 1.7.10.4