staticvoid
/
4r
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add --help to every subcommand

main
staticvoid 2022-06-29 14:52:29 +03:00
parent 8d7a8d3e56
commit 1975fc3eda
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/Cli.hs
View File

@ -40,18 +40,21 @@ choiceParser :: Parser Choice
choiceParser = foldl1 (<|>) choiceParser = foldl1 (<|>)
[ subparser [ subparser
(command "ss" (info (command "ss" (info
(pure GetSections) (pure GetSections
<**> helper)
(progDesc "Request list of sections"))) (progDesc "Request list of sections")))
, subparser , subparser
(command "ts" (info (command "ts" (info
(GetTopics <$> (Just <$> option auto (metavar "MAX_ENTRIES_NUMBER" (GetTopics <$> (Just <$> option auto (metavar "MAX_ENTRIES_NUMBER"
<> long "max-entries" <> long "max-entries"
<> short 'm' <> short 'm'
<> help "max number of entries"))) <> help "max number of entries"))
<**> helper)
(progDesc "Request list of topics"))) (progDesc "Request list of topics")))
, subparser , subparser
(command "t" (info (command "t" (info
(GetTopic <$> argument auto (metavar "TOPIC_ID")) (GetTopic <$> argument auto (metavar "TOPIC_ID")
<**> helper)
(progDesc "Request a topic"))) (progDesc "Request a topic")))
] ]