"use strict"
var __createBinding =
  (this && this.__createBinding) ||
  (Object.create
    ? function (o, m, k, k2) {
        if (k2 === undefined) k2 = k
        Object.defineProperty(o, k2, {
          enumerable: true,
          get: function () {
            return m[k]
          }
        })
      }
    : function (o, m, k, k2) {
        if (k2 === undefined) k2 = k
        o[k2] = m[k]
      })
var __setModuleDefault =
  (this && this.__setModuleDefault) ||
  (Object.create
    ? function (o, v) {
        Object.defineProperty(o, "default", { enumerable: true, value: v })
      }
    : function (o, v) {
        o["default"] = v
      })
var __importStar =
  (this && this.__importStar) ||
  function (mod) {
    if (mod && mod.__esModule) return mod
    var result = {}
    if (mod != null)
      for (var k in mod)
        if (k !== "default" && Object.prototype.hasOwnProperty.call(mod, k))
          __createBinding(result, mod, k)
    __setModuleDefault(result, mod)
    return result
  }
Object.defineProperty(exports, "__esModule", { value: true })
exports.haltWhenP = exports.haltWhenP_ = void 0
// tracing: off
const Function_1 = require("../../Function")
const O = __importStar(require("../../Option"))
const P = __importStar(require("../../Promise"))
const T = __importStar(require("../_internal/effect"))
const M = __importStar(require("../_internal/managed"))
const Ref = __importStar(require("../_internal/ref"))
const Pull = __importStar(require("../Pull"))
const definitions_1 = require("./definitions")
/**
 * Halts the evaluation of this stream when the provided promise resolves.
 *
 * If the promise completes with a failure, the stream will emit that failure.
 */
function haltWhenP_(self, p) {
  return new definitions_1.Stream(
    M.map_(
      M.let_(
        M.bind_(
          M.bind_(M.do, "as", () => self.proc),
          "done",
          () => T.toManaged(Ref.makeRef(false))
        ),
        "pull",
        ({ as, done }) =>
          T.chain_(done.get, (_) => {
            if (_) {
              return Pull.end
            } else {
              return T.chain_(
                P.poll(p),
                O.fold(
                  () => as,
                  (v) =>
                    T.zipRight_(
                      T.zipRight_(
                        done.set(true),
                        T.mapError_(v, (_) => O.some(_))
                      ),
                      Pull.end
                    )
                )
              )
            }
          })
      ),
      ({ pull }) => pull
    )
  )
}
exports.haltWhenP_ = haltWhenP_
/**
 * Halts the evaluation of this stream when the provided promise resolves.
 *
 * If the promise completes with a failure, the stream will emit that failure.
 */
function haltWhenP(p) {
  return (self) => haltWhenP_(self, p)
}
exports.haltWhenP = haltWhenP
//# sourceMappingURL=haltWhenP.js.map
