Body (ppx_expect.Expect_test_common.Std.Expectation.Body)

type 'a t =

| Exact of Base.string

| Output

| Pretty of 'a

| Unreachable

val sexp_of_t : ('a -> Expect_test_common__.Import.Ppx_sexp_conv_lib.Sexp.t) -> 'a t -> Expect_test_common__.Import.Ppx_sexp_conv_lib.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