(* BSD-2-Clause License *)

type t = Jv.t

let create lat lng =
  Jv.call Global.leaflet "latLng" [| Jv.of_float lat; Jv.of_float lng |]

let lat latlng = Jv.get latlng "lat" |> Jv.to_float

let lng latlng = Jv.get latlng "lng" |> Jv.to_float

let equals a b = Jv.call a "equals" [| b |] |> Jv.to_bool

let of_jv = Fun.id

let to_jv = Fun.id