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

close_popup: rm label

Browse source
This commit is contained in:
Swrup 2024-07-03 11:19:26 +02:00
parent 0ee6adaad5
commit df486e8a65
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/map.ml
View file

@ -50,7 +50,7 @@ let wrap_latlng latlng map =
let open_popup popup map = let open_popup popup map =
ignore @@ Jv.call map "openPopup" [| Popup.to_jv popup |] ignore @@ Jv.call map "openPopup" [| Popup.to_jv popup |]
let close_popup ~popup map = let close_popup popup map =
ignore ignore
@@ @@
match popup with match popup with

2
src/map.mli
View file

@ -52,4 +52,4 @@ val to_jv : t -> Jv.t
val open_popup : Popup.t -> t -> unit val open_popup : Popup.t -> t -> unit
(* [close_popup opt map] if [opt] is [Some popup] closes [popup] else closes previously opened popup *) (* [close_popup opt map] if [opt] is [Some popup] closes [popup] else closes previously opened popup *)
val close_popup : popup:Popup.t option -> t -> unit val close_popup : Popup.t option -> t -> unit