gladimdim

CallCenter() {
    workers.addAll([
      Responder(type: ResponderType.Worker, name: "Responder A"),
      Responder(type: ResponderType.Worker, name: "Responder B"),
      Responder(type: ResponderType.Worker, name: "Responder C"),
      Responder(type: ResponderType.Worker, name: "Responder D"),
    ]);

    managers.addAll([
      Responder(type: ResponderType.Manager, name: "Manager A"),

gladimdim

class Responder {
  final ResponderType type;
  Call call;
  final String name;

  Responder({this.type, this.name});

  void respondToCall(Call incoming) {
    if (isBusy()) {
      throw ResponderBusyException('Responder $name of type $type is busy.');

gladimdim

class Call {
  String msg;
  List<Function> endCallCallbacks = [];

  Call(this.msg);

  addEndCallback(Function callback) {
    endCallCallbacks.add(callback);
  }

gladimdim

class Call {
   String msg;
   Call({this.msg});
}

gladimdim

type state = string;

let action =
  | Load
  | Unload;

let component = ReasonReact.reducerComponent("New");

let make = _children => {
  ...component,

gladimdim

type tSemver = Js.t(semverInstance);

[@bs.new] [@bs.module] external createSemver : string => tSemver = "semver";

gladimdim

class type semverInstance =
  [@bs]
  {
    pub inc: tRelease => semverInstance;
    pub version: string;
    pub major: int;
    pub minor: int;
    pub patch: int;
    pub raw: string;
    pub build: array(string);

gladimdim

[@bs.module "semver"] [@bs.val]
external cmp : (string, string, string) => bool = "cmp";

let cmp = (a: string, c: comparator, b: string) =>
  cmp(a, c |> comparatorToString, b);

gladimdim

let comparatorToString = comparator : string =>
  switch (comparator) {
  | LooseEqual => "=="
  | LooseNotEqual => "!=="
  | Equal => "==="
  | Empty => ""
  | NotEqual => "!=="
  | Gt => ">"
  | Gte => ">="
  | Lt => "<"

gladimdim

[@bs.module "semver"] [@bs.val]
external cmp : (string, string, string) => bool = "cmp";