diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-07-07 18:18:57 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-07-07 18:18:57 +0000 |
| commit | 9721c56a206a342c00d623817a2bb4da77755582 (patch) | |
| tree | 1c5221572c7e90e251cbccec8bf43f4d2e64bfbb | |
| parent | 2bdd43c25b00a9483b135c9c9f1908642eb3b9de (diff) | |
| download | haskell-9721c56a206a342c00d623817a2bb4da77755582.tar.gz | |
Fix ignored-monadic-result warnings
| -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 |