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

Map.on: make handler type be (.. -> unit)

Browse source
This commit is contained in:
Swrup 2024-09-29 09:28:50 +02:00
parent ac7fbb77b8
commit 4eec69fdf6
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

@ -33,7 +33,7 @@ let set_view latlng ~zoom map =
in
()
let on : type kind. kind Event.sub -> (kind Event.t -> 'b) -> t -> unit =
let on : type kind. kind Event.sub -> (kind Event.t -> unit) -> t -> unit =
fun event handler map ->
let name = Event.sub_to_string event in
let handler v = handler @@ Event.of_jv event v in