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.
This commit is contained in:
parent
ff2eeaf054
commit
2343f99c85
11 changed files with 117 additions and 59 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue