Module Terminal.Progress_bar

val to_progress : Logs.Color.t -> Terminal_ansi.Color.t
val bar_style : color:Logs.Color.t -> unit -> [> `Custom of Progress.Line.Bar_style.t ] option
val bar : color:Logs.Color.t -> msg:string -> total:int -> int Progress.Line.t
type Stdlib.Effect.t +=
  1. | Progress : int -> unit Stdlib.Effect.t
val signal_progress : int -> unit
val run : ?color:Logs.Color.t -> msg:string -> total:int -> unit -> (unit -> 'a) -> 'a