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 /Annex | |
| 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 'Annex')
| -rw-r--r-- | Annex/Content.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index 977e92d51..310c43daf 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -565,7 +565,7 @@ downloadUrl urls file = go =<< annexWebDownloadCommand <$> Annex.getGitConfig anyM (\u -> a u file uo) urls go (Just basecmd) = anyM (downloadcmd basecmd) urls downloadcmd basecmd url = - progressCommand stderr "sh" [Param "-c", Param $ gencmd url basecmd] + progressCommand "sh" [Param "-c", Param $ gencmd url basecmd] <&&> liftIO (doesFileExist file) gencmd url = massReplace [ ("%file", shellEscape file) |