rename --ingroup to --inallgroup
This commit is contained in:
parent
725b6b5156
commit
b6ce003843
5 changed files with 15 additions and 9 deletions
|
@ -147,7 +147,7 @@ options = Option.common ++
|
|||
"skip files with fewer copies"
|
||||
, Option ['B'] ["inbackend"] (ReqArg Limit.addInBackend paramName)
|
||||
"skip files not using a key-value backend"
|
||||
, Option [] ["ingroup"] (ReqArg Limit.addInGroup paramGroup)
|
||||
, Option [] ["inallgroup"] (ReqArg Limit.addInAllGroup paramGroup)
|
||||
"skip files not present in all remotes in a group"
|
||||
, Option [] ["largerthan"] (ReqArg Limit.addLargerThan paramSize)
|
||||
"skip files larger than a size"
|
||||
|
|
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
|
||||
|
|
|
@ -102,7 +102,7 @@ parseToken groupmap t
|
|||
, ("inbackend", limitInBackend)
|
||||
, ("largerthan", limitSize (>))
|
||||
, ("smallerthan", limitSize (<))
|
||||
, ("ingroup", limitInGroup groupmap)
|
||||
, ("inallgroup", limitInAllGroup groupmap)
|
||||
]
|
||||
use a = Utility.Matcher.Operation <$> a v
|
||||
|
||||
|
|
6
debian/changelog
vendored
6
debian/changelog
vendored
|
@ -1,3 +1,9 @@
|
|||
git-annex (3.20121010) UNRELEASED; urgency=low
|
||||
|
||||
* Renamed --ingroup to --inallgroup.
|
||||
|
||||
-- Joey Hess <joeyh@debian.org> Wed, 10 Oct 2012 12:59:25 -0400
|
||||
|
||||
git-annex (3.20121009) unstable; urgency=low
|
||||
|
||||
* watch, assistant: It's now safe to git annex unlock files while
|
||||
|
|
|
@ -636,14 +636,14 @@ file contents are present at either of two repositories.
|
|||
|
||||
Matches only files that git-annex believes have the specified number of
|
||||
copies, on remotes in the specified group. For example,
|
||||
"--copies=archival:2"
|
||||
"--copies=archive:2"
|
||||
|
||||
* --inbackend=name
|
||||
|
||||
Matches only files whose content is stored using the specified key-value
|
||||
backend.
|
||||
|
||||
* --ingroup=groupname
|
||||
* --inallgroup=groupname
|
||||
|
||||
Matches only files that git-annex believes are present in all repositories
|
||||
in the specified group.
|
||||
|
|
Loading…
Reference in a new issue