From cedb6dc503441bfe54881ec646d86dd777635e7d Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 4 Oct 2012 18:04:09 -0400
Subject: 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.
---
 Utility/Process.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'Utility')

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. -}
-- 
cgit v1.2.3