Module Ast_405.Ast_mapper

module Ast_mapper: sig .. end

type mapper = {

	`attribute : mapper -> Ast_405.Parsetree.attribute -> Ast_405.Parsetree.attribute;`
	`attributes : mapper -> Ast_405.Parsetree.attribute list -> Ast_405.Parsetree.attribute list;`
	`case : mapper -> Ast_405.Parsetree.case -> Ast_405.Parsetree.case;`
	`cases : mapper -> Ast_405.Parsetree.case list -> Ast_405.Parsetree.case list;`
	`class_declaration : mapper -> Ast_405.Parsetree.class_declaration -> Ast_405.Parsetree.class_declaration;`
	`class_description : mapper -> Ast_405.Parsetree.class_description -> Ast_405.Parsetree.class_description;`
	`class_expr : mapper -> Ast_405.Parsetree.class_expr -> Ast_405.Parsetree.class_expr;`
	`class_field : mapper -> Ast_405.Parsetree.class_field -> Ast_405.Parsetree.class_field;`
	`class_signature : mapper -> Ast_405.Parsetree.class_signature -> Ast_405.Parsetree.class_signature;`
	`class_structure : mapper -> Ast_405.Parsetree.class_structure -> Ast_405.Parsetree.class_structure;`
	`class_type : mapper -> Ast_405.Parsetree.class_type -> Ast_405.Parsetree.class_type;`
	`class_type_declaration : mapper -> Ast_405.Parsetree.class_type_declaration -> Ast_405.Parsetree.class_type_declaration;`
	`class_type_field : mapper -> Ast_405.Parsetree.class_type_field -> Ast_405.Parsetree.class_type_field;`
	`constructor_declaration : mapper -> Ast_405.Parsetree.constructor_declaration -> Ast_405.Parsetree.constructor_declaration;`
	`expr : mapper -> Ast_405.Parsetree.expression -> Ast_405.Parsetree.expression;`
	`extension : mapper -> Ast_405.Parsetree.extension -> Ast_405.Parsetree.extension;`
	`extension_constructor : mapper -> Ast_405.Parsetree.extension_constructor -> Ast_405.Parsetree.extension_constructor;`
	`include_declaration : mapper -> Ast_405.Parsetree.include_declaration -> Ast_405.Parsetree.include_declaration;`
	`include_description : mapper -> Ast_405.Parsetree.include_description -> Ast_405.Parsetree.include_description;`
	`label_declaration : mapper -> Ast_405.Parsetree.label_declaration -> Ast_405.Parsetree.label_declaration;`
	`location : mapper -> Location.t -> Location.t;`
	`module_binding : mapper -> Ast_405.Parsetree.module_binding -> Ast_405.Parsetree.module_binding;`
	`module_declaration : mapper -> Ast_405.Parsetree.module_declaration -> Ast_405.Parsetree.module_declaration;`
	`module_expr : mapper -> Ast_405.Parsetree.module_expr -> Ast_405.Parsetree.module_expr;`
	`module_type : mapper -> Ast_405.Parsetree.module_type -> Ast_405.Parsetree.module_type;`
	`module_type_declaration : mapper -> Ast_405.Parsetree.module_type_declaration -> Ast_405.Parsetree.module_type_declaration;`
	`open_description : mapper -> Ast_405.Parsetree.open_description -> Ast_405.Parsetree.open_description;`
	`pat : mapper -> Ast_405.Parsetree.pattern -> Ast_405.Parsetree.pattern;`
	`payload : mapper -> Ast_405.Parsetree.payload -> Ast_405.Parsetree.payload;`
	`signature : mapper -> Ast_405.Parsetree.signature -> Ast_405.Parsetree.signature;`
	`signature_item : mapper -> Ast_405.Parsetree.signature_item -> Ast_405.Parsetree.signature_item;`
	`structure : mapper -> Ast_405.Parsetree.structure -> Ast_405.Parsetree.structure;`
	`structure_item : mapper -> Ast_405.Parsetree.structure_item -> Ast_405.Parsetree.structure_item;`
	`typ : mapper -> Ast_405.Parsetree.core_type -> Ast_405.Parsetree.core_type;`
	`type_declaration : mapper -> Ast_405.Parsetree.type_declaration -> Ast_405.Parsetree.type_declaration;`
	`type_extension : mapper -> Ast_405.Parsetree.type_extension -> Ast_405.Parsetree.type_extension;`
	`type_kind : mapper -> Ast_405.Parsetree.type_kind -> Ast_405.Parsetree.type_kind;`
	`value_binding : mapper -> Ast_405.Parsetree.value_binding -> Ast_405.Parsetree.value_binding;`
	`value_description : mapper -> Ast_405.Parsetree.value_description -> Ast_405.Parsetree.value_description;`
	`with_constraint : mapper -> Ast_405.Parsetree.with_constraint -> Ast_405.Parsetree.with_constraint;`

}

val map_opt : ('a -> 'b) -> 'a option -> 'b option

val default_mapper : mapper

val extension_of_error : Location.error -> Ast_405.Parsetree.extension

val attribute_of_warning : Location.t -> string -> string Location.loc * Ast_405.Parsetree.payload