Module Data

module Phase : sig ... end
type ('phase, 'players) t = {
  1. phase : 'phase;
  2. players : 'players;
}
type ('phase, 'rolemap) initial = {
  1. starting_phase : 'phase;
  2. rolemap : 'rolemap;
}
module type S = sig ... end
module Make (P : Phase.S) (Ps : Players.S) : S with module Phase = P and module Players = Ps and type t = (P.t, Ps.t) t and type initial = (P.t, bool Ps.Player.Roles.Role.Map.t) initial