From: Ian Lynagh <igloo@earth.li>
Date: Fri, 10 Jul 2009 15:32:57 +0000 (+0000)
Subject: reportStackOverflow now returns IO ()
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6358f9be49b4e7c0e1fe6b4e97bfca99a8087b03;p=ghc-base.git

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