summaryrefslogtreecommitdiff
path: root/Backend/URL.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-17 13:17:34 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-17 13:17:34 -0400
commit8398b9ab4a654f3f6ec570b70229a8a0030e8ab6 (patch)
treea4db6e28fdc2c74fc32c11ba591eb8411f63ee72 /Backend/URL.hs
parent6d4fc0ca7eb220298e42d368ead57622e80929a3 (diff)
cleanup output
Diffstat (limited to 'Backend/URL.hs')
-rw-r--r--Backend/URL.hs4
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