Expert (p.bonsai.v0.13.0.doc.bonsai.web.Bonsai

module Snapshot : sig ... end

type ('input, 'model, 'action, 'result) unpacked =
  ('input, 'model, 'action, 'result)
    Bonsai.Make(Incr_dom.Incr)(Virtual_dom.Vdom.Event).Expert.unpacked

type (!'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) t

val reveal : ('input, 'model, 'result) t -> ('input, 'model, 'result) t

val conceal : ('input, 'model, 'result) t -> ('input, 'model, 'result) t

val 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) t

val 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

val optimize : ('input, 'model, 'result) t -> ('input, 'model, 'result) t