Main: Fixed usage of new Cmdliner interface

This commit is contained in:
rand00 2022-02-21 15:50:09 +01:00
parent d47f1d083d
commit 58591483c0

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