From: simonpj <unknown>
Date: Fri, 17 Dec 2004 16:13:27 +0000 (+0000)
Subject: [project @ 2004-12-17 16:13:27 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1335
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=de36fea01327daf52538a5abe63fbc11cda17202;p=ghc-hetmet.git

[project @ 2004-12-17 16:13:27 by simonpj]
Fix breakage in previous commit re signal handling
---

diff --git a/ghc/compiler/utils/Panic.lhs b/ghc/compiler/utils/Panic.lhs
index 7e8b1eb..9347c61 100644
--- a/ghc/compiler/utils/Panic.lhs
+++ b/ghc/compiler/utils/Panic.lhs
@@ -205,8 +205,8 @@ installSignalHandlers = do
       interrupt = throwTo main_thread interrupt_exn
   --
 #if !defined(mingw32_HOST_OS)
-  installHandler sigQUIT interrupt Nothing 
-  installHandler sigINT  interrupt Nothing
+  installHandler sigQUIT (Catch interrupt) Nothing 
+  installHandler sigINT  (Catch interrupt) Nothing
   return ()
 #elif __GLASGOW_HASKELL__ >= 603
   -- GHC 6.3+ has support for console events on Windows