M.Componentmodule Input : sig ... endmodule Model : Bonsai_types.Modelmodule Action : Bonsai_types.Actionmodule Result : sig ... endval apply_action :
inject:(Action.t -> Vdom.Event.t) ->
schedule_event:(Vdom.Event.t -> unit) ->
Input.t ->
Model.t ->
Action.t ->
Model.tval compute :
inject:(Action.t -> Vdom.Event.t) ->
Input.t ->
Model.t ->
Result.t