use gadts for event, clean repo

src/map.mli

@@ -1,14 +1,5 @@
 type t
 
-module Event : sig
-  (* TODO do this need to be wrapped in Brr.Ev.type' ?*)
-  val click : Ev.Mouse.t Brr.Ev.type'
-
-  val moveend : Ev.Event.t Brr.Ev.type'
-
-  val zoomend : Ev.Event.t Brr.Ev.type'
-end
-
 val create : ?options:Jv.t -> string -> t
 
 val invalidate_size : t -> unit
@@ -19,7 +10,7 @@ val fit_world : t -> unit
 
 val get_container : t -> Brr.El.t
 
-val on : event:'a Brr.Ev.type' -> handler:('a -> 'b) -> t -> unit
+val on : 'a Event.sub -> ('a Event.t -> 'b) -> t -> unit
 
 val get_center : t -> Latlng.t