type 'a t =
| Exact of Base.string
| Output
| Pretty of 'a
| Unreachable
include Base.Exported_for_specific_uses.Ppx_compare_lib.Comparable.S1
with type 'a t := 'a t
val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int
include Base.Exported_for_specific_uses.Ppx_compare_lib.Equal.S1
with type 'a t := 'a t
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val map_pretty : 'a t -> f:('a -> 'b) -> 'b t