type 'a with_loc
type 'a t
= 'a Ppx_core.Loc.t
val loc : _ t ‑> Ppx_core.Location.t
val mk : ('a ‑> 'a t) with_loc
val map : ('a ‑> 'b) ‑> 'a t ‑> 'b t
val map_lident : Ppx_core__.Import.string t ‑> Ppx_core.Longident.t t
val lident : (Ppx_core__.Import.string ‑> Ppx_core.Longident.t t) with_loc