Update to cmdliner.1.1.0

ocaml-multicore · Feb 17, 2022 · 9485626 · 9485626
1 parent ce75b60
commit 9485626
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 6 deletions.
diff --git a/dune-project b/dune-project
@@ -34,6 +34,7 @@
   (mdx (and (>= 1.10.0) :with-test))
   (logs (>= 0.7.0))
   (fmt (>= 0.8.9))
+  (cmdliner (and (>= 1.1.0) :with-test))
   (uring (>= 0.2))))
 (package
  (name eio_luv)

diff --git a/eio_linux.opam b/eio_linux.opam
@@ -16,6 +16,7 @@ depends: [
   "mdx" {>= "1.10.0" & with-test}
   "logs" {>= "0.7.0"}
   "fmt" {>= "0.8.9"}
+  "cmdliner" {>= "1.1.0" & with-test}
   "uring" {>= "0.2"}
   "odoc" {with-doc}
 ]

diff --git a/lib_eio_linux/tests/eurcp.ml b/lib_eio_linux/tests/eurcp.ml
@@ -26,11 +26,11 @@ let cmd =
         `S "DESCRIPTION";
         `P "$(tname) copies a file using Linux io_uring.";
       ]
-    in
-    ( Term.(pure Eurcp_lib.run_cp $ block_size $ queue_depth $ infile $ outfile $ setup_log),
-      Term.info "eurcp" ~version:"1.0.0" ~doc ~man )
+  in
+  let info = Cmd.info "eurcp" ~version:"1.0.0" ~doc ~man in
+  Cmd.v info Term.(const Eurcp_lib.run_cp $ block_size $ queue_depth $ infile $ outfile $ setup_log)
 
 let () =
-  match Term.eval cmd with
-  | `Error _ -> exit 1
-  | _ -> exit (if Logs.err_count () > 0 then 1 else 0)
+  match Cmd.eval cmd with
+  | 0 -> exit (if Logs.err_count () > 0 then 1 else 0)
+  | _ -> exit 1