Merge pull request #134 from chrisdone/cd/2026-05-28-update-example

chrisdone-artificial · web-flow · commit ac5bf8e1e559 · 2026-05-29T21:05:31.000+01:00
Update commands example
diff --git a/examples/41-commands.hell b/examples/41-commands.hell
@@ -29,7 +29,8 @@ cmdParser =
     )
 
 main = do
-  let opts = Options.info (Main.cmdParser <**> Options.helper) Options.fullDesc
+  let opts = Options.info (Main.cmdParser <**> Options.helper)
+       (Options.fullDesc <> Options.header "Program is distributed AS IS, without ANY warranty claims")
   cmd <- Options.execParser opts
   case cmd of
     Add f    -> Text.putStrLn $ "Adding " <> f

Original file line number	Diff line number	Diff line change
`@@ -29,7 +29,8 @@ cmdParser =`
`29`	`29`	`)`
`30`	`30`
`31`	`31`	`main = do`
`32`		`- let opts = Options.info (Main.cmdParser <**> Options.helper) Options.fullDesc`
	`32`	`+ let opts = Options.info (Main.cmdParser <**> Options.helper)`
	`33`	`+ (Options.fullDesc <> Options.header "Program is distributed AS IS, without ANY warranty claims")`
`33`	`34`	`cmd <- Options.execParser opts`
`34`	`35`	`case cmd of`
`35`	`36`	`Add f -> Text.putStrLn $ "Adding " <> f`