[commit: ghc] master: Fix broken validate build. (7d988dd)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/7d988dd4b2aa270a3b2c3561b3e930b2dc1a675c/ghc

>---------------------------------------------------------------

commit 7d988dd4b2aa270a3b2c3561b3e930b2dc1a675c
Author: Tamar Christina <tamar at zhox.com>
Date:   Sun Nov 6 22:04:40 2016 +0000

    Fix broken validate build.


>---------------------------------------------------------------

7d988dd4b2aa270a3b2c3561b3e930b2dc1a675c
 compiler/utils/Panic.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/utils/Panic.hs b/compiler/utils/Panic.hs
index 6a7e96a..b12d677 100644
--- a/compiler/utils/Panic.hs
+++ b/compiler/utils/Panic.hs
@@ -290,7 +290,7 @@ withSignalHandlers act = do
   -- uninstall handlers if necessary
   let mayUninstallHandlers = liftIO $ modifyMVar_ signalHandlersRefCount $ \case
         (1,Just hdls)   -> do
-          uninstallHandlers hdls
+          _ <- uninstallHandlers hdls
           return (0,Nothing)
         (c,oldHandlers) -> return (c-1,oldHandlers)