@colisweb/rescript-toolkit 5.9.12 → 5.10.0

package/package.json

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

package/src/request/Request.res

@@ -166,7 +166,8 @@ type state<'data, 'error> =
   let increment = (num: int): int => num !== maxInt ? num + 1 : minInt
 )
 
-let useManualRequest = (
+// TODO: do real cancelation
+let useCancelableRequest = (
   type argument response error,
   config: module(Config with
     type argument = argument
@@ -205,6 +206,32 @@ let useManualRequest = (
   (state, trigger, cancel)
 }
 
+let useManualRequest = (
+  type argument response error,
+  config: module(Config with
+    type argument = argument
+    and type response = response
+    and type error = error
+  ),
+) => {
+  let module(Config) = config
+
+  let (state, set) = React.useState(() => NotAsked)
+  let isMounted = ReactUse.useMountedState(.)
+
+  let trigger = argument => {
+    set(_ => Loading)
+
+    fetchAPI(module(Config), argument)->Promise.tap(res => {
+      if isMounted() {
+        set(_ => Done(res))
+      }
+    })
+  }
+
+  (state, trigger)
+}
+
 external exnToError: Js.Exn.t => error<'a> = "%identity"
 
 let decodeResponseError = (responseError, decoder) => {

package/src/vendors/Here.res

@@ -231,6 +231,8 @@ module Map = {
     @send
     external addMarker: (t, Marker.t) => unit = "addObject"
     @send
+    external addDomMarker: (t, DomMarker.t) => unit = "addObject"
+    @send
     external getBoundingBox: (t, unit) => Geo.Rect.t = "getBoundingBox"
     @send
     external removeAll: (t, unit) => unit = "removeAll"