[project @ 2004-12-17 16:13:27 by simonpj]

Fix breakage in previous commit re signal handling

[project @ 2004-12-17 16:13:27 by simonpj]
Fix breakage in previous commit re signal handling
de36fea0 · simonpj · da1625cf · de36fea0
Commit de36fea0 authored Dec 17, 2004 by simonpj
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

ghc/compiler/utils/Panic.lhs ghc/compiler/utils/Panic.lhs +2 -2

No files found.
--- 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