Module Incremental.Case

type ('input, 'outer_model, 'result) case = ('input, 'outer_model, 'result) Bonsai.Make(Incr_dom.Incr)(Virtual_dom.Vdom.Event).Incremental.Case.case
type (!'outer_input, !'outer_model, !'result) case_creator = ('outer_input, 'outer_model, 'result) Bonsai.Make(Incr_dom.Incr)(Virtual_dom.Vdom.Event).Incremental.Case.case_creator = {
  1. create_case : 'inner_input 'inner_model. ('inner_input, 'inner_model, 'result) t -> case_input:'inner_input Incr_dom.Incr.t -> case_model:'inner_model Incr_dom.Incr.t -> lift:('inner_model -> 'outer_model) -> ('outer_input, 'outer_model, 'result) case Incr_dom.Incr.t;
}