diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2009-07-01 20:03:44 +0000 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2009-07-01 20:03:44 +0000 |
| commit | 9d0c8f842e35dde3d570580cf62a32779f66a6de (patch) | |
| tree | dbe3743f4ff24c8d4ed7129c780b179275e3748e /compiler/utils/Panic.lhs | |
| parent | ab1d5052de53479377c961d1e966f0cf0b82c592 (diff) | |
| download | haskell-9d0c8f842e35dde3d570580cf62a32779f66a6de.tar.gz | |
Support for -fwarn-unused-do-bind and -fwarn-wrong-do-bind, as per #3263
Diffstat (limited to 'compiler/utils/Panic.lhs')
| -rw-r--r-- | compiler/utils/Panic.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs index a49a68d623..4f78aabc24 100644 --- a/compiler/utils/Panic.lhs +++ b/compiler/utils/Panic.lhs @@ -190,8 +190,8 @@ installSignalHandlers = do (thread:_) -> throwTo thread interrupt_exn -- #if !defined(mingw32_HOST_OS) - installHandler sigQUIT (Catch interrupt) Nothing - installHandler sigINT (Catch interrupt) Nothing + _ <- installHandler sigQUIT (Catch interrupt) Nothing + _ <- installHandler sigINT (Catch interrupt) Nothing return () #else -- GHC 6.3+ has support for console events on Windows |