2022-04-12 13:46:37 +02:00
|
|
|
(* BSD-2-Clause License *)
|
|
|
|
|
|
2022-04-07 14:45:11 +02:00
|
|
|
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
|
|
|
|
|
|
2022-04-09 22:21:22 +02:00
|
|
|
let of_jv = Fun.id
|
2022-04-07 14:45:11 +02:00
|
|
|
|
2022-04-09 22:21:22 +02:00
|
|
|
let to_jv = Fun.id
|
