fix relaxed with existing file

1 files changed, 14 insertions, 10 deletions

diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs
index cf8aae17c..ceb35224d 100644
--- a/Command/AddUrl.hs
+++ b/Command/AddUrl.hs
@@ -60,16 +60,20 @@ perform relaxed url file = ifAnnexed file addurl geturl
 		liftIO $ createDirectoryIfMissing True (parentDir file)
 		ifM (Annex.getState Annex.fast <||> pure relaxed)
 			( nodownload relaxed url file , download url file )
-	addurl (key, _backend) = do
-		headers <- getHttpHeaders
-		ifM (liftIO $ Url.check url headers $ keySize key)
-			( do
-				setUrlPresent key url
-				next $ return True
-			, do
-				warning $ "failed to verify url: " ++ url
-				stop
-			)
+	addurl (key, _backend)
+		| relaxed = do
+			setUrlPresent key url
+			next $ return True
+		| otherwise = do
+			headers <- getHttpHeaders
+			ifM (liftIO $ Url.check url headers $ keySize key)
+				( do
+					setUrlPresent key url
+					next $ return True
+				, do
+					warning $ "failed to verify url: " ++ url
+					stop
+				)
 
 download :: String -> FilePath -> CommandPerform
 download url file = do