Module Expert.Snapshot

type ('model, 'action, 'result) t = ('model, 'action, 'result) Bonsai.Make(Incr_dom.Incr)(Virtual_dom.Vdom.Event).Expert.Snapshot.t
val apply_action : ('model, 'action, 'a) t -> schedule_event:(Virtual_dom.Vdom.Event.t -> unit) -> 'action -> 'model
val result : ('a, 'b, 'result) t -> 'result
val create : apply_action: (schedule_event:(Virtual_dom.Vdom.Event.t -> unit) -> 'action -> 'model) -> result:'result -> ('model, 'action, 'result) t