`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 *)

`}```
`include sig ... end`
`val sexp_of_t : ('a ‑> Base.Sexp.t) ‑> 'a t ‑> Base.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`