robur/opam-graph
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
rand00 2022-01-28 11:37:00 +01:00
parent 80e9a68e5b
commit 95962767d2
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
app/main.ml
View file

@ -50,7 +50,11 @@ let transitive =
let formats = [ "html", `Html ; "dot", `Dot ; "dot-ui", `Dot_ui ; "text", `Text ] let formats = [ "html", `Html ; "dot", `Dot ; "dot-ui", `Dot_ui ; "text", `Text ]
let output_format = 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) Arg.(value & opt (Arg.enum formats) `Text & info [ "output-format" ] ~doc)
let file = let file =