mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

make downloadQuiet quiet again

Browse source 
This was broken in commit c64ede23cd
This commit is contained in:
Joey Hess 2015-04-03 20:38:20 -04:00
parent 6d79378346
commit b2ad3403c6
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Utility/Url.hs
View file

@ -205,7 +205,7 @@ downloadQuiet :: URLString -> FilePath -> UrlOptions -> IO Bool
downloadQuiet = download' True downloadQuiet = download' True
download' :: Bool -> URLString -> FilePath -> UrlOptions -> IO Bool download' :: Bool -> URLString -> FilePath -> UrlOptions -> IO Bool
download' quiet url file uo = download' quiet url file uo = do
case parseURIRelaxed url of case parseURIRelaxed url of
Just u Just u
| uriScheme u == "file:" -> do | uriScheme u == "file:" -> do
@ -224,7 +224,7 @@ download' quiet url file uo =
-} -}
#ifndef __ANDROID__ #ifndef __ANDROID__
wgetparams = catMaybes wgetparams = catMaybes
[ if Build.SysConfig.wgetquietprogress [ if Build.SysConfig.wgetquietprogress && not quiet
then Just $ Params "-q --show-progress" then Just $ Params "-q --show-progress"
else Nothing else Nothing
, Just $ Params "--clobber -c -O" , Just $ Params "--clobber -c -O"