diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-04-03 20:38:56 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-04-03 20:38:56 -0400 |
| commit | b3b8a1cdfdc583159c117ebe76e3c6a4eb57114b (patch) | |
| tree | 59fea875dd28b37bfe78f157108523b4c8e01305 /Annex | |
| parent | f1cb897e78ca0f972a909ebd0258e1f25e13fb66 (diff) | |
avoid progress bar for url download with --quiet
Diffstat (limited to 'Annex')
| -rw-r--r-- | Annex/Content.hs | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index f91c1e72a..977e92d51 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -57,6 +57,7 @@ import Annex.Link import Annex.Content.Direct import Annex.ReplaceFile import Utility.LockFile +import Messages.Progress {- Checks if a given key's content is currently present. -} inAnnex :: Key -> Annex Bool @@ -555,12 +556,17 @@ saveState nocommit = doSideAction $ do downloadUrl :: [Url.URLString] -> FilePath -> Annex Bool downloadUrl urls file = go =<< annexWebDownloadCommand <$> Annex.getGitConfig where - go Nothing = Url.withUrlOptions $ \uo -> - anyM (\u -> Url.download u file uo) urls - go (Just basecmd) = liftIO $ anyM (downloadcmd basecmd) urls + go Nothing = do + a <- ifM commandProgressDisabled + ( return Url.downloadQuiet + , return Url.download + ) + Url.withUrlOptions $ \uo -> + anyM (\u -> a u file uo) urls + go (Just basecmd) = anyM (downloadcmd basecmd) urls downloadcmd basecmd url = - boolSystem "sh" [Param "-c", Param $ gencmd url basecmd] - <&&> doesFileExist file + progressCommand stderr "sh" [Param "-c", Param $ gencmd url basecmd] + <&&> liftIO (doesFileExist file) gencmd url = massReplace [ ("%file", shellEscape file) , ("%url", shellEscape url) |