From a8a47739b957a51da50677cb9bce4364963ada39 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 27 Jan 2010 16:29:54 +0000 Subject: [PATCH] fix warning on Windows --- compiler/utils/Panic.lhs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs index 0833de8..ee06777 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 () -- 1.7.10.4