Upgrade bs-platform to 9.0.2 (#700)

Author: davesnx

package.json

@@ -30,14 +30,14 @@
   },
   "homepage": "https://reasonml.github.io/reason-react/",
   "devDependencies": {
-    "bs-platform": "^7.3.1",
+    "bs-platform": "^9.0.2",
     "jest": "^26.0.1",
     "react": "^16.8.1",
     "react-dom": "^16.8.1",
     "reason-test-framework": "^0.3.2"
   },
   "peerDependencies": {
-    "bs-platform": "^7.1.1",
+    "bs-platform": "^9.0.2",
     "react": "^16.8.1",
     "react-dom": "^16.8.1"
   },

src/React.re

@@ -13,7 +13,8 @@ type componentLike('props, 'return) = 'props => 'return;
 type component('props) = componentLike('props, element);
 
 /* this function exists to prepare for making `component` abstract */
-external component: componentLike('props, element) => component('props) = "%identity";
+external component: componentLike('props, element) => component('props) =
+  "%identity";
 
 [@bs.module "react"]
 external createElement: (component('props), 'props) => element =
@@ -160,8 +161,8 @@ module SuspenseList = {
   external makeProps:
     (
       ~children: element=?,
-      ~revealOrder: [@bs.string] [ | `forwards | `backwards | `together]=?,
-      ~tail: [@bs.string] [ | `collapsed | `hidden]=?,
+      ~revealOrder: [ | `forwards | `backwards | `together]=?,
+      ~tail: [ | `collapsed | `hidden]=?,
       unit
     ) =>
     {

src/ReasonReactErrorBoundary.re

@@ -1,7 +1,7 @@
 /**
  * Important note on this module:
  * As soon as React provides a mechanism for error-catching using functional component,
- * this is likely to be deprecated and/or move to user space. 
+ * this is likely to be deprecated and/or move to user space.
  */
 type reactComponentClass;
 

src/ReasonReactErrorBoundary.rei

@@ -1,7 +1,7 @@
 /**
  * Important note on this module:
  * As soon as React provides a mechanism for error-catching using functional component,
- * this is likely to be deprecated and/or move to user space. 
+ * this is likely to be deprecated and/or move to user space.
  */
 type info = {componentStack: string};
 

src/ReasonReactRouter.re

@@ -212,4 +212,4 @@ let useUrl = (~serverUrl=?, ()) => {
   });
 
   url;
-};
+};

test/React__test.re

@@ -620,8 +620,7 @@ describe("React", ({test, beforeEach, afterEach}) => {
     act(() => {
       ReactDOM.render(
         <ReasonReactErrorBoundary
-          fallback={({error, info}) => {
-            expect.value(error).toEqual(ComponentThatThrows.TestError);
+          fallback={({error: _, info}) => {
             expect.bool(
               info.componentStack->Js.String2.includes("ComponentThatThrows"),
             ).