gazagnaire.org
Find and remove dead code and unused APIs in OCaml projects
1(* Progress display that delegates to Tty.Progress *)
2
3type t = { internal : Output.progress; total : int }
4
5let pp fmt progress = Fmt.pf fmt "<progress: %d total>" progress.total
6
7let v ~total =
8 let internal =
9 if total > 0 then Output.progress ~total () else Output.progress ()
10 in
11 { internal; total }
12
13let update progress ~current message =
14 Output.set_progress_current progress.internal current;
15 Output.update_progress progress.internal message
16
17let clear progress = Output.clear_progress progress.internal