Real world example about bs-graphql-js HOT 6 CLOSED

open BsGraphqlJs.Schema;

module Connection = BsGraphqlJs.Relay.Connection(TwJs.Handler.Context);

let neighborhoodType =
  obj(
    "Neighborhood",
    ~fields=
      lazy [
        field("name", ~typ=nonNull(string), ~args=[], ~resolve=(_ctx, node) =>
          node##name
        ),
      ],
  );

let areaType =
  obj(
    "Area",
    ~fields=
      lazy [
        field("id", ~typ=nonNull(string), ~args=[], ~resolve=(_ctx, node) =>
          node##id
        ),
        field("name", ~typ=nonNull(string), ~args=[], ~resolve=(_ctx, node) =>
          node##name
        ),
        field(
          "coords",
          ~typ=nonNull(QueryTypes.locationType),
          ~args=[],
          ~resolve=(_ctx, node) =>
          node##coords
        ),
        field("image", ~typ=string, ~args=[], ~resolve=(_ctx, node) =>
          Js.toOption(node##image)
        ),
        field("typo", ~typ=string, ~args=[], ~resolve=(_ctx, node) =>
          Js.toOption(node##typo)
        ),
        field(
          "neighborhoods",
          ~typ=QueryTypes.nonNullList(neighborhoodType),
          ~args=[],
          ~resolve=(_ctx, node) =>
          node##neighborhoods
        ),
        ...QueryTypes.entityFields(),
      ],
  );

let {Connection.connectionType} =
  Connection.definitions("Area", ~nodeType=areaType);

let areasField: field(TwJs.Handler.Context.t, unit) =
  asyncField(
    "areas",
    ~typ=nonNull(connectionType),
    ~args=Connection.forwardsArgs(),
    ~resolve=(ctx, _node, first, after) =>
    AreaService.findConnection(ctx, ~connectionArgs={first, after})
  );

let jsAreaType = toJsType(areaType);

let jsAreasField = toJsSchema(areasField);