1 files changed, 4 insertions, 0 deletions
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 {..}