Module Ppx_core__.Ast_pattern0

val fail : Ppx_core.Location.t ‑> string ‑> 'a
type context = {
mutable matched : Ppx_core__.Import.int;
}
type ('matched_value, 'k, 'k_result) t =
| T of context ‑> Ppx_core.Location.t ‑> 'matched_value ‑> 'k ‑> 'k_result