From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 27 Jan 2010 16:29:54 +0000 (+0000)
Subject: fix warning on Windows
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a8a47739b957a51da50677cb9bce4364963ada39;hp=243c043271d295c98ac0f69b4bc8fccca3b61d2d

fix warning on Windows
---

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 ()