Make (330_problem_generator.Problems

Parameters

module _ : Controller_intf.S

Signature

module Model : sig ... end

include Incr_dom.App_intf.S with type State.t = unit and module Model := Model

module Action : sig ... end

module State : sig ... end

val on_startup : 
  schedule_action:(Action.t -> unit) ->
  Model.t ->
  State.t Async_kernel.Deferred.t

val create : 
  Model.t Incr_dom__.Incr.t ->
  old_model:Model.t Incr_dom__.Incr.t ->
  inject:(Action.t -> unit Virtual_dom.Vdom.Effect.t) ->
  (Action.t, Model.t, State.t) Incr_dom__.Component.t Incr_dom__.Incr.t

val initial_model : Model.t