From 393de16f52b373eb9d2a7c69509881bf5aa7b912 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 10 Jul 2009 15:26:46 +0000 Subject: [PATCH] GHC.Conc.reportError now returns IO () It used to return IO a, by "return undefined". --- GHC/Conc.lhs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/GHC/Conc.lhs b/GHC/Conc.lhs index 67a2199..d152815 100644 --- 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. -- 1.7.10.4