Module `Pa_passthru.EF`

type 'a extension_point =
  ('a, Ctxt.t -> (Ctxt.t -> 'a -> 'a) -> 'a option) Extfun.t

type t = {

ctyp : MLast.ctyp extension_point;
generic_constructor : MLast.generic_constructor extension_point;
patt : MLast.patt extension_point;
case_branch : MLast.case_branch extension_point;
expr : MLast.expr extension_point;
module_type : MLast.module_type extension_point;
signature : MLast.sig_item list extension_point;
sig_item : MLast.sig_item extension_point;
with_constr : MLast.with_constr extension_point;
longid : MLast.longid extension_point;
module_expr : MLast.module_expr extension_point;
structure : MLast.str_item list extension_point;
str_item : MLast.str_item extension_point;
type_decl : MLast.type_decl extension_point;
type_extension : MLast.type_extension extension_point;
extension_constructor : MLast.extension_constructor extension_point;
class_type : MLast.class_type extension_point;
class_sig_item : MLast.class_sig_item extension_point;
class_expr : MLast.class_expr extension_point;
class_str_item : MLast.class_str_item extension_point;
attribute_body : MLast.attribute_body extension_point;
implem : ((MLast.str_item * MLast.loc) list * Pcaml.status) extension_point;
interf : ((MLast.sig_item * MLast.loc) list * Pcaml.status) extension_point;
top_phrase : MLast.str_item option extension_point;
use_file : (MLast.str_item list * bool) extension_point;

}

val mk : unit -> t