move commandAction out of CmdLine.Seek
This is groundwork for nested seek loops, eg seeking over all files and then performing commandActions on a list of remotes, which can be done concurrently. This commit was sponsored by Boyd Stephen Smith Jr. on Patreon.
This commit is contained in:
parent
47707608b1
commit
53526136e8
80 changed files with 169 additions and 156 deletions
|
@ -35,12 +35,12 @@ optParser desc = FromKeyOptions
|
|||
|
||||
seek :: FromKeyOptions -> CommandSeek
|
||||
seek o = case (batchOption o, keyFilePairs o) of
|
||||
(Batch fmt, _) -> withNothing (startMass fmt) []
|
||||
(Batch fmt, _) -> commandAction $ startMass fmt
|
||||
-- older way of enabling batch input, does not support BatchNull
|
||||
(NoBatch, []) -> withNothing (startMass BatchLine) []
|
||||
(NoBatch, []) -> commandAction $ startMass BatchLine
|
||||
(NoBatch, ps) -> do
|
||||
force <- Annex.getState Annex.force
|
||||
withPairs (start force) ps
|
||||
withPairs (commandAction . start force) ps
|
||||
|
||||
start :: Bool -> (String, FilePath) -> CommandStart
|
||||
start force (keyname, file) = do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue