sig
  type location = { longitude : float; latitude : float; }
  val create :
    longitude:float -> latitude:float -> unit -> Api.Location.location
  val read : Yojson.Safe.json -> Api.Location.location
end