diff options
| -rw-r--r-- | Command/AddUrl.hs | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index 3d484a1d3..459fbc623 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -80,11 +80,14 @@ download url file = do nodownload :: String -> FilePath -> CommandPerform nodownload url file = do (exists, size) <- liftIO $ Url.exists url - unless exists $ - error $ "unable to access url: " ++ url - let key = Backend.URL.fromUrl url size - setUrlPresent key url - next $ Command.Add.cleanup file key False + if exists + then do + let key = Backend.URL.fromUrl url size + setUrlPresent key url + next $ Command.Add.cleanup file key False + else do + warning $ "unable to access url: " ++ url + stop url2file :: URI -> Maybe Int -> FilePath url2file url pathdepth = case pathdepth of |