BackendUrl.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

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

module BackendUrl (backend) where

import Types

backend = Backend {
	name = "url",
	getKey = keyValue,
	storeFileKey = dummyStore,
	retrieveKeyFile = downloadUrl
}

-- cannot generate url from filename
keyValue :: GitRepo -> FilePath -> IO (Maybe Key)
keyValue repo file = return Nothing

-- cannot store to urls
dummyStore :: GitRepo -> FilePath -> Key -> IO (Bool)
dummyStore repo file url = return False

downloadUrl :: IO Key -> FilePath -> IO (Bool)
downloadUrl url file = error "downloadUrl unimplemented"