BackendUrl.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{- git-annex "url" backend
 - -}

module BackendUrl (backend) where

import Backend

backend = Backend {
	name = "url",
	keyvalue = keyValue,
	retrievekey = downloadUrl
}

-- cannot generate url from filename
keyValue k = Nothing

downloadUrl k = error "unimplemented"