use git-annex-shell configlist

This commit is contained in:
Joey Hess 2010-12-31 15:46:33 -04:00
parent 60df4e5728
commit eac433a84a
4 changed files with 66 additions and 48 deletions

View file

@ -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