sig
  type r
  type t = r record
  val syntax : Syntax.t
  val of_json : json -> t
  val to_json : t -> json
  val default : t
  val has : (Server.Data.Record.S.r, 'a) Server.Data.field -> t -> bool
  val get : (Server.Data.Record.S.r, 'a) Server.Data.field -> t -> 'a
  val set : (Server.Data.Record.S.r, 'a) Server.Data.field -> '-> t -> t
end