diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-04-04 14:34:03 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-04-04 14:34:03 -0400 |
| commit | 092e6b0f3f61ad3ede912a00bbbeb635ab9bc267 (patch) | |
| tree | 57107e1a0aaedd9ceff8c4ec33ad1a8fffc6852a /Utility/Process.hs | |
| parent | b3b8a1cdfdc583159c117ebe76e3c6a4eb57114b (diff) | |
well along the way to fully quiet --quiet
Came up with a generic way to filter out progress messages while keeping
errors, for commands that use stderr for both.
--json mode will disable command outputs too.
Diffstat (limited to 'Utility/Process.hs')
| -rw-r--r-- | Utility/Process.hs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/Utility/Process.hs b/Utility/Process.hs index 0f494810c..cbbe8a811 100644 --- a/Utility/Process.hs +++ b/Utility/Process.hs @@ -28,6 +28,7 @@ module Utility.Process ( withIOHandles, withOEHandles, withQuietOutput, + feedWithQuietOutput, createProcess, startInteractiveProcess, stdinHandle, @@ -296,6 +297,21 @@ withQuietOutput creator p = withFile devNull WriteMode $ \nullh -> do } creator p' $ const $ return () +{- Stdout and stderr are discarded, while the process is fed stdin + - from the handle. -} +feedWithQuietOutput + :: CreateProcessRunner + -> CreateProcess + -> (Handle -> IO a) + -> IO a +feedWithQuietOutput creator p a = withFile devNull WriteMode $ \nullh -> do + let p' = p + { std_in = CreatePipe + , std_out = UseHandle nullh + , std_err = UseHandle nullh + } + creator p' $ a . stdinHandle + devNull :: FilePath #ifndef mingw32_HOST_OS devNull = "/dev/null" |