Mavkit_smart_rollup_node.Progress_barSmall wrapper around the Progress library to easily create progress bars for use in the rollup node.
include module type of Progressmodule Line : sig ... endmodule Multi : sig ... endval counter :
?style:[ `ASCII | `Custom of Line.Bar_style.t | `UTF8 ] ->
?message:string ->
?pp:int64 Printer.t ->
int64 ->
int64 Line.tmodule Config : sig ... endmodule Reporter : sig ... endmodule Display : sig ... endval progress_bar :
message:string ->
counter:[ `Bytes | `Int ] ->
?color:Terminal.Color.t ->
int ->
int lineprogress_bar ~message ~counter ~color total creates a progress bar with a message of the specified color to count until total. If counter is `Bytes, the progress bar represents bytes amounts and if `Int, it counts integer units.
val spinner : message:string -> 'a linespinner ~message creates a spinner that can be used to indicate progress for an unknown quantity.
val with_reporter : 'a line -> (('a -> unit) -> 'b) -> 'bSame as Progress.with_reporter but for non tty outputs, only displays the message without animation.
module Lwt : sig ... end