Module `Expect_test_common__Expectation.Body`

type 'a t = | Exact of Base.string | Output | Pretty of 'a | Unreachable

val sexp_of_t : ('a -> Base.Sexp.t) -> 'a t -> Base.Sexp.t
val compare : ('a -> 'a -> Base.int) -> 'a t -> 'a t -> Base.int
val equal : ('a -> 'a -> Base.bool) -> 'a t -> 'a t -> Base.bool

val map_pretty : 'a t -> f:('a -> 'b) -> 'b t