X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FPanic.lhs;fp=compiler%2Futils%2FPanic.lhs;h=4f78aabc24b16b2746d5becc2079ca6e74366e96;hb=9d0c8f842e35dde3d570580cf62a32779f66a6de;hp=a49a68d6235edc49ee576f5756294ae76dcf3fad;hpb=ab1d5052de53479377c961d1e966f0cf0b82c592;p=ghc-hetmet.git

diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs
index a49a68d..4f78aab 100644
--- a/compiler/utils/Panic.lhs
+++ b/compiler/utils/Panic.lhs
@@ -190,8 +190,8 @@ installSignalHandlers = do
 	   (thread:_) -> throwTo thread interrupt_exn
   --
 #if !defined(mingw32_HOST_OS)
-  installHandler sigQUIT (Catch interrupt) Nothing 
-  installHandler sigINT  (Catch interrupt) Nothing
+  _ <- installHandler sigQUIT (Catch interrupt) Nothing 
+  _ <- installHandler sigINT  (Catch interrupt) Nothing
   return ()
 #else
   -- GHC 6.3+ has support for console events on Windows