[project @ 2004-06-29 19:10:47 by panne]

[ghc-base.git] / GHC / TopHandler.lhs

diff --git a/GHC/TopHandler.lhs b/GHC/TopHandler.lhs
index 884fcf1..8c123a2 100644 (file)
--- a/GHC/TopHandler.lhs
+++ b/GHC/TopHandler.lhs
@@ -74,7 +74,7 @@ reportStackOverflow bombOut = do
 
 reportError :: Bool -> Exception -> IO a
 reportError bombOut ex = do
-   handler <- getUncatchedExceptionHandler
+   handler <- getUncaughtExceptionHandler
    handler ex
    if bombOut
       then exit 1