better readProcess
This commit is contained in:
parent
1db7d27a45
commit
9fc94d780b
6 changed files with 21 additions and 9 deletions
|
@ -52,7 +52,7 @@ pipeRead params repo = assertLocal repo $
|
|||
- strictly. -}
|
||||
pipeWriteRead :: [CommandParam] -> String -> Repo -> IO String
|
||||
pipeWriteRead params s repo = assertLocal repo $
|
||||
readProcess "git" (toCommand $ gitCommandLine params repo) s
|
||||
writeReadProcess "git" (toCommand $ gitCommandLine params repo) s
|
||||
|
||||
{- Reads null terminated output of a git command (as enabled by the -z
|
||||
- parameter), and splits it. -}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue