Module Expectation.Body

type 'a t =
  1. | Exact of string
  2. | Output
  3. | Pretty of 'a
  4. | Unreachable
val sexp_of_t : ('a -> Ppx_sexp_conv_lib.Sexp.t) -> 'a t -> Ppx_sexp_conv_lib.Sexp.t
val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val map_pretty : 'a t -> f:('a -> 'b) -> 'b t