diff options
Diffstat (limited to 'CmdLine.hs')
| -rw-r--r-- | CmdLine.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/CmdLine.hs b/CmdLine.hs index fd85248fb..b4e0ea044 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -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 where 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) - (O.fullDesc <> O.header (cmddesc c)) + (O.fullDesc <> O.header (cmddesc c) <> O.progDesc (cmddesc c)) mkparser c = (,) <$> pure c <*> getparser c |