diff options
| -rw-r--r-- | compiler/utils/Panic.lhs | 2 | ||||
| -rw-r--r-- | utils/ghc-pkg/Main.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs index 4f78aabc24..f4ca2ab97c 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 5f6f0b9259..f79ebab677 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 |