Urql useDynamicMutation with Init value

UrqlDynamicMutationHook.re

type t('a) = {
  error: option(UrqlCombinedError.t),
  loading: bool,
  response: AsyncResult.t('a, UrqlCombinedError.t),
};

let use = (~definition) => {
  let (pristine, setPristine) = React.useState(() => true);

  let (hasLoaded, setHasLoaded) = React.useState(() => false);

  let (
    {ReasonUrql.Hooks.error, fetching: loading, response},
    performMutation,
  ) =
    ReasonUrql.Hooks.useDynamicMutation(definition);

  // When the request has been performed yet, but it's loading, and still pristine,
  // it means the said request just got triggered for the first time, it's not pristine anymore
  if (!hasLoaded && loading && pristine) {
    setHasLoaded(const(true));
    setPristine(const(false));
  };

  (
    {error, loading, response: UrqlExtra.toAsyncResult(~pristine, response)},
    performMutation,
  );
};