blob: 9b4c83d618c18931236a6e8d086dc794cb459ee9 (
plain)
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 Backend
backend = Backend {
name = "url",
getKey = keyValue,
storeFileKey = dummyStore,
retrieveKeyFile = downloadUrl
}
-- cannot generate url from filename
keyValue :: FilePath -> IO (Maybe Key)
keyValue k = return Nothing
-- cannot store to urls
dummyStore :: FilePath -> Key -> IO (Bool)
dummyStore file url = return False
downloadUrl :: IO Key -> FilePath -> IO (Bool)
downloadUrl url file = error "unimplemented"
|
