From 50c6c7406ba4c310e3567dc7d812330ef79098d2 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 28 Oct 2013 14:50:17 -0400 Subject: add --want-get and --want-drop options New --want-get and --want-drop options which can be used to test preferred content settings. For example, "git annex find --in . --want-drop" --- GitAnnex/Options.hs | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) (limited to 'GitAnnex/Options.hs') diff --git a/GitAnnex/Options.hs b/GitAnnex/Options.hs index 596cc138f..6359f83a0 100644 --- a/GitAnnex/Options.hs +++ b/GitAnnex/Options.hs @@ -16,6 +16,7 @@ import Types.TrustLevel import qualified Annex import qualified Remote import qualified Limit +import qualified Limit.Wanted import qualified Option options :: [Option] @@ -33,19 +34,23 @@ options = Option.common ++ , Option ['x'] ["exclude"] (ReqArg Limit.addExclude paramGlob) "skip files matching the glob pattern" , Option ['I'] ["include"] (ReqArg Limit.addInclude paramGlob) - "don't skip files matching the glob pattern" + "limit to files matching the glob pattern" , Option ['i'] ["in"] (ReqArg Limit.addIn paramRemote) - "skip files not present in a remote" + "match files present in a remote" , Option ['C'] ["copies"] (ReqArg Limit.addCopies paramNumber) "skip files with fewer copies" , Option ['B'] ["inbackend"] (ReqArg Limit.addInBackend paramName) - "skip files not using a key-value backend" + "match files using a key-value backend" , Option [] ["inallgroup"] (ReqArg Limit.addInAllGroup paramGroup) - "skip files not present in all remotes in a group" + "match files present in all remotes in a group" , Option [] ["largerthan"] (ReqArg Limit.addLargerThan paramSize) - "skip files larger than a size" + "match files larger than a size" , Option [] ["smallerthan"] (ReqArg Limit.addSmallerThan paramSize) - "skip files smaller than a size" + "match files smaller than a size" + , Option [] ["want-get"] (NoArg Limit.Wanted.addWantGet) + "match files preferred content wants to get" + , Option [] ["want-drop"] (NoArg Limit.Wanted.addWantDrop) + "match files preferred-content wants to drop" , Option ['T'] ["time-limit"] (ReqArg Limit.addTimeLimit paramTime) "stop after the specified amount of time" , Option [] ["user-agent"] (ReqArg setuseragent paramName) -- cgit v1.2.3