HOCunit.re

type hoc = ReasonReact.reactClass => ReasonReact.reactClass;
type router;

module WithRouter = {
  [@bs.module "react-router"] external withRouter : hoc =
    "withRouter";
  
  type children = (~router: router) => ReasonReact.reactElement;
  let component = ReasonReact.statelessComponent("WithRouter");
  let make' = (~router: router, children: children) => {
    ...component,
    render: (_self) => children(~router)
  };
  let jsComponent =
    ReasonReact.wrapReasonForJs(
      ~component,
      (props: {. "router": router, "children": children}) =>
        make'(~router=props##router, props##children)
    );
  let enhanced = withRouter(jsComponent);
  let make = (children: children) =>
    ReasonReact.wrapJsForReason(~reactClass=enhanced, ~props=Js.Obj.empty(), children);
};