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 ca369c219e
commit 00dc9e6851
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 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 -> fun event handler map ->
let name = Event.sub_to_string event in let name = Event.sub_to_string event in
let handler v = handler @@ Event.of_jv event v in let handler v = handler @@ Event.of_jv event v in

2
src/map.mli
View file

@ -28,7 +28,7 @@ val get_container : t -> Brr.El.t
(** [on event handler map] add an event listener on [map] for event [event] with (** [on event handler map] add an event listener on [map] for event [event] with
handler [handler] *) handler [handler] *)
val on : 'a Event.sub -> ('a Event.t -> 'b) -> t -> unit val on : 'a Event.sub -> ('a Event.t -> unit) -> t -> unit
(** [get_center map] is the geographical center of the map view *) (** [get_center map] is the geographical center of the map view *)
val get_center : t -> Latlng.t val get_center : t -> Latlng.t