fp-ts 如何防止左右两边的导线短路？

Question

我有以下代码：

const tError = (err) => (err instanceof Error ? err : Error("unexpected error"));
const safeImport = TE.tryCatchK((s) => import(s)),tError);
export const run= (globString) => pipe(
  glob.sync(globString),
  TE.traverseArray(safeImport),
  async x => console.log(await x()),
)
//this call outputs
[{_tag: 'Left', left: Error [ERR_MODULE_NOT_FOUND]: Cannot find module...}]

但如果我这样做：

const tError = (err) => (err instanceof Error ? err : Error("unexpected error"));
const safeImport = TE.tryCatchK((s) => import(s)),tError);
export const run= (globString) => pipe(
  glob.sync(globString),
  A.map(safeImport),
  A.map(async x => console.log(await x())),
)
//this call outputs
[
  {_tag: 'Left', left: Error [ERR_MODULE_NOT_FOUND]: Cannot find module...},
  {_tag: 'Right', right:...},{_tag: 'Right', right:...},{_tag: 'Right', right:...},{_tag: 'Right', right:...}
]
//

我想翻转类型，但同时保留左侧和右侧，知道我做错了什么吗？

Answer 1

因此，这样做的方法是不使用TE.traverseArray而是使用T.traverseArray ：

const tError = (err) => (err instanceof Error ? err : Error("unexpected error"));
const safeImport = TE.tryCatchK((s) => import(s)),tError);
export const run= (globString) => pipe(
  glob.sync(globString),
  T.traverseArray(safeImport),
  async x => console.log(await x()),
)

这将删除 Task 包装器并将其保留为数组的元素。