val using : ('a -> 'b) -> 'b t -> 'a t
val const : 'a t -> 'a -> 'b t
val if' : bool -> 'a t -> 'a t
val append : 'a t -> 'a t -> 'a t
val (++) : 'a t -> 'a t -> 'a t
val concat : ?sep:unit t -> 'a t list -> 'a t
val iter : ?sep:unit t -> (('a -> unit) -> 'b -> unit) -> 'a t -> 'b t
val iter_bindings :
?sep:unit t ->
(('a -> 'b -> unit) -> 'c -> unit) ->
('a * 'b) t ->
'c t
val box : ?indent:int -> 'a t -> 'a t
val vbox : ?indent:int -> 'a t -> 'a t
val hvbox : ?indent:int -> 'a t -> 'a t
val hovbox : ?indent:int -> 'a t -> 'a t
val parens : 'a t -> 'a t
val brackets : 'a t -> 'a t
val braces : 'a t -> 'a t
val quote : ?mark:string -> 'a t -> 'a t
val field :
?label:string t ->
?sep:unit t ->
string ->
('b -> 'a) ->
'a t ->
'b t
val record : ?sep:unit t -> 'a t list -> 'a t
val nativeint : nativeint t
val unativeint : nativeint t
val float_dfrac : int -> float t
val float_dsig : int -> float t
val pair : ?sep:unit t -> 'a t -> 'b t -> ('a * 'b) t
val option : ?none:unit t -> 'a t -> 'a option t
val result : ok:'a t -> error:'b t -> ('a, 'b) result t
val list : ?sep:unit t -> 'a t -> 'a list t
val array : ?sep:unit t -> 'a t -> 'a array t
val seq : ?sep:unit t -> 'a t -> 'a Seq.t t
val hashtbl : ?sep:unit t -> ('a * 'b) t -> ('a, 'b) Hashtbl.t t
module Dump : sig ... end
val si_size : scale:int -> string -> int t
val uint64_ns_span : int64 t
type !'a vec = int * (int -> 'a)
val on_bytes : char vec t -> bytes t
val on_string : char vec t -> string t
val ascii : ?w:int -> ?subst:unit t -> unit -> char vec t
val octets : ?w:int -> ?sep:unit t -> unit -> char vec t
val addresses : ?addr:int t -> ?w:int -> 'a vec t -> 'a vec t
val hex : ?w:int -> unit -> char vec t
val paragraphs : string t
val truncated : max:int -> string t
val text_loc : ((int * int) * (int * int)) t
val one_of : ?empty:unit t -> 'a t -> 'a list t
val did_you_mean :
?pre:unit t ->
?post:unit t ->
kind:string ->
'a t ->
('a * 'a list) t
val if_utf_8 : 'a t -> 'a t -> 'a t
type color = [
| `Black
| `Blue
| `Cyan
| `Green
| `Magenta
| `Red
| `White
| `Yellow
]
type style = [
| `Bg of
[ `Black
| `Blue
| `Cyan
| `Green
| `Hi of color
| `Magenta
| `Red
| `White
| `Yellow ]
| `Black
| `Blue
| `Bold
| `Cyan
| `Faint
| `Fg of
[ `Black
| `Blue
| `Cyan
| `Green
| `Hi of color
| `Magenta
| `Red
| `White
| `Yellow ]
| `Green
| `Italic
| `Magenta
| `None
| `Red
| `Reverse
| `Underline
| `White
| `Yellow
]
type style_renderer = [
| `Ansi_tty
| `None
]
val of_to_string : ('a -> string) -> 'a t
val to_to_string : 'a t -> 'a -> string
val prefix : unit t -> 'a t -> 'a t
val suffix : unit t -> 'a t -> 'a t