Reason with Koa Router

Router.re

type koaRouter;

[@bs.module] external koaRouter : koaRouter = "koa-router";

[@bs.new] external newRouter : unit => koaRouter = "KoaRouter";

[@bs.send] external get : (koaRouter, string, 'a => Js.Promise.t(unit)) => unit = "";

[@bs.send] external post : (koaRouter, string, 'a => Js.Promise.t(unit)) => unit = "";

[@bs.send] external routes : koaRouter => 'a = "";

[@bs.send] external allowedMethods : koaRouter => 'a = "";

let init = (dataProvider) => {
  koaRouter |> ignore; /* TODO: This is a workaround to get bs to import koa-router */
  let router = newRouter();
  let room = RoomHandler.init(dataProvider);
  get(
    router,
    "/",
    (ctx) => {
      ctx##body#="ok";
      Js.Promise.resolve()
    }
  );
  post(router, "/room/link", room.postLink);
  router
};