addurl --fast: Verifies that the url can be downloaded (only getting its head), and records the size in the key.

1 files changed, 6 insertions, 2 deletions

diff --git a/Backend/URL.hs b/Backend/URL.hs
index 6406095ca..b3411bac5 100644
--- a/Backend/URL.hs
+++ b/Backend/URL.hs
@@ -24,5 +24,9 @@ backend = Backend {
 	fsckKey = Nothing
 }
 
-fromUrl :: String -> Key
-fromUrl url = stubKey { keyName = url, keyBackendName = "URL" }
+fromUrl :: String -> Maybe Integer -> Key
+fromUrl url size = stubKey
+	{ keyName = url
+	, keyBackendName = "URL"
+	, keySize = size
+	}