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

@ -17,14 +17,16 @@ import Annex.Wanted
import qualified Command.Move
cmd :: Command
cmd = withOptions getOptions $ command "get" paramPaths seek
SectionCommon "make content of annexed files available"
cmd = withOptions getOptions $
command "get" SectionCommon
"make content of annexed files available"
paramPaths (withParams seek)
getOptions :: [Option]
getOptions = fromOption : autoOption : jobsOption : annexedMatchingOptions
++ incompleteOption : keyOptions
seek :: CommandSeek
seek :: CmdParams -> CommandSeek
seek ps = do
from <- getOptionField fromOption Remote.byNameWithUUID
auto <- getOptionFlag autoOption