The unpac monorepo manager self-hosting as a monorepo using unpac
Merge pull request #50 from patricoferris/cmdliner-update
Cmdliner.1.1.0
authored by
Thomas Leonard
and committed by
GitHub
14e247c4
1ad2a7bd
+14
-12
+1
-1
dune-project
+1
-1
dune-project
···
19
19
(bechamel-notty (and (>= 0.1.0) :with-test))
20
20
(bechamel (and (>= 0.1.0) :with-test))
21
21
(logs (and :with-test (>= 0.5.0)))
22
-
(cmdliner :with-test)
22
+
(cmdliner (and :with-test (>= 1.1.0)))
23
23
(fmt (>= 0.8.10))
24
24
(optint (>= 0.1.0))
25
25
(alcotest (and (>= 1.4.0) :with-test))))
+7
-5
tests/lwtcp.ml
+7
-5
tests/lwtcp.ml
···
27
27
`P "$(tname) copies a file using Linux io_uring.";
28
28
]
29
29
in
30
-
( Term.(pure Lwtcp_lib.run_cp $ block_size $ queue_depth $ infile $ outfile $ setup_log),
31
-
Term.info "lwtcp" ~version:"1.0.0" ~doc ~man )
30
+
let info =
31
+
Cmd.info "lwtcp" ~version:"1.0.0" ~doc ~man
32
+
in
33
+
Cmd.v info Term.(const Lwtcp_lib.run_cp $ block_size $ queue_depth $ infile $ outfile $ setup_log)
32
34
33
35
let () =
34
-
match Term.eval cmd with
35
-
| `Error _ -> exit 1
36
-
| _ -> exit (if Logs.err_count () > 0 then 1 else 0)
36
+
match Cmd.eval cmd with
37
+
| 0 -> exit (if Logs.err_count () > 0 then 1 else 0)
38
+
| _ -> exit 1
+5
-5
tests/urcp.ml
+5
-5
tests/urcp.ml
···
35
35
`P "$(tname) copies a file using Linux io_uring.";
36
36
]
37
37
in
38
-
( Term.(pure run $ fixed $ block_size $ queue_depth $ infile $ outfile $ setup_log),
39
-
Term.info "urcp" ~version:"1.0.0" ~doc ~man )
38
+
let info = Cmd.info "urcp" ~version:"1.0.0" ~doc ~man in
39
+
Cmd.v info Term.(const run $ fixed $ block_size $ queue_depth $ infile $ outfile $ setup_log)
40
40
41
41
let () =
42
-
match Term.eval cmd with
43
-
| `Error _ -> exit 1
44
-
| _ -> exit (if Logs.err_count () > 0 then 1 else 0)
42
+
match Cmd.eval cmd with
43
+
| 0 -> exit (if Logs.err_count () > 0 then 1 else 0)
44
+
| _ -> exit 1
+1
-1
uring.opam
+1
-1
uring.opam