sig
type display
type tagline_description = (string * char) list
val create :
?channel:Pervasives.out_channel ->
?mode:[ `Classic | `Sophisticated ] ->
?columns:int ->
?description:Display.tagline_description ->
?log_file:string -> ?log_level:int -> unit -> Display.display
val finish : ?how:[ `Error | `Quiet | `Success ] -> Display.display -> unit
val event :
Display.display -> ?pretend:bool -> string -> string -> Tags.t -> unit
val display : Display.display -> (Pervasives.out_channel -> unit) -> unit
val update : Display.display -> unit
val dprintf :
?log_level:int ->
Display.display -> ('a, Format.formatter, unit) Pervasives.format -> 'a
end