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

new matching options --want-get-by and --want-drop-by

Browse source 
Sponsored-by: Graham Spencer on Patreon
This commit is contained in:
Joey Hess 2022-07-28 13:26:03 -04:00
parent 2bb42fa003
commit be19a68276
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
11 changed files with 65 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/Threads/TransferScanner.hs
View file

@ -171,7 +171,7 @@ expensiveScan urlrenderer rs = batch <~> do
"expensive scan found too many copies of object"
present key af (SeekInput []) [] callCommandAction
ts <- if present
then liftAnnex . filterM (wantSend True (Just key) af . Remote.uuid . fst)
then liftAnnex . filterM (wantGetBy True (Just key) af . Remote.uuid . fst)
=<< use syncDataRemotes (genTransfer Upload False)
else ifM (liftAnnex $ wantGet True (Just key) af)
( use downloadRemotes (genTransfer Download True) , return [] )