@colisweb/rescript-toolkit 5.20.3 → 5.21.0

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@colisweb/rescript-toolkit",
-  "version": "5.20.3",
+  "version": "5.21.0",
   "type": "module",
   "scripts": {
     "clean": "rescript clean",
@@ -53,7 +53,7 @@
     "lenses-ppx": "6.1.10",
     "list-selectors": "2.0.1",
     "lodash": "4.17.21",
-    "msw": "2.5.0",
+    "msw": "2.6.4",
     "postcss": "8.4.47",
     "postcss-preset-env": "8.0.1",
     "prismjs": "1.29.0",

package/src/request/Request.res

@@ -284,3 +284,48 @@ let mutateWithParams = (
     revalidate,
   )
 }
+
+module FetchAndRender = {
+  @react.component
+  let make = (
+    type argument response err,
+    ~config: module(Config with
+      type argument = argument
+      and type response = response
+      and type error = err
+    ),
+    ~argument,
+    ~children,
+  ) => {
+    let (data, _, _) = useFetcher(config, Some(argument))
+
+    children(data)
+  }
+}
+
+module FetchAndRenderWithSuspense = {
+  @react.component
+  let make = (
+    type argument response err,
+    ~config: module(Config with
+      type argument = argument
+      and type response = response
+      and type error = err
+    ),
+    ~argument,
+    ~children,
+    ~fallback=?,
+    ~fallbackRender,
+  ) => {
+    <Toolkit.Ui.ErrorBoundary
+      fallbackRender={({error}) => {
+        let module(C) = config
+        let apiError: error<C.error> = error->Obj.magic
+        fallbackRender(apiError)
+      }}>
+      <React.Suspense fallback={fallback->Option.getWithDefault(<Toolkit.Ui.SpinnerFullScreen />)}>
+        <FetchAndRender config argument> {data => children(data)} </FetchAndRender>
+      </React.Suspense>
+    </Toolkit.Ui.ErrorBoundary>
+  }
+}