diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-07-08 18:31:05 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-08 18:31:44 -0400 |
| commit | 9617bc68ba9dde3224ab1063defff4c8aa558ac2 (patch) | |
| tree | 95d210b15182e98106244ee9525144e4756748c9 /CmdLine.hs | |
| parent | e5fadb1bbcd0bafc9d2e9c5ded2e644e532baafc (diff) | |
improve --help display for commands
Diffstat (limited to 'CmdLine.hs')
| -rw-r--r-- | CmdLine.hs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/CmdLine.hs b/CmdLine.hs index 89f9964b7..c61a0050c 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -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 |