started converting to use optparse-applicative
This is a work in progress. It compiles and is able to do basic command dispatch, including git autocorrection, while using optparse-applicative for the core commandline parsing. * Many commands are temporarily disabled before conversion. * Options are not wired in yet. * cmdnorepo actions don't work yet. Also, removed the [Command] list, which was only used in one place.
This commit is contained in:
parent
4018e5f6f1
commit
a2ba701056
104 changed files with 435 additions and 370 deletions
|
@ -17,7 +17,7 @@ import Types.StandardGroups
|
|||
|
||||
import qualified Data.Map as M
|
||||
|
||||
cmd :: [Command]
|
||||
cmd :: Command
|
||||
cmd = cmd' "wanted" "get or set preferred content expression"
|
||||
preferredContentMapRaw
|
||||
preferredContentSet
|
||||
|
@ -27,8 +27,8 @@ cmd'
|
|||
-> String
|
||||
-> Annex (M.Map UUID PreferredContentExpression)
|
||||
-> (UUID -> PreferredContentExpression -> Annex ())
|
||||
-> [Command]
|
||||
cmd' name desc getter setter = [command name pdesc seek SectionSetup desc]
|
||||
-> Command
|
||||
cmd' name desc getter setter = command name pdesc seek SectionSetup desc
|
||||
where
|
||||
pdesc = paramPair paramRemote (paramOptional paramExpression)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue