changed key to include backend name

This commit is contained in:
Joey Hess 2010-10-14 19:36:11 -04:00
parent c4959fee47
commit b8ba60428a
5 changed files with 40 additions and 29 deletions

View file

@ -29,7 +29,7 @@ backend = Backend {
-- direct mapping from filename to key
keyValue :: FilePath -> Annex (Maybe Key)
keyValue file = return $ Just $ Key file
keyValue file = return $ Just $ Key ((name backend), file)
{- This backend does not really do any independant data storage,
- it relies on the file contents in .git/annex/ in this repo,
@ -44,7 +44,7 @@ dummyRemove url = return True
{- Just check if the .git/annex/ file for the key exists. -}
checkKeyFile :: Key -> Annex Bool
checkKeyFile k = inAnnex backend k
checkKeyFile k = inAnnex k
{- Try to find a copy of the file in one of the remotes,
- and copy it over to this one. -}
@ -97,4 +97,4 @@ copyFromRemote r key file = do
then return ()
else error "cp failed"
getremote = error "get via network not yet implemented!"
location = annexLocation r backend key
location = annexLocation r key