diff options
author | Joey Hess <joey@kitenet.net> | 2013-12-10 15:46:12 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-12-10 15:46:12 -0400 |
commit | a0aab76ae762614041720dd55d63ed3e0b7c1c94 (patch) | |
tree | 03a7aeb1a01ab7428565554f06a8adae0e190311 /Utility/Process.hs | |
parent | 7822ea69246fb0415c0794bcab721a2111735496 (diff) | |
download | git-repair-a0aab76ae762614041720dd55d63ed3e0b7c1c94.tar.gz |
sync from git-annex
Diffstat (limited to 'Utility/Process.hs')
-rw-r--r-- | Utility/Process.hs | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/Utility/Process.hs b/Utility/Process.hs index 398e8a3..03cbe95 100644 --- a/Utility/Process.hs +++ b/Utility/Process.hs @@ -22,6 +22,7 @@ module Utility.Process ( createProcessChecked, createBackgroundProcess, processTranscript, + processTranscript', withHandle, withBothHandles, withQuietOutput, @@ -162,10 +163,13 @@ createBackgroundProcess p a = a =<< createProcess p - returns a transcript combining its stdout and stderr, and - whether it succeeded or failed. -} processTranscript :: String -> [String] -> (Maybe String) -> IO (String, Bool) +processTranscript cmd opts input = processTranscript' cmd opts Nothing input + +processTranscript' :: String -> [String] -> Maybe [(String, String)] -> (Maybe String) -> IO (String, Bool) #ifndef mingw32_HOST_OS {- This implementation interleves stdout and stderr in exactly the order - the process writes them. -} -processTranscript cmd opts input = do +processTranscript' cmd opts environ input = do (readf, writef) <- createPipe readh <- fdToHandle readf writeh <- fdToHandle writef @@ -174,6 +178,7 @@ processTranscript cmd opts input = do { std_in = if isJust input then CreatePipe else Inherit , std_out = UseHandle writeh , std_err = UseHandle writeh + , env = environ } hClose writeh @@ -195,12 +200,13 @@ processTranscript cmd opts input = do return (transcript, ok) #else {- This implementation for Windows puts stderr after stdout. -} -processTranscript cmd opts input = do +processTranscript' cmd opts environ input = do p@(_, _, _, pid) <- createProcess $ (proc cmd opts) { std_in = if isJust input then CreatePipe else Inherit , std_out = CreatePipe , std_err = CreatePipe + , env = environ } getout <- mkreader (stdoutHandle p) |