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
|
@ -13,14 +13,15 @@ import Annex.Content
|
|||
import Annex.CatFile
|
||||
import Utility.CopyFile
|
||||
|
||||
cmd :: [Command]
|
||||
cmd =
|
||||
[ c "unlock" "unlock files for modification"
|
||||
, c "edit" "same as unlock"
|
||||
]
|
||||
where
|
||||
c n = notDirect . withOptions annexedMatchingOptions
|
||||
. command n paramPaths seek SectionCommon
|
||||
cmd :: Command
|
||||
cmd = mkcmd "unlock" "unlock files for modification"
|
||||
|
||||
editcmd :: Command
|
||||
editcmd = mkcmd "edit" "same as unlock"
|
||||
|
||||
mkcmd :: String -> String -> Command
|
||||
mkcmd n = notDirect . withOptions annexedMatchingOptions
|
||||
. command n paramPaths seek SectionCommon
|
||||
|
||||
seek :: CommandSeek
|
||||
seek = withFilesInGit $ whenAnnexed start
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue