Module `Bonsai__.Full`

type ('input, 'model, 'action, 'result, 'incr, 'event) t = input:('input, 'incr) Incremental.t -> old_model:('model option, 'incr) Incremental.t -> model:('model, 'incr) Incremental.t -> inject:('action -> 'event) -> environment:'incr Bonsai_types.Environment.t -> incr_state:'incr Incremental.State.t -> (('model, 'action, 'result, 'event) Bonsai__.Import.Component.Snapshot.t, 'incr) Incremental.t

type Bonsai__.Import.Component.unpacked += C : { f : ('input, 'model, 'action, 'result, 'incr, 'event) t; constructed_at : Core_kernel.Source_code_position.t; } -> ('input, 'model, 'action, 'result, 'incr, 'event) Bonsai__.Import.Component.unpacked

val of_full : Core_kernel.Source_code_position.t -> f:('input, 'model, 'action, 'result, 'incr, 'event) t -> action_type_id:'action Core_kernel.Type_equal.Id.t -> model_type_id:'model Core_kernel.Type_equal.Id.t -> default_model:'model -> model_equal:('model -> 'model -> bool) -> sexp_of_model:('model -> Core_kernel.Sexp.t) -> model_of_sexp:(Core_kernel.Sexp.t -> 'model) -> ('input, 'result, 'incr, 'event) Bonsai__.Import.Component.Packed.t