From cad8824852aa0623dc41eac02a9e2bae47d88ec4 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 13 Feb 2012 20:01:37 -0400
Subject: [PATCH] thinko

I removed the now unnecessary forkProcess, but forgot to change back to
pipeBoth, so there was no writer thread.
---
 Git/CheckAttr.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/Git/CheckAttr.hs b/Git/CheckAttr.hs
index 3e9375159a..5c747a9519 100644
--- a/Git/CheckAttr.hs
+++ b/Git/CheckAttr.hs
@@ -16,10 +16,9 @@ import qualified Git.Version
 lookup :: String -> [FilePath] -> Repo -> IO [(FilePath, String)]
 lookup attr files repo = do
 	cwd <- getCurrentDirectory
-	(_, fromh, toh) <- hPipeBoth "git" (toCommand params)
-	hPutStr toh $ join "\0" $ input cwd
-	hClose toh
-	zip files . map attrvalue . lines <$> hGetContents fromh
+	(_, r) <- pipeBoth "git" (toCommand params) $
+		join "\0" $ input cwd
+	return $ zip files $ map attrvalue $ lines r
 	where
 		params = gitCommandLine 
 				[ Param "check-attr"