mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

improve --help display for commands

Browse source
This commit is contained in:
Joey Hess 2015-07-08 18:31:05 -04:00
parent 60806dd191
commit 3332df2c52
2 changed files with 3 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

9
CmdLine.hs
View file

@ -75,13 +75,10 @@ dispatch fuzzyok allargs allcmds commonoptions fields header getgitrepo = do
parseCmd :: CmdParams -> [Command] -> (Command -> O.Parser v) -> O.ParserResult (Command, v)
parseCmd allargs allcmds getparser = O.execParserPure (O.prefs O.idm) pinfo allargs
where
pinfo = O.info (O.subparser $ mconcat $ map mkcommand allcmds)
( O.fullDesc
<> O.progDesc "hiya"
<> O.header "ook - aaa"
)
pinfo = O.info (O.helper <*> subcmds) O.fullDesc
subcmds = O.subparser $ mconcat $ map mkcommand allcmds
mkcommand c = O.command (cmdname c) $ O.info (mkparser c)
(O.fullDesc <> O.progDesc (cmddesc c))
(O.fullDesc <> O.header (cmddesc c))
mkparser c = (,)
<$> pure c
<*> getparser c