From ee1bd952f5ad769091f699dfab7def6318282c32 Mon Sep 17 00:00:00 2001
From: Daniel Schüssler <933504+DanielSchuessler@users.noreply.github.com>
Date: Sat, 6 Oct 2018 21:55:16 +0200
Subject: Install handlers only for sigTERM and sigQUIT

---
 src/Signal.hs | 40 +++++++++++++++++++++-------------------
 1 file 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 ->
-- 
cgit v1.2.3