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

avoid unnessary newlines before progress in quiet mode

Browse source
This commit is contained in:
Joey Hess 2010-10-29 14:10:55 -04:00
parent d92f186fc4
commit 7c0777c60d
3 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Backend/URL.hs
View file

@ -41,7 +41,7 @@ dummyOk url = return True
downloadUrl :: Key -> FilePath -> Annex Bool
downloadUrl key file = do
showNote "downloading"
liftIO $ putStrLn "" -- make way for curl progress bar
showProgress -- make way for curl progress bar
liftIO $ boolSystem "curl" ["-#", "-o", file, url]
where
url = join ":" $ drop 1 $ split ":" $ show key