ReasonML Koa interop experiment

koa.re

module Koa = {
  type t;
  type ctx = {. body : ref string};

  /** [make ()] creates an instance of the Koa class. */
  external make : unit => t = "koa" [@@bs.new] [@@bs.module];
  external listen : t => int => unit = "listen" [@@bs.send];
  external use : t => (ctx => unit) [@bs.uncurry] => unit = "use" [@@bs.send];
};


/** [koa ()] creates an instance of the Koa class. Alias for [Koa.make ()] */
let koa = Koa.make;

let listen app ::port=3000 () => Koa.listen app port;

let use = Koa.use;

server.re

open Koa;

let app = koa ();

let port = 3000;

let middleware ctx => ctx#body := "Hello";

use app middleware;

listen app ::port ();

Js.log @@ "Listening at http://127.0.0.1:" ^ string_of_int port;