From 00340dfe493ad71a55f4de2c352fc186792363cd Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 18 Feb 2012 11:44:21 -0400
Subject: [PATCH] don't error out entirely if an url cannot be downloaded

---
 Command/AddUrl.hs | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs
index 3d484a1d3c..459fbc623d 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