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

diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs
index 4f78aab..f4ca2ab 100644
--- a/compiler/utils/Panic.lhs
+++ b/compiler/utils/Panic.lhs
@@ -203,7 +203,7 @@ installSignalHandlers = do
       sig_handler Break    = interrupt
       sig_handler _        = return ()
 
-  installHandler (Catch sig_handler)
+  _ <- installHandler (Catch sig_handler)
   return ()
 #endif