From c07525ac4692a2ee9c76bd0bd53c195c8164480f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 5 Aug 2025 22:04:11 +0200
Subject: Close handles created for spawned processes

---
 src/Script/Shell.hs | 4 ++++
 1 file changed, 4 insertions(+)

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

diff --git a/src/Script/Shell.hs b/src/Script/Shell.hs
index 9bbf06c..95d4fe4 100644
--- a/src/Script/Shell.hs
+++ b/src/Script/Shell.hs
@@ -69,6 +69,10 @@ spawnShell procNode procName script = do
     ( herr, pstderr ) <- liftIO $ createPipe
     procHandle <- fmap (Right . (, statusVar)) $ forkTestUsing forkOS $ do
         executeScript procNode procName statusVar pstdin pstdout pstderr script
+        liftIO $ do
+            hClose pstdin
+            hClose pstdout
+            hClose pstderr
 
     let procKillWith = Nothing
     let process = Process {..}
-- 
cgit v1.2.3