rename --ingroup to --inallgroup

This commit is contained in:
Joey Hess 2012-10-10 12:59:45 -04:00
parent 725b6b5156
commit b6ce003843
5 changed files with 15 additions and 9 deletions

View file

@ -139,13 +139,13 @@ limitCopies want = case split ":" want of
{- Adds a limit to skip files not believed to be present in all
- repositories in the specified group. -}
addInGroup :: String -> Annex ()
addInGroup groupname = do
addInAllGroup :: String -> Annex ()
addInAllGroup groupname = do
m <- groupMap
addLimit $ limitInGroup m groupname
addLimit $ limitInAllGroup m groupname
limitInGroup :: GroupMap -> MkLimit
limitInGroup m groupname
limitInAllGroup :: GroupMap -> MkLimit
limitInAllGroup m groupname
| S.null want = Right $ const $ const $ return True
| otherwise = Right $ \notpresent ->
Backend.lookupFile >=> check notpresent