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

small popup change

Browse source
This commit is contained in:
Swrup 2022-12-31 02:45:32 +01:00
parent 1e581ef172
commit b9c6864ef1
3 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/popup.ml
View file

@ -68,7 +68,7 @@ let opt_to_jv = function
Jv.of_bool b
| Pane s | Class_name s -> Jv.of_string s
let create content_opt ~latlng options =
let create ~content ~latlng options =
let l =
Array.of_list @@ List.map (fun o -> (opt_to_string o, opt_to_jv o)) options
in
@ -80,7 +80,7 @@ let create content_opt ~latlng options =
set_latlng latlng popup;
popup
in
match content_opt with
match content with
| None -> popup
| Some content ->
set_content content popup;