Skip to content

README: Use hsubparser in example code #500

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 1 commit into from
Apr 9, 2025
Merged

README: Use hsubparser in example code #500

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 4 additions & 4 deletions README.md
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -555,7 +555,7 @@ on each command), and commands can be added with the `command`
modifier. For example,

```haskell
subparser
hsubparser
( command "add" (info addCommand ( progDesc "Add a file to the repository" ))
<> command "commit" (info commitCommand ( progDesc "Record changes to the repository" ))
)
Expand All @@ -573,7 +573,7 @@ start :: String -> IO ()
stop :: IO ()

opts :: Parser (IO ())
opts = subparser
opts = hsubparser
( command "start" (info (start <$> argument str idm) idm)
<> command "stop" (info (pure stop) idm) )

Expand Down Expand Up @@ -810,11 +810,11 @@ hello :: Parser Sample
hello = Hello <$> many (argument str (metavar "TARGET..."))

sample :: Parser Sample
sample = subparser
sample = hsubparser
( command "hello" (info hello (progDesc "Print greeting"))
<> command "goodbye" (info (pure Goodbye) (progDesc "Say goodbye"))
)
<|> subparser
<|> hsubparser
( command "bonjour" (info hello (progDesc "Print greeting"))
<> command "au-revoir" (info (pure Goodbye) (progDesc "Say goodbye"))
<> commandGroup "French commands:"
Expand Down