diff options
Diffstat (limited to 'libraries/base/GHC/TopHandler.hs')
-rw-r--r-- | libraries/base/GHC/TopHandler.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/TopHandler.hs b/libraries/base/GHC/TopHandler.hs index d98836988a..bb358a337f 100644 --- a/libraries/base/GHC/TopHandler.hs +++ b/libraries/base/GHC/TopHandler.hs @@ -241,7 +241,7 @@ safeExit = exitHelper useSafeExit fastExit = exitHelper useFastExit unreachable :: IO a -unreachable = fail "If you can read this, shutdownHaskellAndExit did not exit." +unreachable = failIO "If you can read this, shutdownHaskellAndExit did not exit." exitHelper :: CInt -> Int -> IO a #if defined(mingw32_HOST_OS) |