summaryrefslogtreecommitdiffhomepage
path: root/src/Signal.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Signal.hs')
-rw-r--r--src/Signal.hs40
1 files changed, 21 insertions, 19 deletions
diff --git a/src/Signal.hs b/src/Signal.hs
index 0948896..74e40e9 100644
--- a/src/Signal.hs
+++ b/src/Signal.hs
@@ -88,26 +88,28 @@ withDeferSignals thing = do
let signals =
filter (not . flip inSignalSet reservedSignals)
- [ sigHUP
- -- , sigINT -- Handler already installed by GHC
- , sigQUIT
- , sigILL
- , sigABRT
- , sigFPE
- , sigSEGV
- --, sigPIPE -- Handler already installed by GHC
- , sigALRM
+ [ sigQUIT
, sigTERM
- , sigBUS
- , sigPOLL
- , sigPROF
- , sigSYS
- , sigTRAP
- , sigVTALRM
- , sigXCPU
- , sigXFSZ
- -- , sigUSR1 -- Handled by setupSignalHandler
- -- , sigUSR2 -- Handled by setupSignalHandler
+ --, sigINT -- Handler already installed by GHC
+ --, sigPIPE -- Handler already installed by GHC
+ --, sigUSR1 -- Handled by setupSignalHandler
+ --, sigUSR2 -- Handled by setupSignalHandler
+
+ -- One of the following appears to cause instability, see #360
+ --, sigHUP
+ --, sigILL
+ --, sigABRT
+ --, sigFPE
+ --, sigSEGV
+ --, sigALRM
+ --, sigBUS
+ --, sigPOLL
+ --, sigPROF
+ --, sigSYS
+ --, sigTRAP
+ --, sigVTALRM
+ --, sigXCPU
+ --, sigXFSZ
]
for_ signals $ \s ->