Source file `snapshot.ml`

1
2
3
4
5
6
7
8
9
open! Core_kernel

type ('model, 'action, 'result, 'event) t =
  { apply_action : schedule_event:('event -> unit) -> 'action -> 'model
  ; result : 'result
  }
[@@deriving fields]

let create = Fields.create