blob: 324a4d8cd96b4fec09cdf2dc1863e31e1dd45801 (
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 "file" backend
- -}
module BackendFile (backend) where
import Backend
backend = Backend {
name = "file",
getKey = keyValue,
storeFileKey = moveToAnnex,
retrieveKeyFile = copyFromOtherRepo
}
-- direct mapping from filename to key
keyValue :: FilePath -> IO (Maybe Key)
keyValue k = return $ Just $ id k
moveToAnnex :: FilePath -> Key -> IO (Bool)
moveToAnnex file key = return False
copyFromOtherRepo :: IO Key -> FilePath -> IO (Bool)
copyFromOtherRepo key file = return False
|
