diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-10-17 13:17:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-10-17 13:17:34 -0400 |
| commit | 8398b9ab4a654f3f6ec570b70229a8a0030e8ab6 (patch) | |
| tree | a4db6e28fdc2c74fc32c11ba591eb8411f63ee72 /Backend/URL.hs | |
| parent | 6d4fc0ca7eb220298e42d368ead57622e80929a3 (diff) | |
cleanup output
Diffstat (limited to 'Backend/URL.hs')
| -rw-r--r-- | Backend/URL.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Backend/URL.hs b/Backend/URL.hs index 9e64e0499..753520766 100644 --- a/Backend/URL.hs +++ b/Backend/URL.hs @@ -9,6 +9,7 @@ import System.Cmd import System.Exit import BackendTypes +import Core backend = Backend { name = "URL", @@ -33,7 +34,8 @@ dummyOk url = return True downloadUrl :: Key -> FilePath -> Annex Bool 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] if (result == ExitSuccess) then return True |