Function compileSet

packages/effect/src/Optic.ts:1217–1258

(nodes: Node, kind: Kind)

}

function compileSet(nodes: Node, kind: Kind): (a: any, s: any) => any {
  if (hasSourceFreeSet(kind)) {
    return (a) => {
      for (let i = nodes.length - 1; i >= 0; i--) {
        a = nodes[i].set(a)
      }
      return a
    }
  }
  return (a, s) => {
    const len = nodes.length
    const sources = new Array(len)
    for (let i = 0; i < len; i++) {
      sources[i] = s
      const op = nodes[i]
      if (hasFailingGet(op.kind)) {
        const result = op.get(s)
        if (Result.isFailure(result)) {
          return result
        }
        s = result.success
      } else {
        s = op.get(s)
      }
    }
    for (let i = len - 1; i >= 0; i--) {
      const op = nodes[i]
      if (hasSourceFreeSet(op.kind)) {
        a = op.set(a)
      } else if (op.kind === "Lens") {
        a = op.set(a, sources[i])
      } else {
        const result = op.set(a, sources[i])
        if (Result.isFailure(result)) {
          return result
        }
        a = result.success
      }
    }
    return kind === "Optional" ? Result.succeed(a) : a
  }
}

function hasFailingGet(kind: Kind): boolean {
  return kind === "Prism" || kind === "Optional"