functor (P : LOGGER_CONFIGURATION) ->
sig
type t = SmartPrint.t
type ('a, 'b) result = ('a, 'b) P.result
val empty : t
val string : string -> t
val sub_string : string -> int -> int -> t
val ( !^ ) : string -> t
val space : t
val newline : t
val append : t -> t -> t
val ( ^-^ ) : t -> t -> t
val concat_with_space : t -> t -> t
val ( ^^ ) : t -> t -> t
val words : string -> t
val lines : string -> t
val indent : t -> t
val nest : t -> t
val nest_all : t -> t
val group : t -> t
val group_all : t -> t
val parens : t -> t
val braces : t -> t
val brakets : t -> t
val angle_brakets : t -> t
val single_quotes : t -> t
val double_quotes : t -> t
val concat : t list -> t
val separate : t -> t list -> t
module OCaml :
sig
val unit : unit -> t
val bool : bool -> t
val int : int -> t
val float : float -> t
val string : string -> t
val option : ('a -> t) -> 'a option -> t
val list : ('a -> t) -> 'a list -> t
val tuple : t list -> t
end
val to_something :
int ->
int ->
(char -> unit) ->
(string -> unit) -> (string -> int -> int -> unit) -> t -> unit
val to_buffer : int -> int -> Buffer.t -> t -> unit
val to_out_channel : int -> int -> out_channel -> t -> unit
val to_stdout : int -> int -> t -> unit
val ( % ) : t -> t -> t
val s : string -> t
val sp : t
val sf : ('a, unit, string, t) format4 -> 'a
val i : int -> t
val f : float -> t
val n : t
val verbatim : string -> t
val exn : exn -> t
val option : f:('a -> t) -> 'a option -> t
val escape : string -> t
val color : string -> t -> t
val bold_red : t -> t
val bold_yellow : t -> t
val bold_green : t -> t
val greyish : t -> t
val to_string : line_width:int -> indent:int -> SmartPrint.t -> string
val to_list :
line_width:int ->
indent:int ->
SmartPrint.t ->
[> `Char of char
| `String of string
| `Sub_string of string * int * int ]
list
val print :
[< `Debug of int | `Error | `Normal | `Warning ] ->
t -> (unit, 'a) result
val ( @ ) :
t ->
[< `Debug of int | `Error | `Normal | `Warning ] -> (unit, 'a) result
val normal : [> `Normal ]
val error : [> `Error ]
val warning : [> `Warning ]
val verbose : [> `Debug of int ]
val very_verbose : [> `Debug of int ]
end