convert all commands to work with optparse-applicative

Still no options though.
This commit is contained in:
Joey Hess 2015-07-08 15:08:02 -04:00
parent 3125da54f6
commit 6e5c1f8db3
99 changed files with 391 additions and 297 deletions

View file

@ -45,13 +45,13 @@ import Annex.MetaData
cmd :: Command
cmd = notBareRepo $ withOptions [templateOption, relaxedOption, rawOption] $
command "importfeed" (paramRepeating paramUrl) seek
SectionCommon "import files from podcast feeds"
command "importfeed" SectionCommon "import files from podcast feeds"
(paramRepeating paramUrl) (withParams seek)
templateOption :: Option
templateOption = fieldOption [] "template" paramFormat "template for filenames"
seek :: CommandSeek
seek :: CmdParams -> CommandSeek
seek ps = do
tmpl <- getOptionField templateOption return
relaxed <- getOptionFlag relaxedOption