Unwrap/Map Apollo Client response promise into a Future

ApolloFetchResult.re

open! Utils;

type t('a) =
  Js.Promise.t(
    Belt.Result.t(
      ApolloClient__React_Types.FetchResult.t__ok('a),
      ApolloClient__ApolloClient.ApolloError.t,
    ),
  );

let toFutureData:
  (
    t('a),
    Js.Promise.error => 'b,
    ApolloClient__ApolloClient.ApolloError.t => 'b
  ) =>
  Future.t(Belt.Result.t('a, 'b)) =
  (queryResult, promiseErrorTransformer, resultErrorTransformer) => {
    FutureExt.fromPromiseResult(
      queryResult,
      promiseErrorTransformer,
      resultErrorTransformer,
    )
    ->Future.map(apolloResult => {
        switch (apolloResult) {
        | Ok({error: Some(apolloError)}) =>
          Error(resultErrorTransformer(apolloError))
        | Error(response) => Error(response)
        | Ok({data}) => Ok(data)
        }
      });
  };