Mapping Meta's API Errors to Effect in Typescript

const SCloudApiError = S.Struct({
  message: S.String,
  type: S.String,
  code: S.Number,
  error_data: S.Struct({
    messaging_product: S.String,
    details: S.String,
  }),
  fbtrace_id: S.optional(S.String),
});

export const metaAPI = HttpApi.make("MetaAPI")
  .add(
    HttpApiGroup.make("cloudAPI")
      .add(cloudApiSendTextMessageEndpoint)
      .add(cloudApiSendTemplateMessageEndpoint)
      .add(cloudApiSendImageMessageEndpoint)
      .add(cloudApiSendDocumentMessageEndpoint)
      .add(cloudApiSendVideoMessageEndpoint)
      .add(cloudApiSendAudioMessageEndpoint)
      .add(cloudApiSendReactionMessageEndpoint)
      .add(cloudApiGetWhatsappTemplates)
      .add(cloudApiUploadMediaEndpoint)
      .add(cloudApiGetMediaUrlEndpoint)
      .add(cloudApiReadReceiptEndpoint)
      .add(cloudApiTypingIndicatorEndpoint)
      .add(cloudApiSendInteractiveListMessageEndpoint)
      .add(cloudApiSendInteractiveButtonMessageEndpoint)
  )
  .addError(SCloudApiError, {
    status: 400,
  });

export const makeMetaAPIClient = ({ apiKey }: { apiKey: string }) => {
  return HttpApiClient.make(metaAPI, {
    transformClient: (client) =>
      client.pipe(
        HttpClient.mapRequest((request) => {
          return request.pipe(HttpClientRequest.bearerToken(apiKey));
        })
      ),
    baseUrl: "https://graph.facebook.com/v21.0",
  });
};