From: Ian Lynagh <igloo@earth.li>
Date: Tue, 7 Jul 2009 18:18:57 +0000 (+0000)
Subject: Fix ignored-monadic-result warnings
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=9721c56a206a342c00d623817a2bb4da77755582

Fix ignored-monadic-result warnings
---

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
 
diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs
index 5f6f0b9..f79ebab 100644
--- a/utils/ghc-pkg/Main.hs
+++ b/utils/ghc-pkg/Main.hs
@@ -1260,7 +1260,7 @@ installSignalHandlers = do
       sig_handler Break    = interrupt
       sig_handler _        = return ()
 
-  installHandler (Catch sig_handler)
+  _ <- installHandler (Catch sig_handler)
   return ()
 #else
   return () -- nothing