The unpac monorepo manager self-hosting as a monorepo using unpac
Formatting
+10
-11
+2
-2
vendor/opam/cmdliner/src/cmdliner_manpage.ml
+2
-2
vendor/opam/cmdliner/src/cmdliner_manpage.ml
···
515
515
since POSIX shells do not "pipefail" *)
516
516
match tmp_file_for_pager () with
517
517
| None -> false
518
-
| Some tmp ->
519
-
run (strf "%s <%s >%s && %s <%s" groffer f tmp pager tmp)
518
+
| Some tmp ->
519
+
run (strf "%s <%s >%s && %s <%s" groffer f tmp pager tmp)
520
520
in
521
521
match find_pager env with
522
522
| None -> print `Plain ppf v
+8
-9
vendor/opam/cmdliner/test/test_shell.ml
+8
-9
vendor/opam/cmdliner/test/test_shell.ml
···
44
44
Arg.(value & pos_all arg_conv [] & info [] ~doc ~docv:"ARG")
45
45
and+ message =
46
46
let doc = "Use me to test the Message directive in completion" in
47
-
Arg.(value
48
-
& opt
49
-
(some Conv.(of_conv ~completion:(
50
-
Arg.Completion.make ?context:None
51
-
(fun _ ~token:_ -> Error "whoops! This is a message!"))
52
-
string)
53
-
)
54
-
None
55
-
& info ["message"] ~doc)
47
+
let msg_conv =
48
+
let completion =
49
+
let complete _ ~token:_ = Error "whoops! This is a message!" in
50
+
Arg.Completion.make ?context:None complete
51
+
in
52
+
Arg.Conv.of_conv ~completion Arg.string
53
+
in
54
+
Arg.(value & opt (some msg_conv) None & info ["message"] ~doc)
56
55
in
57
56
tool ~file ~dir ~path ~choice ~cmd ~message
58
57