use git-annex-shell configlist
This commit is contained in:
parent
60df4e5728
commit
eac433a84a
4 changed files with 66 additions and 48 deletions
|
@ -7,6 +7,7 @@
|
|||
|
||||
module Command.Move where
|
||||
|
||||
import Control.Monad (when)
|
||||
import Control.Monad.State (liftIO)
|
||||
|
||||
import Command
|
||||
|
@ -20,6 +21,7 @@ import qualified GitRepo as Git
|
|||
import qualified Remotes
|
||||
import UUID
|
||||
import Messages
|
||||
import Utility
|
||||
|
||||
command :: [Command]
|
||||
command = [Command "move" paramPath seek
|
||||
|
@ -134,10 +136,11 @@ fromPerform move key = do
|
|||
else return Nothing -- fail
|
||||
fromCleanup :: Bool -> Git.Repo -> Key -> CommandCleanup
|
||||
fromCleanup True remote key = do
|
||||
ok <- Remotes.onRemote remote "dropkey"
|
||||
ok <- Remotes.onRemote remote boolSystem False "dropkey"
|
||||
["--quiet", "--force",
|
||||
"--backend=" ++ backendName key,
|
||||
keyName key]
|
||||
remoteHasKey remote key False
|
||||
when ok $
|
||||
remoteHasKey remote key False
|
||||
return ok
|
||||
fromCleanup False _ _ = return True
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue