@colisweb/rescript-toolkit 5.43.2 → 5.43.4

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@colisweb/rescript-toolkit",
-  "version": "5.43.2",
+  "version": "5.43.4",
   "type": "module",
   "scripts": {
     "clean": "rescript clean",

package/src/vendors/Here.res

@@ -2,6 +2,7 @@ type coordinates = {
   lat: float,
   lng: float,
 }
+type mapObject
 
 module Geo = {
   module Point = {
@@ -32,7 +33,7 @@ module Event = {
     type data = {maxZoom: int}
 
     @send
-    external getData: (t<'data>, unit) => 'data = "getData"
+    external getData: (t<'data>, unit) => option<'data> = "getData"
     @send
     external getObjectData: (t<'data>, unit) => data = "getData"
     @send
@@ -117,7 +118,6 @@ module Platform = {
 
 module Map = {
   type instance
-  type object
   type objectLayer
   type padding = {top?: int, left?: int, bottom?: int, right?: int}
 
@@ -131,6 +131,16 @@ module Map = {
   @new
   external make: (Dom.element, Layers.map, options) => instance = "H.Map"
 
+  @send
+  external addObject: (instance, mapObject) => unit = "addObject"
+  @send
+  external addObjects: (instance, array<mapObject>) => unit = "addObject"
+
+  @send
+  external removeObject: (instance, mapObject) => unit = "removeObject"
+  @send
+  external removeObjects: (instance, array<mapObject>) => unit = "removeObjects"
+
   @val
   external engineType: Js.Dict.t<string> = "H.Map.EngineType"
 
@@ -172,8 +182,10 @@ module Map = {
     external setData: (t, string) => unit = "setData"
     @send
     external addEventListener: (t, string, Event.t<'a> => unit) => unit = "addEventListener"
+    @send
+    external removeEventListener: (t, string, Event.t<'a> => unit) => unit = "removeEventListener"
 
-    external toObject: t => object = "%identity"
+    external toObject: t => mapObject = "%identity"
   }
   module DomMarker = {
     type t
@@ -189,8 +201,10 @@ module Map = {
     external setData: (t, string) => unit = "setData"
     @send
     external addEventListener: (t, string, Event.t<'a> => unit) => unit = "addEventListener"
+    @send
+    external removeEventListener: (t, string, Event.t<'a> => unit) => unit = "removeEventListener"
 
-    external toObject: t => object = "%identity"
+    external toObject: t => mapObject = "%identity"
   }
 
   module Viewport = {
@@ -225,12 +239,14 @@ module Map = {
     @new
     external make: unit => t = "H.map.Group"
 
-    type makeOptions = {objects: array<object>}
+    type makeOptions = {objects: array<mapObject>}
     @new
     external makeFromObjects: makeOptions => t = "H.map.Group"
 
     @send
     external addEventListener: (t, string, Event.t<'data> => unit) => unit = "addEventListener"
+    @send
+    external removeEventListener: (t, string, Event.t<'a> => unit) => unit = "removeEventListener"
 
     @send
     external addMarker: (t, Marker.t) => unit = "addObject"
@@ -241,11 +257,11 @@ module Map = {
     @send
     external removeAll: (t, unit) => unit = "removeAll"
     @send
-    external removeObject: (t, object) => unit = "removeObject"
+    external removeObject: (t, mapObject) => unit = "removeObject"
     @send
-    external removeObjects: (t, array<object>) => unit = "removeObjects"
+    external removeObjects: (t, array<mapObject>) => unit = "removeObjects"
 
-    external toObject: t => object = "%identity"
+    external toObject: t => mapObject = "%identity"
   }
   module Polyline = {
     type t
@@ -270,7 +286,7 @@ module Map = {
     and style = {fillColor?: string}
     @new
     external make: (Geo.Point.t, int, options) => t = "H.map.Circle"
-    external toObject: t => object = "%identity"
+    external toObject: t => mapObject = "%identity"
 
     type dataOptions = {maxZoom?: int}
 
@@ -283,7 +299,7 @@ module Map = {
   @send
   external addGroup: (instance, Group.t) => unit = "addObject"
   @send
-  external addObject: (instance, object) => unit = "addObject"
+  external addObject: (instance, mapObject) => unit = "addObject"
   @send
   external addPolyline: (instance, Polyline.t) => unit = "addObject"
 
@@ -297,7 +313,7 @@ module Map = {
   external setZoom: (instance, int) => unit = "setZoom"
 
   @send
-  external getObjects: (instance, unit) => array<object> = "getObjects"
+  external getObjects: (instance, unit) => array<mapObject> = "getObjects"
   @send
   external getViewPort: (instance, unit) => Viewport.t = "getViewPort"
   @send