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

don't error out entirely if an url cannot be downloaded

Browse source
This commit is contained in:
Joey Hess 2012-02-18 11:44:21 -04:00
parent 0fada43808
commit 00340dfe49
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Command/AddUrl.hs
View file

@ -80,11 +80,14 @@ download url file = do
nodownload :: String -> FilePath -> CommandPerform nodownload :: String -> FilePath -> CommandPerform
nodownload url file = do nodownload url file = do
(exists, size) <- liftIO $ Url.exists url (exists, size) <- liftIO $ Url.exists url
unless exists $ if exists
error $ "unable to access url: " ++ url then do
let key = Backend.URL.fromUrl url size let key = Backend.URL.fromUrl url size
setUrlPresent key url setUrlPresent key url
next $ Command.Add.cleanup file key False next $ Command.Add.cleanup file key False
else do
warning $ "unable to access url: " ++ url
stop
url2file :: URI -> Maybe Int -> FilePath url2file :: URI -> Maybe Int -> FilePath
url2file url pathdepth = case pathdepth of url2file url pathdepth = case pathdepth of