Explicit case for NoSignalSpecificInfo in signal handler

1 files changed, 2 insertions, 1 deletions

diff --git a/src/Run.hs b/src/Run.hs
index 430a663..ad108e3 100644
--- a/src/Run.hs
+++ b/src/Run.hs
@@ -87,7 +87,8 @@ runTest out opts gdefs test = do
             , tsDisconnectedBridge = S.empty
             }
 
-    let sigHandler SignalInfo { siginfoSpecific = chld } = do
+    let sigHandler SignalInfo { siginfoSpecific = NoSignalSpecificInfo } = return ()
+        sigHandler SignalInfo { siginfoSpecific = chld } = do
             processes <- readMVar procVar
             forM_ processes $ \p -> do
                 mbpid <- either getPid (\_ -> return Nothing) (procHandle p)