Module Incremental__Types.Expert

type 'a edge = {
child : 'a Node.t;
on_change : 'a -> unit;
mutable index : int Incremental__.Import.Uopt.t;
}
type packed_edge =
| E : 'a edge -> packed_edge
type 'a t = {
f : unit -> 'a;
on_observability_change : is_now_observable:bool -> unit;
mutable children : packed_edge Incremental__.Import.Uopt.t Incremental__.Import.Array.t;
mutable num_children : int;
mutable force_stale : bool;
mutable num_invalid_children : int;
mutable will_fire_all_callbacks : bool;
}