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

move, copy: Support --batch.

Browse source
This commit is contained in:
Joey Hess 2017-08-15 12:39:10 -04:00
parent 8526cd7c92
commit 2eb6309d3e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
6 changed files with 49 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Command/Copy.hs
View file

@ -35,11 +35,15 @@ instance DeferredParseClass CopyOptions where
<*> pure (autoMode v)
seek :: CopyOptions -> CommandSeek
seek o = allowConcurrentOutput $
withKeyOptions (Command.Move.keyOptions $ moveOptions o) (autoMode o)
(Command.Move.startKey (moveOptions o) False)
(withFilesInGit $ whenAnnexed $ start o)
(Command.Move.moveFiles $ moveOptions o)
seek o = allowConcurrentOutput $ do
let go = whenAnnexed $ start o
case Command.Move.batchOption (moveOptions o) of
Batch -> batchInput Right (batchCommandAction . go)
NoBatch -> withKeyOptions
(Command.Move.keyOptions $ moveOptions o) (autoMode o)
(Command.Move.startKey (moveOptions o) False)
(withFilesInGit go)
(Command.Move.moveFiles $ moveOptions o)
{- A copy is just a move that does not delete the source file.
- However, auto mode avoids unnecessary copies, and avoids getting or