converted move to use Remote

Drop old Remotes.hs, now unused!
This commit is contained in:
Joey Hess 2011-03-27 17:24:20 -04:00
parent 48418cb92b
commit a70035e981
3 changed files with 36 additions and 367 deletions

View file

@ -47,7 +47,7 @@ genRemote r = do
name = Git.repoDescribe r,
storeKey = copyToRemote r,
retrieveKeyFile = copyFromRemote r,
removeKey = error "TODO Remote.GitRemote.removeKey",
removeKey = dropKey r,
hasKey = inAnnex r,
hasKeyCheap = not (Git.repoIsUrl r)
}
@ -159,6 +159,13 @@ inAnnex r key = if Git.repoIsUrl r
inannex <- onRemote r (boolSystem, False) "inannex"
[Param (show key)]
return $ Right inannex
dropKey :: Git.Repo -> Key -> Annex Bool
dropKey r key =
onRemote r (boolSystem, False) "dropkey"
[ Params "--quiet --force"
, Param $ show key
]
{- Tries to copy a key's content from a remote's annex to a file. -}
copyFromRemote :: Git.Repo -> Key -> FilePath -> Annex Bool