src/lib/end_state.ml

1
2
3
4
5
6
7
8
9

type end_reason =
  | Rack_out of Player.t
  | Bag_exhausted_stall of int
  | Resigned of Player.t
  | Manual_termination of string
[@@deriving yojson { exn = true }]

type t = { winner : Player.t; margin : int; reason : end_reason }
[@@deriving yojson { exn = true }]