app/main.ml: Added output-format enum to cmdliner doc

This commit is contained in:
rand00 2022-01-28 11:37:00 +01:00
parent 80e9a68e5b
commit 95962767d2

View file

@ -50,7 +50,11 @@ let transitive =
let formats = [ "html", `Html ; "dot", `Dot ; "dot-ui", `Dot_ui ; "text", `Text ]
let output_format =
let doc = "Output format" in
let doc =
let formats_str =
formats |> List.map fst |> String.concat ", "
in
Printf.sprintf "Output format. Can be one of: %s." formats_str in
Arg.(value & opt (Arg.enum formats) `Text & info [ "output-format" ] ~doc)
let file =