X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FConc.lhs;h=d1528158d09f24f5058e3ec1be1e5b4f98629b6d;hb=393de16f52b373eb9d2a7c69509881bf5aa7b912;hp=67a2199be8cd3e87ee3b071d28f82224f02a0b3c;hpb=0715d6cc14f7a37f3b8c6fb989615e084483948f;p=ghc-base.git

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.