unfinished switch to using git-annex-shell

This commit is contained in:
Joey Hess 2010-12-30 20:31:52 -04:00
parent a5a302b77d
commit f38aa3e83a
4 changed files with 23 additions and 25 deletions

View file

@ -134,8 +134,8 @@ fromPerform move key = do
else return Nothing -- fail
fromCleanup :: Bool -> Git.Repo -> Key -> CommandCleanup
fromCleanup True remote key = do
ok <- Remotes.runCmd remote "git-annex"
["dropkey", "--quiet", "--force",
ok <- Remotes.onRemote remote "dropkey"
["--quiet", "--force",
"--backend=" ++ backendName key,
keyName key]
remoteHasKey remote key False