mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

run git coprocesses with gitEnv

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

5
Git/Command.hs
View file

@ -13,6 +13,7 @@ import System.Process
import Common
import Git
import Git.Types
import qualified Utility.CoProcess as CoProcess
{- Constructs a git command line operating on the specified repo. -}
gitCommandLine :: [CommandParam] -> Repo -> [CommandParam]
@ -80,3 +81,7 @@ reap = do
-- throws an exception when there are no child processes
catchDefaultIO (getAnyProcessStatus False True) Nothing
>>= maybe noop (const reap)
{- Runs a git command as a coprocess. -}
gitCoProcessStart :: [CommandParam] -> Repo -> IO CoProcess.CoProcessHandle
gitCoProcessStart params repo = CoProcess.start "git" (toCommand $ gitCommandLine params repo) (gitEnv repo)