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

Main: Fixed usage of new Cmdliner interface

Browse source
This commit is contained in:
rand00 2022-02-21 15:50:09 +01:00
parent d47f1d083d
commit 58591483c0
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
app/main.ml
View file

@ -62,7 +62,8 @@ let file =
Arg.(required & pos 0 (some file) None & info [ ] ~doc ~docv:"FILE") Arg.(required & pos 0 (some file) None & info [ ] ~doc ~docv:"FILE")
let cmd = let cmd =
Term.(const jump $ setup_log $ transitive $ file $ output_format), let term = Term.(const jump $ setup_log $ transitive $ file $ output_format) in
Term.info "opam_graph" ~version:"%%VERSION%%" let info = Cmd.info "opam_graph" ~version:"%%VERSION%%" in
Cmd.v info term
let () = match Term.eval cmd with `Ok () -> exit 0 | _ -> exit 1 let () = Cmd.eval cmd |> exit