From be3eac94b495a015541907d035044a1687aaa4b1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 21 Jun 2025 16:20:46 +0200
Subject: Use current timeout value when waiting for process termination

---
 src/Script/Shell.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Script/Shell.hs')

diff --git a/src/Script/Shell.hs b/src/Script/Shell.hs
index 5c70f2a..9bbf06c 100644
--- a/src/Script/Shell.hs
+++ b/src/Script/Shell.hs
@@ -90,5 +90,5 @@ withShellProcess node pname script inner = do
 
     inner process `finally` do
         ps <- liftIO $ takeMVar procVar
-        closeProcess process `finally` do
+        closeTestProcess process `finally` do
             liftIO $ putMVar procVar $ filter (/=process) ps
-- 
cgit v1.2.3