Experimentation with Navigation

navigation.re

module Navigation = {
  type actions = {pop: unit => unit};

  [@bs.deriving abstract]
  type navigation;

  [@bs.send]
  external navigate:
    (navigation, ~routeName: string, ~params: Js.t({.})=?, unit) => unit =
    "navigate";
};

module Abstraction = {
  module type Config = {
    type route;
    let routeToJs: route => string;
  };

  module CreateNavigationAction = (C: Config) => {
    [@bs.deriving abstract]
    type jsProps = {navigation: Navigation.navigation};
    let navigateTo = (~navigation, ~to_: C.route, ()) =>
      navigation->Navigation.navigate(C.routeToJs(to_), ());
  };
};

module Impl =
  Abstraction.CreateNavigationAction({
    [@bs.deriving jsConverter]
    type route = [ | `First | `Second];
  });

routes.js

// @flow

import {createStackNavigator} from 'react-navigation';
import App from './lib/js/src/First.bs';
import Second from './lib/js/src/Second.bs';

export default createStackNavigator({
  First: App,
  Second: Second,
});