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