RoomService V2 ReasonML bindings

RoomServiceV2.re

type key = string;
type rs;

type options = {auth: string};
[@bs.module "@roomservice/browser"] [@bs.new]
external make: options => rs = "RoomService";

type room;
[@bs.send] external room: (rs, string) => Js.Promise.t(room) = "room";

module Presence = {
  type t;
  [@bs.send] external make: room => t = "presence";

  [@bs.send]
  external subscribe: (t, key, Js.Json.t => unit) => t = "subscribe";
  [@bs.send] external unsubscribe: (t, key) => unit = "unsubscribe";
  [@bs.send] external set: (t, key, Js.Json.t) => unit = "set";
};

module Map = {
  type t;
  [@bs.send] external make: (room, key) => t = "map";
  [@bs.send] external set: (t, key, Js.Json.t) => unit = "set";
  [@bs.send] external get: (t, key) => Js.Json.t = "get";
  [@bs.send] external delete: (t, key) => Js.Json.t = "delete";
  [@bs.send] external toObject: t => Js.Json.t = "toObject";

  [@bs.send]
  external subscribe: (room, key, Js.Json.t => unit) => unit = "subscribe";
  [@bs.send] external unsubscribe: (room, key) => unit = "unsubscribe";
};
module List = {
  type t;
  [@bs.send] external make: (room, key) => t = "list";
  [@bs.send] external set: (t, key, Js.Json.t) => unit = "set";
  [@bs.send] external push: (t, Js.Json.t) => unit = "push";
  [@bs.send]
  external subscribe: (room, key, Js.Json.t => unit) => unit = "subscribe";
  [@bs.send] external unsubscribe: (room, key) => unit = "unsubscribe";
  [@bs.send] external toArray: t => array(Js.Json.t) = "toArray";
};