Module Ppx_optcomp__Token

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