sig
  type 'a t =
    'a Alternating_primary_backup_assignment.t = {
    primary : 'a;
    backup : 'a;
  }
  val select : Core.Std.Date.t -> slot1:'a -> slot2:'a -> 'a t
end