forked from swrup/leaflet
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
314 B
14 lines
314 B
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
|
|
|