diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-04-03 16:48:30 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-04-03 16:48:30 -0400 |
| commit | d660e2443b99817a33127443e5d7314c99c291fc (patch) | |
| tree | 4ae14e3f1d2c58c4ffd075ccee9d6b59caa0665f /Utility/Process.hs | |
| parent | ff10867b8d11c734bc971f6fa4e86be94c15a7b1 (diff) | |
WIP on making --quiet silence progress, and infra for concurrent progress bars
Diffstat (limited to 'Utility/Process.hs')
| -rw-r--r-- | Utility/Process.hs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/Utility/Process.hs b/Utility/Process.hs index ae09b5958..64363cf6b 100644 --- a/Utility/Process.hs +++ b/Utility/Process.hs @@ -26,6 +26,7 @@ module Utility.Process ( processTranscript', withHandle, withIOHandles, + withOEHandles, withQuietOutput, createProcess, startInteractiveProcess, @@ -268,6 +269,20 @@ withIOHandles creator p a = creator p' $ a . ioHandles , std_err = Inherit } +{- Like withHandle, but passes (stdout, stderr) handles to the action. -} +withOEHandles + :: CreateProcessRunner + -> CreateProcess + -> ((Handle, Handle) -> IO a) + -> IO a +withOEHandles creator p a = creator p' $ a . oeHandles + where + p' = p + { std_in = Inherit + , std_out = CreatePipe + , std_err = CreatePipe + } + {- Forces the CreateProcessRunner to run quietly; - both stdout and stderr are discarded. -} withQuietOutput @@ -306,6 +321,8 @@ stderrHandle _ = error "expected stderrHandle" ioHandles :: (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle) -> (Handle, Handle) ioHandles (Just hin, Just hout, _, _) = (hin, hout) ioHandles _ = error "expected ioHandles" +oeHandles (_, Just hout, Just herr, _) = (hout, herr) +oeHandles _ = error "expected oeHandles" processHandle :: (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle) -> ProcessHandle processHandle (_, _, _, pid) = pid |