From: Ian Lynagh <igloo@earth.li>
Date: Fri, 10 Jul 2009 15:26:46 +0000 (+0000)
Subject: GHC.Conc.reportError now returns IO ()
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=393de16f52b373eb9d2a7c69509881bf5aa7b912;p=ghc-base.git

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
--- 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.