fp-ts:如何展平ReaderTaskEither数组的一层？

import { pipe } from 'fp-ts/function';
import { ReaderTaskEither, chain } from 'fp-ts/ReaderTaskEither';

// 假设我们有一个返回ReaderTaskEither的函数
const getReaderTaskEitherArray = (): ReaderTaskEither<Error, number[]> => {
  // 返回一个ReaderTaskEither数组
  return () => Promise.resolve([1, 2, 3]);
};

// 使用chain函数展平一层
const flattenReaderTaskEitherArray = pipe(
  getReaderTaskEitherArray(),
  chain((array) => () => Promise.resolve(array.flat()))
);

// 执行展平后的ReaderTaskEither
flattenReaderTaskEitherArray()
  .then((result) => {
    console.log(result); // [1, 2, 3]
  })
  .catch((error) => {
    console.error(error);
  });