X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FTopHandler.lhs;h=2836111475675bc73189d7e90cf2cd6dc91021c7;hb=6e20be4ad2cb641f29e9972aaacd775f82487719;hp=5b07bad278d2905dd19a1c3bd9b0feb08db2fccd;hpb=632f3da3ff5702d42b00521d620dc61b8f6ea048;p=ghc-base.git

diff --git a/GHC/TopHandler.lhs b/GHC/TopHandler.lhs
index 5b07bad..2836111 100644
--- a/GHC/TopHandler.lhs
+++ b/GHC/TopHandler.lhs
@@ -69,7 +69,7 @@ runMainIO main =
 install_interrupt_handler :: IO () -> IO ()
 #ifdef mingw32_HOST_OS
 install_interrupt_handler handler = do
-  GHC.ConsoleHandler.installHandler $
+  _ <- GHC.ConsoleHandler.installHandler $
      Catch $ \event -> 
         case event of
            ControlC -> handler