rename --ingroup to --inallgroup
This commit is contained in:
parent
725b6b5156
commit
b6ce003843
5 changed files with 15 additions and 9 deletions
10
Limit.hs
10
Limit.hs
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue