Fix broken validate build.
authorTamar Christina <tamar@zhox.com>
Sun, 6 Nov 2016 22:04:40 +0000 (22:04 +0000)
committerTamar Christina <tamar@zhox.com>
Sun, 6 Nov 2016 22:04:40 +0000 (22:04 +0000)
compiler/utils/Panic.hs

index 6a7e96a..b12d677 100644 (file)
@@ -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)