From 712deee42b122f0ec07866e6bd7770343cee971c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 16 Jun 2015 16:50:03 -0400 Subject: sync: Add support for --all and --unused. --- CmdLine/GitAnnex/Options.hs | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) (limited to 'CmdLine/GitAnnex') diff --git a/CmdLine/GitAnnex/Options.hs b/CmdLine/GitAnnex/Options.hs index 46d593618..320268f6a 100644 --- a/CmdLine/GitAnnex/Options.hs +++ b/CmdLine/GitAnnex/Options.hs @@ -53,13 +53,15 @@ gitAnnexOptions = commonOptions ++ -- Options for matching on annexed keys, rather than work tree files. keyOptions :: [Option] -keyOptions = - [ Option ['A'] ["all"] (NoArg (Annex.setFlag "all")) - "operate on all versions of all files" - , Option ['U'] ["unused"] (NoArg (Annex.setFlag "unused")) - "operate on files found by last run of git-annex unused" - , keyOption - ] +keyOptions = [ allOption, unusedOption, keyOption] + +allOption :: Option +allOption = Option ['A'] ["all"] (NoArg (Annex.setFlag "all")) + "operate on all versions of all files" + +unusedOption :: Option +unusedOption = Option ['U'] ["unused"] (NoArg (Annex.setFlag "unused")) + "operate on files found by last run of git-annex unused" keyOption :: Option keyOption = Option [] ["key"] (ReqArg (Annex.setField "key") paramKey) -- cgit v1.2.3