sig
module Style :
sig
type t
val ansi : Color_print.Style.t
val no_formatting : Color_print.Style.t
val ok_or_not : Color_print.Style.t
end
module type T =
sig
val println : string -> unit
val redprintln : string -> unit
val yellowprintln : string -> unit
val greenprintln : string -> unit
val blueprintln : string -> unit
val inverseprintln : string -> unit
val printfln :
('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
val redprintfln :
('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
val yellowprintfln :
('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
val greenprintfln :
('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
val blueprintfln :
('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
val inverseprintfln :
('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
end
type t = (module Color_print.T)
val create :
style:Color_print.Style.t -> oc:Core.Std.Out_channel.t -> Color_print.t
module S : T
val ounit_tests : unit -> OUnit.test
end