refl

PPX deriver for reflection
IN THIS PACKAGE
Module Refl . Tools . Object
module Object : sig ... end
include module type of struct include Object end
type ('types, 'structures, 'arity, 'rec_group, 'kinds, 'positive, 'negative, 'direct, 'gadt) t = ( 'types, 'structures, 'arity, 'rec_group, 'kinds, 'positive, 'negative, 'direct, 'gadt ) Object.t = {
structure : ( 'types, 'structures, 'arity, 'rec_group, 'kinds, 'positive, 'negative, 'direct, 'gadt ) Refl__Desc.object_methods;
methods : 'types Refl__Desc.Sequence(Refl__Desc.Delay).t;
}
val map : 'methods_a 'methods_b 'structures. ( 'a_arity, 'b_arity, 'rec_group, 'kinds_a, 'kinds_b, 'positive, 'negative, 'direct, 'gadt ) map -> ( 'methods_a, 'structures, 'a_arity, 'rec_group, 'kinds_a, 'positive, 'negative, 'direct, 'gadt ) Refl__Desc.object_methods -> ( 'methods_b, 'structures, 'b_arity, 'rec_group, 'kinds_b, 'positive, 'negative, 'direct, 'gadt ) Refl__Desc.object_methods -> 'methods_a Refl__Desc.Sequence(Refl__Desc.Delay).t -> 'methods_b Refl__Desc.Sequence(Refl__Desc.Delay).t
type ('types, 'structures, 'arity, 'rec_group, 'kinds, 'positive, 'negative, 'direct, 'gadt) fold
val fold : ( ( 'types, 'structures, 'arity, 'rec_group, 'kinds, 'positive, 'negative, 'direct, 'gadt ) fold -> 'acc -> 'acc ) -> ( 'types0, 'structures0, 'arity0, 'rec_group0, 'kinds0, 'positive0, 'negative0, 'direct0, 'gadt0 ) t -> 'acc0 -> 'acc1
module Method : sig ... end
module Methods : sig ... end
module Objects : sig ... end
type ('index, 'structure, 'structures, 'arities, 'tuples, 'rec_group, 'kinds, 'positive, 'negative, 'direct, 'gadts) structure_find =
| Structure_find : {
section : ( [ `Succ of 'index ], 'tuples, 'section, 'others ) Section.t;
methods : ( 'section, 'structure, 'arities, 'rec_group, 'kinds, 'positive, 'negative, 'direct, 'gadts ) Methods.t;
others : ( 'others, 'structures, 'arities, 'rec_group, 'kinds, 'positive, 'negative, 'direct, 'gadts ) Objects.t;
} -> ( 'index, 'structure, 'structures, 'arities, 'tuples, 'rec_group, 'kinds, 'positive, 'negative, 'direct, 'gadts ) structure_find
type ('tuples, 'structures, 'arities, 'rec_group, 'kinds, 'positive, 'negative, 'direct, 'gadts) find
val find : 'arities 'gadts. ( 'tuple * 'tuples, 'structures, 'arities, 'rec_group, 'kinds, 'positive, 'negative, 'direct, 'gadts ) Objects.t -> ( ( 'tuple * 'tuples, 'structures, 'arities, 'rec_group, 'kinds, 'positive, 'negative, 'direct, 'gadts ) find -> 'a option ) -> 'a option