diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-10 15:04:18 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-10 15:04:18 -0400 |
commit | cc235192353561a374c431485c6c3834659e0fa6 (patch) | |
tree | 6c092eece822fea609a05acb92850669223c6508 /BackendFile.hs | |
parent | f4d2a05e86df464790fb183148717e7ac7f49cda (diff) |
update
Diffstat (limited to 'BackendFile.hs')
-rw-r--r-- | BackendFile.hs | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/BackendFile.hs b/BackendFile.hs index b1a3be58a..324a4d8cd 100644 --- a/BackendFile.hs +++ b/BackendFile.hs @@ -7,11 +7,18 @@ import Backend backend = Backend { name = "file", - keyvalue = keyValue, - retrievekey = copyFile + getKey = keyValue, + storeFileKey = moveToAnnex, + retrieveKeyFile = copyFromOtherRepo } -- direct mapping from filename to key -keyValue k = Just $ id k +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 -copyFile f = error "unimplemented" |