rescript 8.2 + rrn 0.63

Author: MoOx

package.json

@@ -6,7 +6,7 @@
     "access": "public"
   },
   "peerDependencies": {
-    "react-native-linear-gradient": "~3.3.0"
+    "@react-native-community/viewpager": "^4.0.0"
   },
   "repository": "https://github.com/reason-react-native/viewpager.git",
   "license": "MIT",
@@ -37,14 +37,13 @@
     "release": "npmpub"
   },
   "devDependencies": {
-    "@react-native-community/viewpager": "~3.3.0",
-    "bs-platform": "^5.2.0",
-    "husky": "^1.3.0",
-    "lint-staged": "^10.1.1",
+    "bs-platform": "^8.2.0",
+    "husky": "^4.0.0",
+    "lint-staged": "^10.0.0",
     "npmpub": "^5.0.0",
-    "prettier": "^1.18.0",
-    "reason-react": "0.7.0",
-    "reason-react-native": "0.60.1"
+    "prettier": "^2.0.0",
+    "reason-react": "^0.9.0",
+    "reason-react-native": "^0.63.0"
   },
   "prettier": {
     "trailingComma": "all"

src/ReactNativeViewPager.bs.js

@@ -1,6 +1,21 @@
 'use strict';
 
 var ViewPagerElement = require("./ViewPagerElement.bs.js");
+var Event$ReactNative = require("reason-react-native/src/apis/Event.bs.js");
 
+Event$ReactNative.SyntheticEvent({});
 
-/* ViewPagerElement Not a pure module */
+var PageScrollEvent = {};
+
+Event$ReactNative.SyntheticEvent({});
+
+var PageSelectedEvent = {};
+
+Event$ReactNative.SyntheticEvent({});
+
+var PageScrollStateChangedEvent = {};
+
+exports.PageScrollEvent = PageScrollEvent;
+exports.PageSelectedEvent = PageSelectedEvent;
+exports.PageScrollStateChangedEvent = PageScrollStateChangedEvent;
+/*  Not a pure module */

src/ReactNativeViewPager.re

@@ -1,41 +1,49 @@
+open ReactNative;
 include ViewPagerElement;
 
-type scrollEvent;
-type selectedEvent;
-type scrollStateChangedEvent;
+module PageScrollEvent = {
+  type payload = {
+    position: int,
+    offset: float,
+  };
+  include Event.SyntheticEvent({
+    type _payload = payload;
+  });
+};
 
-[@bs.obj]
-external scrollEvent: (~position: float, ~offset: float, unit) => scrollEvent =
-  "";
-[@bs.obj]
-external selectedEvent: (~position: float, unit) => selectedEvent = "";
-[@bs.obj]
-external scrollStateChangedEvent:
-  (~pageScrollState: [@bs.string] [ | `idle | `dragging | `settling], unit) =>
-  scrollStateChangedEvent =
-  "";
+module PageSelectedEvent = {
+  type payload = {position: float};
+  include Event.SyntheticEvent({
+    type _payload = payload;
+  });
+};
+
+module PageScrollStateChangedEvent = {
+  // new bs new polyvar encoding
+  //type payload = {pageScrollState: [ | `idle | `dragging | `settling]};
+  type payload = {pageScrollState: string};
+  include Event.SyntheticEvent({
+    type _payload = payload;
+  });
+};
 
 [@bs.module "@react-native-community/viewpager"] [@react.component]
 external make:
   (
     ~ref: ref=?,
     ~initialPage: int=?,
     ~scrollEnabled: bool=?,
-    ~onPageScroll: ReactNative.Event.syntheticEvent(scrollEvent) => unit=?,
-    ~onPageSelected: ReactNative.Event.syntheticEvent(selectedEvent) => unit=?,
-    ~onPageScrollStateChanged: ReactNative.Event.syntheticEvent(
-                                 scrollStateChangedEvent,
-                               ) =>
-                               unit
-                                 =?,
+    ~onPageScroll: PageScrollEvent.t => unit=?,
+    ~onPageSelected: PageSelectedEvent.t => unit=?,
+    ~onPageScrollStateChanged: PageScrollStateChangedEvent.t => unit=?,
     ~keyboardDismissMode: [@bs.string] [ | `none | [@bs.as "on-drag"] `onDrag]
                             =?,
     ~pageMargin: int=?,
     ~onMoveShouldSetResponderCapture: ReactNative.Event.pressEvent => bool=?,
     ~style: ReactNative.Style.t=?,
     ~children: React.element=?,
-    ~orientation: [@bs.string] [ | `horizontal | `vertical]=?,
-    ~transitionStyle: [@bs.string] [ | `scroll | `curl]=?,
+    ~orientation: [ | `horizontal | `vertical]=?,
+    ~transitionStyle: [ | `scroll | `curl]=?,
     ~showPageIndicator: bool=?
   ) =>
   React.element =

src/ViewPagerElement.bs.js

@@ -2,6 +2,6 @@
 
 var ViewPagerMethods = require("./ViewPagerMethods.bs.js");
 
-ViewPagerMethods.Make({ });
+ViewPagerMethods.Make({});
 
 /*  Not a pure module */

src/ViewPagerElement.re

@@ -1,5 +1,5 @@
 type element;
-type ref = React.Ref.t(Js.nullable(element));
+type ref = React.ref(Js.nullable(element));
 
 include ViewPagerMethods.Make({
   type t = element;

src/ViewPagerMethods.bs.js

@@ -2,7 +2,7 @@
 
 
 function Make(T) {
-  return { };
+  return {};
 }
 
 exports.Make = Make;