[project @ 2005-01-28 12:55:17 by simonmar]

[ghc-hetmet.git] / ghc / compiler / utils / Panic.lhs

diff --git a/ghc/compiler/utils/Panic.lhs b/ghc/compiler/utils/Panic.lhs
index 7e8b1eb..6251d1b 100644 (file)
--- a/ghc/compiler/utils/Panic.lhs
+++ b/ghc/compiler/utils/Panic.lhs
@@ -21,7 +21,6 @@ module Panic
    ) where
 
 #include "HsVersions.h"
-#include "../includes/ghcconfig.h"
 
 import Config
 import FastTypes
@@ -205,8 +204,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
@@ -221,6 +220,6 @@ installSignalHandlers = do
   installHandler (Catch sig_handler)
   return ()
 #else
-  -- nothing
+  return () -- nothing
 #endif
 \end{code}