module Snapshot : sig ... endtype ('input, 'model, 'action, 'result) unpacked =
('input, 'model, 'action, 'result)
Bonsai.Make(Incr_dom.Incr)(Virtual_dom.Vdom.Event).Expert.unpackedtype (!'input, !'model, !'result) t =
private ('input, 'model, 'result)
Bonsai.Make(Incr_dom.Incr)(Virtual_dom.Vdom.Event).Expert.t =
| T : ('input0, 'model0, 'action, 'result0) unpacked
* 'action Core_kernel.Type_equal.Id.t -> ('input0, 'model0, 'result0) tval of_full :
f:
(input:'input Incr_dom.Incr.t ->
old_model:'model option Incr_dom.Incr.t ->
model:'model Incr_dom.Incr.t ->
inject:('action -> Virtual_dom.Vdom.Event.t) ->
('model, 'action, 'result) Snapshot.t Incr_dom.Incr.t) ->
action_type_id:'action Core_kernel.Type_equal.Id.t ->
('input, 'model, 'result) tval eval :
input:'input Incr_dom.Incr.t ->
old_model:'model option Incr_dom.Incr.t ->
model:'model Incr_dom.Incr.t ->
inject:('action -> Virtual_dom.Vdom.Event.t) ->
action_type_id:'action Core_kernel.Type_equal.Id.t ->
('input, 'model, 'action, 'result) unpacked ->
('model, 'action, 'result) Snapshot.t Incr_dom.Incr.t