15 lines
318 B
OCaml
15 lines
318 B
OCaml
|
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_t = Fun.id
|
||
|
|
|
||
|
|
let to_jv_t = Fun.id
|