type t
=
|
Quiet
Low
High
include sig ... end
val t_of_sexp : Base.Sexp.t ‑> t
val sexp_of_t : t ‑> Base.Sexp.t
val set_verbosity : t ‑> unit
val print_high : ('a, Core.Out_channel.t, unit) Core.format ‑> 'a
val print_low : ('a, Core.Out_channel.t, unit) Core.format ‑> 'a