slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor: hledgerCommandMode

Browse Source
This commit is contained in:
Simon Michael 2019-01-29 20:36:34 -08:00
parent c719eb7c67
commit 2442b4f46f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger/Hledger/Cli/CliOptions.hs
View File

@ -246,9 +246,9 @@ type CommandDoc = String
-- flag and argument specs are still required. -- flag and argument specs are still required.
hledgerCommandMode :: CommandDoc -> [Flag RawOpts] -> [(String, [Flag RawOpts])] hledgerCommandMode :: CommandDoc -> [Flag RawOpts] -> [(String, [Flag RawOpts])]
-> [Flag RawOpts] -> ([Arg RawOpts], Maybe (Arg RawOpts)) -> Mode RawOpts -> [Flag RawOpts] -> ([Arg RawOpts], Maybe (Arg RawOpts)) -> Mode RawOpts
hledgerCommandMode tmpl unnamedflaggroup namedflaggroups hiddenflaggroup argsdescr = hledgerCommandMode doc unnamedflaggroup namedflaggroups hiddenflaggroup argsdescr =
case parseCommandDoc tmpl of case parseCommandDoc doc of
Nothing -> error' $ "Could not parse help template:\n"++tmpl++"\n" Nothing -> error' $ "Could not parse command doc:\n"++doc++"\n"
Just (names, shorthelp, longhelplines) -> Just (names, shorthelp, longhelplines) ->
(defCommandMode names) { (defCommandMode names) {
modeHelp = shorthelp modeHelp = shorthelp