The unpac monorepo manager self-hosting as a monorepo using unpac
Fix doc typo and add better converters in sample code.
+6
-6
+5
-5
vendor/opam/cmdliner/doc/cookbook.mld
+5
-5
vendor/opam/cmdliner/doc/cookbook.mld
···
172
172
Cmd.group (Cmd.info "tool") ~default @@
173
173
[Cmd_import.cmd; Cmd_serve.cmd; Cmd_user.cmd]
174
174
175
-
let main () = Cmd.value' cmd
175
+
let main () = Cmd.eval' cmd
176
176
let () = if !Sys.interactive then () else exit (main ())
177
177
]}
178
178
···
254
254
{[
255
255
let infile =
256
256
let doc = "$(docv) is the file to read from. Use $(b,-) for $(b,stdin)" in
257
-
Arg.(value & opt string "-" & info ["i", "input-file"] ~doc ~docv:"FILE")
257
+
Arg.(value & opt filepath "-" & info ["i", "input-file"] ~doc ~docv:"FILE")
258
258
259
259
let outfile =
260
260
let doc = "$(docv) is the file to write to. Use $(b,-) for $(b,stdout)" in
261
-
Arg.(value & opt string "-" & info ["o", "output-file"] ~doc ~docv:"FILE")
261
+
Arg.(value & opt filepath "-" & info ["o", "output-file"] ~doc ~docv:"FILE")
262
262
]}
263
263
264
264
Here is {!Stdlib} based code to read to a string a file or standard
···
660
660
let flag = Arg.(value & flag & info ["flag"] ~doc:"The flag")
661
661
let infile =
662
662
let doc = "$(docv) is the input file. Use $(b,-) for $(b,stdin)." in
663
-
Arg.(value & pos 0 string "-" & info [] ~doc ~docv:"FILE")
663
+
Arg.(value & pos 0 filepath "-" & info [] ~doc ~docv:"FILE")
664
664
665
665
let cmd =
666
666
let doc = "The tool synopsis is TODO" in
···
696
696
let flag = Arg.(value & flag & info ["flag"] ~doc:"The flag")
697
697
let infile =
698
698
let doc = "$(docv) is the input file. Use $(b,-) for $(b,stdin)." in
699
-
Arg.(value & pos 0 file "-" & info [] ~doc ~docv:"FILE")
699
+
Arg.(value & pos 0 filepath "-" & info [] ~doc ~docv:"FILE")
700
700
701
701
let hey_cmd =
702
702
let doc = "The hey command synopsis is TODO" in
+1
-1
vendor/opam/cmdliner/test/blueprint_cmds.ml
+1
-1
vendor/opam/cmdliner/test/blueprint_cmds.ml
···
12
12
let flag = Arg.(value & flag & info ["flag"] ~doc:"The flag")
13
13
let infile =
14
14
let doc = "$(docv) is the input file. Use $(b,-) for $(b,stdin)." in
15
-
Arg.(value & pos 0 file "-" & info [] ~doc ~docv:"FILE")
15
+
Arg.(value & pos 0 filepath "-" & info [] ~doc ~docv:"FILE")
16
16
17
17
let hey_cmd =
18
18
let doc = "The hey command synopsis is TODO" in