kumikode/leaflet
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add icon

Browse source
This commit is contained in:
Swrup 2022-06-20 07:57:38 +02:00
parent d1acabfdcd
commit db88d3f670
5 changed files with 75 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/point.ml
View file

@ -9,3 +9,6 @@ let of_jv point =
let x = Jv.get point "x" |> Jv.to_int in
let y = Jv.get point "y" |> Jv.to_int in
{ x; y }
let to_jv point =
Jv.call Global.leaflet "point" [| Jv.of_int point.x; Jv.of_int point.y |]