Source file `apply_action_context.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
open! Core

type ('action, 'response) t =
  { inject : 'action -> 'response Ui_effect.t
  ; schedule_event : unit Ui_effect.t -> unit
  ; time_source : Ui_time_source.t
  }

let inject { inject; schedule_event = _; time_source = _ } action = inject action

let schedule_event { inject = _; schedule_event; time_source = _ } event =
  schedule_event event
;;

let time_source { inject = _; schedule_event = _; time_source } = time_source

module Private = struct
  type nonrec ('action, 'response) t = ('action, 'response) t =
    { inject : 'action -> 'response Ui_effect.t
    ; schedule_event : unit Ui_effect.t -> unit
    ; time_source : Ui_time_source.t
    }

  let reveal = Fn.id

  let create ~inject ~schedule_event ~time_source =
    { inject; schedule_event; time_source }
  ;;
end