unfinished switch to using git-annex-shell
This commit is contained in:
parent
a5a302b77d
commit
f38aa3e83a
4 changed files with 23 additions and 25 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue