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

Fix behavior of onlyingroup

Browse source 
Sponsored-by: k0ld on Patreon
This commit is contained in:
Joey Hess 2023-08-07 13:05:11 -04:00
parent 389b8726fc
commit 6d83bcff0f
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Limit.hs
View file

@ -509,8 +509,9 @@ limitInAllGroup getgroupmap groupname = Right $ MatchFiles
present <- S.fromList <$> Remote.keyLocations key
return $ S.null $ want `S.difference` present
{- Skip files that are only present in repositories that are not in the
- group. -}
{- Skip files unless they are present in at least one repository that is in
- the specified group, and are not present in any repositories that are not
- in the specified group. -}
addOnlyInGroup :: String -> Annex ()
addOnlyInGroup groupname = addLimit $ limitOnlyInGroup groupMap groupname
@ -532,7 +533,8 @@ limitOnlyInGroup getgroupmap groupname = Right $ MatchFiles
check notpresent want key = do
locs <- S.fromList <$> Remote.keyLocations key
let present = locs `S.difference` notpresent
return $ not $ S.null $ present `S.intersection` want
return $ not (S.null $ present `S.intersection` want)
&& S.null (S.filter (`S.notMember` want) present)
{- Adds a limit to skip files not using a specified key-value backend. -}
addInBackend :: String -> Annex ()