val raise_errorf :
?sub:Location.error list->?loc:Location.t ->('a, unit, string, 'b)format4->'a
val argn : int -> string
val attr_int_encoding : Parsetree.attributes ->[> `Int | `String ]
val attr_string : string ->string ->Parsetree.attributes -> string
val attr_key : string ->Parsetree.attributes -> string
val attr_name : string ->Parsetree.attributes -> string
val attr_ser : Parsetree.attributes ->Parsetree.expression option
val attr_desu : Parsetree.attributes ->Parsetree.expression option
val attr_default : Parsetree.attributes ->Parsetree.expression option
type options = {
is_strict : bool;
want_meta : bool;
want_exn : bool;
}
val parse_options : (string * Parsetree.expression) list->options
val poly_fun :
string Location.loc list->Parsetree.expression ->Parsetree.expression
val type_add_attrs :
Parsetree.core_type ->Parsetree.attribute list->Parsetree.core_type
val ser_expr_of_typ : Parsetree.core_type ->Parsetree.expression
val ser_expr_of_only_typ : Parsetree.core_type ->Parsetree.expression
val desu_fold :
path:string list->(Parsetree.expression list->Parsetree.expression)->Parsetree.core_type list->Parsetree.expression
val desu_expr_of_typ :
path:string list->Parsetree.core_type ->Parsetree.expression
val desu_expr_of_only_typ :
path:string list->Parsetree.core_type ->Parsetree.expression
val wrap_runtime : Parsetree.expression ->Parsetree.expression
val ser_type_of_decl :
options:(string * Parsetree.expression) list->path:'a->Parsetree.type_declaration ->Parsetree.core_type
val ser_str_of_record :
string ->Parsetree.label_declaration list->Parsetree.expression
val ser_str_of_type :
options:(string * Parsetree.expression) list->path:string list->Parsetree.type_declaration ->Parsetree.structure_item list
* Parsetree.value_binding list
* Parsetree.structure_item list
val ser_str_of_type_ext :
options:(string * Parsetree.expression) list->path:'a->Parsetree.type_extension ->Parsetree.structure_item list
val error_or : Parsetree.core_type ->Parsetree.core_type
val desu_type_of_decl_poly :
options:(string * Parsetree.expression) list->path:'a->Parsetree.type_declaration ->Parsetree.core_type ->Parsetree.core_type
val desu_type_of_decl :
options:(string * Parsetree.expression) list->path:'a->Parsetree.type_declaration ->Parsetree.core_type
val desu_str_of_record :
is_strict:bool ->error:(string list->Parsetree.expression)->path:string list->(Parsetree.expression ->Parsetree.expression)->Parsetree.label_declaration list->Parsetree.expression
val desu_str_of_type :
options:(string * Parsetree.expression) list->path:string list->Parsetree.type_declaration ->Parsetree.structure_item list
* Parsetree.value_binding list
* Parsetree.structure_item list
val desu_str_of_type_ext :
options:(string * Parsetree.expression) list->path:string list->Parsetree.type_extension ->Parsetree.structure_item list
val ser_sig_of_type :
options:(string * Parsetree.expression) list->path:'a->Parsetree.type_declaration ->Parsetree.signature_item list
val ser_sig_of_type_ext : options:'a->path:'b->'c->'d list
val desu_sig_of_type :
options:(string * Parsetree.expression) list->path:'a->Parsetree.type_declaration ->Parsetree.signature_item list
val desu_sig_of_type_ext : options:'a->path:'b->'c->'d list
val yojson_str_fields :
options:(string * Parsetree.expression) list->path:'a->Parsetree.type_declaration ->Parsetree.structure_item list
val yojson_sig_fields :
options:(string * Parsetree.expression) list->path:'a->Parsetree.type_declaration ->Parsetree.signature_item list
val str_of_type :
options:(string * Parsetree.expression) list->path:string list->Parsetree.type_declaration ->Parsetree.structure_item list
* Parsetree.value_binding list
* Parsetree.structure_item list
val str_of_type_to_yojson :
options:(string * Parsetree.expression) list->path:string list->Parsetree.type_declaration ->Parsetree.structure_item list
* Parsetree.value_binding list
* Parsetree.structure_item list
val str_of_type_of_yojson :
options:(string * Parsetree.expression) list->path:string list->Parsetree.type_declaration ->Parsetree.structure_item list
* Parsetree.value_binding list
* Parsetree.structure_item list
val str_of_type_ext :
options:(string * Parsetree.expression) list->path:string list->Parsetree.type_extension ->Parsetree.structure_item list
val sig_of_type :
options:(string * Parsetree.expression) list->path:'a->Parsetree.type_declaration ->Parsetree.signature_item list
val sig_of_type_to_yojson :
options:(string * Parsetree.expression) list->path:'a->Parsetree.type_declaration ->Parsetree.signature_item list
val sig_of_type_of_yojson :
options:(string * Parsetree.expression) list->path:'a->Parsetree.type_declaration ->Parsetree.signature_item list
val sig_of_type_ext : options:'a->path:'b->'c->'d list
val structure :
(options:'a->path:'b->'c->Parsetree.structure_item list
* Parsetree.value_binding list
* Parsetree.structure_item list)->options:'a->path:'b->'c->Parsetree.structure_item list
val on_str_decls :
(options:'a->path:'b->'c->'d list * 'e list * 'f list)->options:'a->path:'b->'c list->'d list * 'e list * 'f list
val on_sig_decls :
(options:'a->path:'b->'c->'d list)->options:'a->path:'b->'c list->'d list