run git coprocesses with gitEnv

This commit is contained in:
Joey Hess 2012-09-15 17:25:05 -04:00
parent e1baf48d88
commit 0b63ee6cd5
6 changed files with 12 additions and 6 deletions

View file

@ -22,7 +22,7 @@ type Attr = String
checkAttrStart :: [Attr] -> Repo -> IO CheckAttrHandle
checkAttrStart attrs repo = do
cwd <- getCurrentDirectory
h <- CoProcess.start "git" $ toCommand $ gitCommandLine params repo
h <- gitCoProcessStart params repo
return (h, attrs, cwd)
where
params =