diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-01-27 16:29:54 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-01-27 16:29:54 +0000 |
| commit | a8a47739b957a51da50677cb9bce4364963ada39 (patch) | |
| tree | ce9bb8ceb79d69ae974bccf69feddf5b274ad3e4 /compiler/utils | |
| parent | 243c043271d295c98ac0f69b4bc8fccca3b61d2d (diff) | |
| download | haskell-a8a47739b957a51da50677cb9bce4364963ada39.tar.gz | |
fix warning on Windows
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Panic.lhs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs index 0833de87ec..ee0677725d 100644 --- a/compiler/utils/Panic.lhs +++ b/compiler/utils/Panic.lhs @@ -197,14 +197,13 @@ installSignalHandlers = do [] -> return () (thread:_) -> throwTo thread interrupt_exn - fatal_signal n = throwTo main_thread (Signal (fromIntegral n)) - -- #if !defined(mingw32_HOST_OS) _ <- installHandler sigQUIT (Catch interrupt) Nothing _ <- installHandler sigINT (Catch interrupt) Nothing -- see #3656; in the future we should install these automatically for -- all Haskell programs in the same way that we install a ^C handler. + let fatal_signal n = throwTo main_thread (Signal (fromIntegral n)) _ <- installHandler sigHUP (Catch (fatal_signal sigHUP)) Nothing _ <- installHandler sigTERM (Catch (fatal_signal sigTERM)) Nothing return () |