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

better progress

Browse source
This commit is contained in:
Joey Hess 2010-10-12 17:51:41 -04:00
parent 0561ea1b28
commit 3d2b44ffe5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
BackendUrl.hs
View file

@ -28,7 +28,7 @@ dummyRemove state url = return False
downloadUrl :: State -> Key -> FilePath -> IO Bool downloadUrl :: State -> Key -> FilePath -> IO Bool
downloadUrl state url file = do downloadUrl state url file = do
putStrLn $ "download: " ++ url putStrLn $ "download: " ++ url
result <- try $ rawSystem "curl" ["-o", file, url] result <- try $ rawSystem "curl" ["-#", "-o", file, url]
case (result) of case (result) of
Left _ -> return False Left _ -> return False
Right _ -> return True Right _ -> return True