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/Rsync.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/Rsync.hs')
| -rw-r--r-- | Utility/Rsync.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/Rsync.hs b/Utility/Rsync.hs index ce8e9602a..4f4c4eb5d 100644 --- a/Utility/Rsync.hs +++ b/Utility/Rsync.hs @@ -97,8 +97,8 @@ rsyncUrlIsPath s - - The params must enable rsync's --progress mode for this to work. -} -rsyncProgress :: ProgressHandler -> [CommandParam] -> IO Bool -rsyncProgress h = commandMeter parseRsyncProgress h "rsync" . rsyncParamsFixup +rsyncProgress :: OutputHandler -> MeterUpdate -> [CommandParam] -> IO Bool +rsyncProgress oh meter = commandMeter parseRsyncProgress oh meter "rsync" . rsyncParamsFixup {- Strategy: Look for chunks prefixed with \r (rsync writes a \r before - the first progress output, and each thereafter). The first number |