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

list -> array

Browse source
This commit is contained in:
Swrup 2024-01-30 16:55:19 +01:00
parent 3d19bc3f40
commit 16e5fe0b2e
9 changed files with 30 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/popup.ml
View file

@ -69,9 +69,7 @@ let opt_to_jv = function
| Pane s | Class_name s -> Jv.of_string s
let create ~content ~latlng options =
let l =
Array.of_list @@ List.map (fun o -> (opt_to_string o, opt_to_jv o)) options
in
let l = Array.map (fun o -> (opt_to_string o, opt_to_jv o)) options in
let popup = Jv.call Global.leaflet "popup" [| Jv.obj l |] in
let popup =
match latlng with
@ -87,9 +85,7 @@ let create ~content ~latlng options =
popup
let create_from_el el ~latlng options =
let l =
Array.of_list @@ List.map (fun o -> (opt_to_string o, opt_to_jv o)) options
in
let l = Array.map (fun o -> (opt_to_string o, opt_to_jv o)) options in
let popup = Jv.call Global.leaflet "popup" [| Jv.obj l |] in
let popup =
match latlng with