module Directive : sig ... end
type 'a t
=
| Block of 'a Base.list | (** blocks with no optcomp extensions in it *) |
| Directive of Directive.t * Ppxlib.location * Ppxlib.payload |
val make_directive : string ‑> Ppxlib.location ‑> Ppxlib.payload ‑> 'a t
val just_directives_exn : loc:Ppxlib.Location.t ‑> 'a t Base.List.t ‑> 'b t Base.List.t