type t = Jv.t module Event = struct (*type for simple Event *) type nonrec t = t end module Mouse = struct type nonrec t = t let latlng e = Latlng.of_jv_t @@ Jv.get e "latlng" end