Module Apply_action_context.Private

type ('a, 'b) public_t := ('a, 'b) t
type ('action, 'response) t = {
  1. inject : 'action -> 'response Ui_effect.t;
  2. schedule_event : unit Ui_effect.t -> unit;
  3. time_source : Ui_time_source.t;
}
val reveal : ('a, 'b) public_t -> ('a, 'b) t
val create : inject:('action -> 'response Ui_effect.t) -> schedule_event:(unit Ui_effect.t -> unit) -> time_source:Ui_time_source.t -> ('action, 'response) public_t