Module `Expect_test_common__Expectation`

module Body : sig ... end

type 'a t = { tag : string option; Tag of the string payload body : 'a Body.t; extid_location : Expect_test_common.File.Location.t; Location of the extension id ("expect" or "expect_exact") body_location : Expect_test_common.File.Location.t; Location of the string payload of the extension point }

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

module Raw : sig ... end

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