Module Ppxlib__.Ast_pattern0

exception Expected of Ppxlib.Location.t * Ppxlib__.Import.string
val fail : Ppxlib.Location.t -> Ppxlib__.Import.string -> 'a
type context = {
mutable matched : Ppxlib__.Import.int;
}
type ('matched_value, 'k, 'k_result) t =
| T of context -> Ppxlib.Location.t -> 'matched_value -> 'k -> 'k_result