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

cleanup output

Browse source
This commit is contained in:
Joey Hess 2010-10-17 13:17:34 -04:00
parent 6d4fc0ca7e
commit 8398b9ab4a
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Backend/URL.hs
View file

@ -9,6 +9,7 @@ import System.Cmd
import System.Exit import System.Exit
import BackendTypes import BackendTypes
import Core
backend = Backend { backend = Backend {
name = "URL", name = "URL",
@ -33,7 +34,8 @@ dummyOk url = return True
downloadUrl :: Key -> FilePath -> Annex Bool downloadUrl :: Key -> FilePath -> Annex Bool
downloadUrl key file = do downloadUrl key file = do
liftIO $ putStrLn $ "download: " ++ url showNote "downloading"
liftIO $ putStrLn "" -- make way for curl progress bar
result <- liftIO $ rawSystem "curl" ["-#", "-o", file, url] result <- liftIO $ rawSystem "curl" ["-#", "-o", file, url]
if (result == ExitSuccess) if (result == ExitSuccess)
then return True then return True