Source file `snapshot.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
open! Core_kernel
open! Import
include Snapshot_intf

module Make (Event : T) = struct
  type ('model, 'action, 'result) t =
    { apply_action : schedule_event:(Event.t -> unit) -> 'action -> 'model
    ; result : 'result
    }
  [@@deriving fields]

  let create = Fields.create
end