mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

unfinished switch to using git-annex-shell

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

4
Command/Move.hs
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