diff options
| -rw-r--r-- | Command/AddUrl.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index 67f883d69..426bc372c 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -243,7 +243,7 @@ addUrlFile :: Bool -> URLString -> Url.UrlInfo -> FilePath -> Annex (Maybe Key) addUrlFile relaxed url urlinfo file = do liftIO $ createDirectoryIfMissing True (parentDir file) ifM (Annex.getState Annex.fast <||> pure relaxed) - ( nodownload relaxed url urlinfo file + ( nodownload url urlinfo file , downloadWeb url urlinfo file ) @@ -303,8 +303,8 @@ cleanup u url file key mtmp = do Annex.Queue.flush maybe noop (moveAnnex key) mtmp -nodownload :: Bool -> URLString -> Url.UrlInfo -> FilePath -> Annex (Maybe Key) -nodownload relaxed url urlinfo file +nodownload :: URLString -> Url.UrlInfo -> FilePath -> Annex (Maybe Key) +nodownload url urlinfo file | Url.urlExists urlinfo = do key <- Backend.URL.fromUrl url (Url.urlSize urlinfo) cleanup webUUID url file key Nothing |