diff options
-rw-r--r-- | Command/AddUrl.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index b5ec929a4..406682e73 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -158,8 +158,8 @@ performRemote r o uri file sz = ifAnnexed file adduri geturi loguri = setDownloader uri OtherDownloader adduri = addUrlChecked o loguri file (Remote.uuid r) checkexistssize checkexistssize key = return $ case sz of - Nothing -> (True, True, uri) - Just n -> (True, n == fromMaybe n (keySize key), uri) + Nothing -> (True, True, loguri) + Just n -> (True, n == fromMaybe n (keySize key), loguri) geturi = next $ isJust <$> downloadRemoteFile r (downloadOptions o) uri file sz downloadRemoteFile :: Remote -> DownloadOptions -> URLString -> FilePath -> Maybe Integer -> Annex (Maybe Key) |