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

few more subcommand --help improvements

Browse source
This commit is contained in:
Joey Hess 2015-07-09 01:53:15 -04:00
parent d8d1499229
commit bd9ed413ce
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
CmdLine.hs
View file

@ -82,9 +82,9 @@ parseCmd :: CmdParams -> [Command] -> (Command -> O.Parser v) -> O.ParserResult
parseCmd allargs allcmds getparser = O.execParserPure (O.prefs O.idm) pinfo allargs parseCmd allargs allcmds getparser = O.execParserPure (O.prefs O.idm) pinfo allargs
where where
pinfo = O.info (O.helper <*> subcmds) O.fullDesc pinfo = O.info (O.helper <*> subcmds) O.fullDesc
subcmds = O.subparser $ mconcat $ map mkcommand allcmds subcmds = O.hsubparser $ mconcat $ map mkcommand allcmds
mkcommand c = O.command (cmdname c) $ O.info (mkparser c) mkcommand c = O.command (cmdname c) $ O.info (mkparser c)
(O.fullDesc <> O.header (cmddesc c)) (O.fullDesc <> O.header (cmddesc c) <> O.progDesc (cmddesc c))
mkparser c = (,) mkparser c = (,)
<$> pure c <$> pure c
<*> getparser c <*> getparser c