Crappy React-router v4 bindings

ReRouter.re

external router : ReactRe.reactClass = "BrowserRouter" [@@bs.module "react-router-dom"];

external link : ReactRe.reactClass = "Link" [@@bs.module "react-router-dom"];

external route : ReactRe.reactClass = "Route" [@@bs.module "react-router-dom"];

module Router = {
  let createElement children::(children: list ReactRe.reactElement) =>
    ReactRe.wrapPropsShamelessly router {"children": Array.of_list children} ::children;
};

module Link = {
  let createElement
      className::(className: option string)=?
      children::(children: list ReactRe.reactElement)
      linkTo::(linkTo: string) =>
    ReactRe.wrapPropsShamelessly
      link
      {
        "to": linkTo,
        "children": Array.of_list children,
        "className": Js_null_undefined.from_opt className
      }
      ::children;
};

module Route = {
  let createElement
      path::(path: string)
      exact::(exact: bool)=false
      component::(component: option ReactRe.reactClass)=? =>
    ReactRe.wrapPropsShamelessly
      route
      {
        "path": path,
        "exact": Js.Boolean.to_js_boolean exact,
        "component": Js.Null_undefined.from_opt component
      };
};