summaryrefslogtreecommitdiff
path: root/Backend
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-08-06 14:57:22 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-08-06 14:57:22 -0400
commitdede05171bc9431778da72e5e1235c69db9fa38e (patch)
treea9bc1f6fce6e16af835b9d3ff7d647ad0d82583e /Backend
parentdd8e649f49212c46df23f329299c64e13a3c90e1 (diff)
addurl: --fast can be used to avoid immediately downloading the url.
The tricky part about this is that to generate a key, the file must be present already. Worked around by adding (back) an URL key type, which is used for addurl --fast.
Diffstat (limited to 'Backend')
-rw-r--r--Backend/URL.hs28
1 files changed, 28 insertions, 0 deletions
diff --git a/Backend/URL.hs b/Backend/URL.hs
new file mode 100644
index 000000000..f20aa1f95
--- /dev/null
+++ b/Backend/URL.hs
@@ -0,0 +1,28 @@
+{- git-annex "URL" backend -- keys whose content is available from urls.
+ -
+ - Copyright 2011 Joey Hess <joey@kitenet.net>
+ -
+ - Licensed under the GNU GPL version 3 or higher.
+ -}
+
+module Backend.URL (
+ backends,
+ fromUrl
+) where
+
+import Types.Backend
+import Types.Key
+import Types
+
+backends :: [Backend Annex]
+backends = [backend]
+
+backend :: Backend Annex
+backend = Types.Backend.Backend {
+ name = "URL",
+ getKey = const (return Nothing),
+ fsckKey = const (return True)
+}
+
+fromUrl :: String -> Key
+fromUrl url = stubKey { keyName = url, keyBackendName = "URL" }