From 13c0b06c814a88378edeb0f80c30f2af6be48954 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Thu, 15 Jan 2026 19:56:20 +0100 Subject: Explicit case for NoSignalSpecificInfo in signal handler --- src/Run.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- cgit v1.2.3