summaryrefslogtreecommitdiff
path: root/Utility/Process.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-04 18:04:09 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-04 18:04:09 -0400
commitcedb6dc503441bfe54881ec646d86dd777635e7d (patch)
tree7643d8ca5248b750b99b7c6aeaea4205137127fc /Utility/Process.hs
parent929f2a0df8f76caa21f94ea3afe8afc1d2dba14e (diff)
make a pipeReadStrict, that properly waits on the process
Nearly everything that's reading from git is operating on a small amount of output and has been switched to use that. Only pipeNullSplit stuff continues using the lazy version that yields zombies.
Diffstat (limited to 'Utility/Process.hs')
-rw-r--r--Utility/Process.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/Utility/Process.hs b/Utility/Process.hs
index 839cc4078..b47807921 100644
--- a/Utility/Process.hs
+++ b/Utility/Process.hs
@@ -116,8 +116,10 @@ checkSuccessProcess pid = do
code <- waitForProcess pid
return $ code == ExitSuccess
-ignoreFailureProcess :: ProcessHandle -> IO ()
-ignoreFailureProcess = void . waitForProcess
+ignoreFailureProcess :: ProcessHandle -> IO Bool
+ignoreFailureProcess pid = do
+ void $ waitForProcess pid
+ return True
{- Runs createProcess, then an action on its handles, and then
- forceSuccessProcess. -}