16 lines
342 B
OCaml
16 lines
342 B
OCaml
(* 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
|