Main: Fixed usage of new Cmdliner interface
This commit is contained in:
parent
d47f1d083d
commit
58591483c0
1 changed files with 4 additions and 3 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue