fix(ocaml-tty,ocaml-wire): resolve all merlint issues (0 remaining)

ocaml-tty (92→0):
- E205: Printf→Fmt in gen_corpus.ml, test_progress.ml, minimal_progress.ml
- E330: rename tree_view→view in tree.ml
- E400/E405/E410: add missing docs in color.mli, style.mli, border.mli,
table.mli, width.mli; fuzz_tty.mli module doc
- E600/E617: create 9 test_*.mli files; lowercase all suite names
- E618: add explicit modules list to test stanza in test/dune
- E718/E725: create fuzz/fuzz.ml runner; suite name "tty"

ocaml-wire (109→0):
- E005: extract parse_bf_field, check_all_zeros, encode_bf_accum helpers
- E010: extract emit_field_constraint helpers to reduce nesting in gen_c.ml
- E205: Format→Fmt in test_wire.ml (40 occurrences)
- E216: invalid_arg (Fmt.str) → Fmt.invalid_arg
- E330: rename wire_size_of_* → size_of_* in wire.ml/wire.mli
- E400/E405/E410: add docs in fuzz_wire.mli, diff_gen.mli, wire.mli, wire_c.mli
- E605/E600: create test/c, test/diff-gen, test/diff test files + mlis

Fix callers of renamed APIs across monorepo:
- Tty.Progress.create → Tty.Progress.v
- Tty.Panel.create_lines → Tty.Panel.lines
- Tty.Table.create → Tty.Table.v
- Xdge.create → Xdge.v

Thomas Gazagnaire 3 months ago c50d2cfd 2edfc86f

+9 -9

6 changed files

expand all

bin

cmd_test.ml

lib

opam_sync.ml

progress.ml

pull.ml

push.ml

sync_progress.ml

+2 -2

bin/cmd_test.ml

··· 55 55 56 56 let prebuild ~process_mgr ~timeout dirs = 57 57 let total = List.length dirs in 58 - let bar = Tty.Progress.create ~total "Building" in 58 + let bar = Tty.Progress.v ~total "Building" in 59 59 let build_failures = 60 60 List.filter_map 61 61 (fun dir -> ··· 82 82 83 83 let run_tests_sequential ~process_mgr ~timeout dirs = 84 84 let total = List.length dirs in 85 - let bar = Tty.Progress.create ~total "Testing" in 85 + let bar = Tty.Progress.v ~total "Testing" in 86 86 let results = 87 87 List.map 88 88 (fun dir ->

+2 -2

lib/opam_sync.ml

··· 149 149 150 150 let sync_packages_with_progress ~fs ~opam_repo ~label pkgs = 151 151 let total = List.length pkgs in 152 - let progress = Tty.Progress.create ~total label in 152 + let progress = Tty.Progress.v ~total label in 153 153 let sync_results = 154 154 List.mapi 155 155 (fun i pkg -> ··· 433 433 let export_packages ~fs ~target ~packages ~dry_run ~no_commit pkgs = 434 434 if not dry_run then ensure_repo_file ~fs target; 435 435 let total = List.length pkgs in 436 - let progress = Tty.Progress.create ~total "Export" in 436 + let progress = Tty.Progress.v ~total "Export" in 437 437 let sync_results = 438 438 List.mapi 439 439 (fun i pkg ->

+1 -1

lib/progress.ml

··· 14 14 15 15 let v ~total phase_name = 16 16 let msg = Fmt.str "%s (0/%d)" phase_name total in 17 - let progress = Tty.Progress.create ~total msg in 17 + let progress = Tty.Progress.v ~total msg in 18 18 { progress; completed = Atomic.make 0; total; phase_name } 19 19 20 20 let tick t name =

+2 -2

lib/pull.ml

··· 98 98 99 99 let clone_repos ~proc ~fs ~config repos = 100 100 let total = List.length repos in 101 - let progress = Tty.Progress.create ~total "Fetch" in 101 + let progress = Tty.Progress.v ~total "Fetch" in 102 102 let rec loop acc = function 103 103 | [] -> 104 104 Tty.Progress.clear progress; ··· 130 130 131 131 let process_subtrees ~proc ~fs ~config repos checkout_results = 132 132 let total = List.length repos in 133 - let progress = Tty.Progress.create ~total "Subtree" in 133 + let progress = Tty.Progress.v ~total "Subtree" in 134 134 let rec loop results_acc repos_left checkout_results_left = 135 135 match (repos_left, checkout_results_left) with 136 136 | [], [] ->

+1 -1

lib/push.ml

··· 376 376 ~force repos = 377 377 let n_repos = List.length repos in 378 378 let total = if upstream then n_repos * 2 else n_repos in 379 - let progress = Tty.Progress.create ~total "Push" in 379 + let progress = Tty.Progress.v ~total "Push" in 380 380 match export_repos ~proc ~fs ~config ~sources ~clean ~progress repos with 381 381 | Error e -> Error e 382 382 | Ok pushed_repos -> (

+1 -1

lib/sync_progress.ml

Configure Feed

Configure Feed