diff options
Diffstat (limited to 'libraries/base/GHC/TopHandler.hs')
-rw-r--r-- | libraries/base/GHC/TopHandler.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libraries/base/GHC/TopHandler.hs b/libraries/base/GHC/TopHandler.hs index 58da871729..1b1e065831 100644 --- a/libraries/base/GHC/TopHandler.hs +++ b/libraries/base/GHC/TopHandler.hs @@ -94,7 +94,7 @@ runMainIO main = topHandler install_interrupt_handler :: IO () -> IO () -#ifdef mingw32_HOST_OS +#if defined(mingw32_HOST_OS) install_interrupt_handler handler = do _ <- GHC.ConsoleHandler.installHandler $ Catch $ \event -> @@ -244,7 +244,7 @@ unreachable :: IO a unreachable = fail "If you can read this, shutdownHaskellAndExit did not exit." exitHelper :: CInt -> Int -> IO a -#ifdef mingw32_HOST_OS +#if defined(mingw32_HOST_OS) exitHelper exitKind r = shutdownHaskellAndExit (fromIntegral r) exitKind >> unreachable #else @@ -266,7 +266,7 @@ foreign import ccall "shutdownHaskellAndSignal" exitInterrupted :: IO a exitInterrupted = -#ifdef mingw32_HOST_OS +#if defined(mingw32_HOST_OS) safeExit 252 #else -- we must exit via the default action for SIGINT, so that the |