type 'a t
=
|
Exact of string
Pretty of 'a
include sig ... end
val sexp_of_t : ('a ‑> Base.Sexp.t) ‑> 'a t ‑> Base.Sexp.t
val compare : ('a ‑> 'a ‑> int) ‑> 'a t ‑> 'a t ‑> int
val map_pretty : 'a t ‑> f:('a ‑> 'b) ‑> 'b t