From de36fea01327daf52538a5abe63fbc11cda17202 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 17 Dec 2004 16:13:27 +0000
Subject: [PATCH] [project @ 2004-12-17 16:13:27 by simonpj] Fix breakage in
 previous commit re signal handling

---
 ghc/compiler/utils/Panic.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4