From 280b59024768689feed03db4e7069e12f9605825 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 22 May 2015 22:41:36 -0400
Subject: fromkey, registerurl: Allow urls to be specified instead of keys, and
 generate URL keys.

This is especially useful because the caller doesn't need to generate valid
url keys, which involves some escaping of characters, and may involve
taking a md5sum of the url if it's too long.
---
 Backend/URL.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Backend')

diff --git a/Backend/URL.hs b/Backend/URL.hs
index 8ec270e95..77397bdde 100644
--- a/Backend/URL.hs
+++ b/Backend/URL.hs
@@ -31,8 +31,8 @@ backend = Backend
 	}
 
 {- Every unique url has a corresponding key. -}
-fromUrl :: String -> Maybe Integer -> Annex Key
-fromUrl url size = return $ stubKey
+fromUrl :: String -> Maybe Integer -> Key
+fromUrl url size = stubKey
 	{ keyName = genKeyName url
 	, keyBackendName = "URL"
 	, keySize = size
-- 
cgit v1.2.3