diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-04 18:04:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-04 18:04:09 -0400 |
| commit | cedb6dc503441bfe54881ec646d86dd777635e7d (patch) | |
| tree | 7643d8ca5248b750b99b7c6aeaea4205137127fc /Utility/Process.hs | |
| parent | 929f2a0df8f76caa21f94ea3afe8afc1d2dba14e (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.hs | 6 |
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. -} |