@fncts/io 0.0.11 → 0.0.14

package/_cjs/STM/api.cjs

@@ -20,7 +20,8 @@ exports.continueOrRetrySTM_ = void 0;
 exports.continueOrRetry_ = continueOrRetry_;
 exports.environment = exports.either = exports.defer = exports.contramapEnvironment_ = void 0;
 exports.environmentWith = environmentWith;
-exports.filterMapSTM_ = exports.eventually = exports.environmentWithSTM = void 0;
+exports.environmentWithSTM = environmentWithSTM;
+exports.filterMapSTM_ = exports.eventually = void 0;
 exports.filterMap_ = filterMap_;
 exports.filterOrElse_ = void 0;
 exports.filterOrFail_ = filterOrFail_;
@@ -37,12 +38,12 @@ exports.head = head;
 exports.interrupt = void 0;
 exports.isFailure = isFailure;
 exports.isSuccess = isSuccess;
-exports.joinEither_ = joinEither_;
-exports.join_ = join_;
 exports.left = left;
 exports.leftOrFail_ = leftOrFail_;
 exports.makeEffect = makeEffect;
-exports.swapWith_ = exports.swap = exports.repeatWhile_ = exports.repeatUntil_ = exports.provideEnvironment_ = exports.match_ = exports.mapError_ = void 0;
+exports.match_ = exports.mapError_ = void 0;
+exports.provideEnvironment_ = provideEnvironment_;
+exports.swapWith_ = exports.swap = exports.repeatWhile_ = exports.repeatUntil_ = void 0;
 exports.tap_ = tap_;
 exports.toLeft = toLeft;
 exports.zipWith_ = exports.unit = void 0;
@@ -59,17 +60,21 @@ var tsplus_module_5 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require
 
 var tsplus_module_6 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/IO/api/interrupt"));
 
-var tsplus_module_7 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/IO/api/environment"));
+var tsplus_module_7 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/FiberRef/unsafe"));
+
+var tsplus_module_8 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/FiberRef/api"));
 
-var tsplus_module_8 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/STM/api/core-constructors"));
+var tsplus_module_9 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/IO/api/environment"));
 
-var tsplus_module_9 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Maybe/api"));
+var tsplus_module_10 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/io/STM/api/core-constructors"));
 
-var tsplus_module_10 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Either/constructors"));
+var tsplus_module_11 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Maybe/api"));
 
-var tsplus_module_11 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Either/destructors"));
+var tsplus_module_12 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Either/constructors"));
 
-var tsplus_module_12 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Maybe/destructors"));
+var tsplus_module_13 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Either/destructors"));
+
+var tsplus_module_14 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Maybe/destructors"));
 
 var _function = /*#__PURE__*/require("@fncts/base/data/function");
 
@@ -88,8 +93,6 @@ const as_ = as_1;
 exports.as_ = as_;
 const environment = environment_1;
 exports.environment = environment;
-const environmentWithSTM = environmentWithSTM_1;
-exports.environmentWithSTM = environmentWithSTM;
 const atomically = atomically_1;
 exports.atomically = atomically;
 const continueOrFailSTM_ = continueOrFailSTM_1;
@@ -110,8 +113,6 @@ const flatten = flatten_1;
 exports.flatten = flatten;
 const fromEitherNow = fromEitherNow_1;
 exports.fromEitherNow = fromEitherNow;
-const provideEnvironment_ = provideEnvironment_1;
-exports.provideEnvironment_ = provideEnvironment_;
 const contramapEnvironment_ = contramapEnvironment_1;
 exports.contramapEnvironment_ = contramapEnvironment_;
 const halt = halt_1;
@@ -136,8 +137,8 @@ exports.zipWith_ = zipWith_;
  *
  * @tsplus fluent fncts.io.STM as
  */
-function as_1(stm, b) {
-  return tsplus_module_1.map_(stm, () => b());
+function as_1(stm, b, __tsplusTrace) {
+  return tsplus_module_1.map_(stm, () => b(), __tsplusTrace);
 }
 /**
  * Maps the success value of this effect to an optional value.
@@ -146,8 +147,8 @@ function as_1(stm, b) {
  */
 
 
-function asJust(stm) {
-  return tsplus_module_1.map_(stm, tsplus_module_2.just);
+function asJust(stm, __tsplusTrace) {
+  return tsplus_module_1.map_(stm, tsplus_module_2.just, __tsplusTrace);
 }
 /**
  * Maps the error value of this effect to an optional value.
@@ -156,8 +157,8 @@ function asJust(stm) {
  */
 
 
-function asJustError(stm) {
-  return mapError_1(stm, tsplus_module_2.just);
+function asJustError(stm, __tsplusTrace) {
+  return mapError_1(stm, tsplus_module_2.just, __tsplusTrace);
 }
 /**
  * Submerges the error case of an `Either` into the `STM`. The inverse
@@ -167,15 +168,15 @@ function asJustError(stm) {
  */
 
 
-function absolve(z) {
-  return tsplus_module_1.flatMap_(z, fromEitherNow_1);
+function absolve(z, __tsplusTrace) {
+  return tsplus_module_1.flatMap_(z, fromEitherNow_1, __tsplusTrace);
 }
 /**
  * @tsplus static fncts.io.STMOps Effect
  */
 
 
-function makeEffect(f) {
+function makeEffect(f, __tsplusTrace) {
   return new _definition.Effect(f);
 }
 /**
@@ -185,7 +186,7 @@ function makeEffect(f) {
  */
 
 
-function environment_1() {
+function environment_1(__tsplusTrace) {
   return new _definition.Effect((_, __, r) => r);
 }
 /**
@@ -195,8 +196,8 @@ function environment_1() {
  */
 
 
-function environmentWith(f) {
-  return tsplus_module_1.map_(environment_1(), f);
+function environmentWith(f, __tsplusTrace) {
+  return tsplus_module_1.map_(environment_1(__tsplusTrace), f, __tsplusTrace);
 }
 /**
  * Accesses the environment of the transaction to perform a transaction.
@@ -205,8 +206,8 @@ function environmentWith(f) {
  */
 
 
-function environmentWithSTM_1(f) {
-  return tsplus_module_1.flatMap_(environment_1(), f);
+function environmentWithSTM(f, __tsplusTrace) {
+  return tsplus_module_1.flatMap_(environment_1(__tsplusTrace), f, __tsplusTrace);
 }
 /**
  * @tsplus static fncts.io.STMOps atomically
@@ -214,16 +215,16 @@ function environmentWithSTM_1(f) {
  */
 
 
-function atomically_1(stm) {
-  return tsplus_module_7.environmentWithIO(r => tsplus_module_3.deferWith((_, fiberId) => {
-    const result = (0, _Journal.tryCommitSync)(fiberId, stm, r);
+function atomically_1(stm, __tsplusTrace) {
+  return tsplus_module_9.environmentWithIO(r => tsplus_module_8.getWith_(tsplus_module_7.currentScheduler, scheduler => tsplus_module_3.deferWith((_, fiberId) => {
+    const result = (0, _Journal.tryCommitSync)(fiberId, stm, r, scheduler);
 
     switch (result._tag) {
       case "Done"
       /* TryCommitTag.Done */
       :
         {
-          return tsplus_module_3.fromExitNow(result.exit, fileName_1 + ":93:32");
+          return tsplus_module_3.fromExitNow(result.exit, __tsplusTrace);
         }
 
       case "Suspend"
@@ -232,7 +233,7 @@ function atomically_1(stm) {
         {
           const id = tsplus_module_4.make();
           const state = new _AtomicReference.AtomicReference(tsplus_module_5.Running);
-          const async = tsplus_module_3.async((0, _Journal.tryCommitAsync)(result.journal, fiberId, stm, id, state, r));
+          const async = tsplus_module_3.async((0, _Journal.tryCommitAsync)(result.journal, fiberId, stm, id, state, r, scheduler));
           return tsplus_module_6.uninterruptibleMask(({
             restore
           }) => tsplus_module_3.catchAllCause_(restore(async), cause => {
@@ -242,18 +243,18 @@ function atomically_1(stm) {
             switch (newState._tag) {
               case "Done":
                 {
-                  return tsplus_module_3.fromExitNow(newState.exit, fileName_1 + ":105:40");
+                  return tsplus_module_3.fromExitNow(newState.exit, __tsplusTrace);
                 }
 
               default:
                 {
-                  return tsplus_module_3.failCauseNow(cause, fileName_1 + ":108:41");
+                  return tsplus_module_3.failCauseNow(cause, __tsplusTrace);
                 }
             }
-          }, fileName_1 + ":100:41"));
+          }, __tsplusTrace), __tsplusTrace);
         }
     }
-  }, fileName_1 + ":89:17"), fileName_1 + ":88:30");
+  }, __tsplusTrace), __tsplusTrace), __tsplusTrace);
 }
 /**
  * Returns an `STM` effect whose failure and success channels have been mapped by
@@ -261,8 +262,8 @@ function atomically_1(stm) {
  */
 
 
-function bimap_(stm, g, f) {
-  return tsplus_module_1.matchSTM_(stm, e => tsplus_module_8.failNow(g(e)), a => tsplus_module_8.succeedNow(f(a)));
+function bimap_(stm, g, f, __tsplusTrace) {
+  return tsplus_module_1.matchSTM_(stm, e => tsplus_module_10.failNow(g(e), __tsplusTrace), a => tsplus_module_10.succeedNow(f(a), __tsplusTrace), __tsplusTrace);
 }
 /**
  * Recovers from specified error.
@@ -271,14 +272,14 @@ function bimap_(stm, g, f) {
  */
 
 
-function catch_(stm, tag, k, f) {
+function catch_(stm, tag, k, f, __tsplusTrace) {
   return tsplus_module_1.catchAll_(stm, e => {
     if (tag in e && e[tag] === k) {
       return f(e);
     }
 
-    return tsplus_module_8.failNow(e);
-  });
+    return tsplus_module_10.failNow(e, __tsplusTrace);
+  }, __tsplusTrace);
 }
 /**
  * Recovers from some or all of the error cases.
@@ -287,8 +288,8 @@ function catch_(stm, tag, k, f) {
  */
 
 
-function catchJust_(stm, f) {
-  return tsplus_module_1.catchAll_(stm, e => tsplus_module_9.getOrElse_(f(e), () => tsplus_module_8.failNow(e)));
+function catchJust_(stm, f, __tsplusTrace) {
+  return tsplus_module_1.catchAll_(stm, e => tsplus_module_11.getOrElse_(f(e), () => tsplus_module_10.failNow(e, __tsplusTrace)), __tsplusTrace);
 }
 /**
  * Recovers from specified error.
@@ -297,14 +298,14 @@ function catchJust_(stm, f) {
  */
 
 
-function catchTag_(stm, k, f) {
+function catchTag_(stm, k, f, __tsplusTrace) {
   return tsplus_module_1.catchAll_(stm, e => {
     if ("_tag" in e && e["_tag"] === k) {
       return f(e);
     }
 
-    return tsplus_module_8.failNow(e);
-  });
+    return tsplus_module_10.failNow(e, __tsplusTrace);
+  }, __tsplusTrace);
 }
 /**
  * Creates a composite effect that represents this effect followed by another
@@ -314,8 +315,8 @@ function catchTag_(stm, k, f) {
  */
 
 
-function chainError_(stm, f) {
-  return swapWith_1(stm, effect => tsplus_module_1.flatMap_(effect, f));
+function chainError_(stm, f, __tsplusTrace) {
+  return swapWith_1(stm, effect => tsplus_module_1.flatMap_(effect, f, __tsplusTrace), __tsplusTrace);
 }
 /**
  * Checks the condition, and if it's true, returns unit, otherwise, retries.
@@ -324,8 +325,8 @@ function chainError_(stm, f) {
  */
 
 
-function check(predicate) {
-  return defer_1(() => predicate() ? unit_1 : tsplus_module_8.retry);
+function check(predicate, __tsplusTrace) {
+  return defer_1(() => predicate() ? unit_1 : tsplus_module_10.retry, __tsplusTrace);
 }
 /**
  * Commits this transaction atomically, regardless of whether the transaction
@@ -333,8 +334,8 @@ function check(predicate) {
  */
 
 
-function commitEither(stm) {
-  return tsplus_module_3.absolve(atomically_1(either_1(stm)), fileName_1 + ":203:27");
+function commitEither(stm, __tsplusTrace) {
+  return tsplus_module_3.absolve(atomically_1(either_1(stm, __tsplusTrace), __tsplusTrace), __tsplusTrace);
 }
 /**
  * Fail with `e` if the supplied `PartialFunction` does not match, otherwise
@@ -344,8 +345,8 @@ function commitEither(stm) {
  */
 
 
-function continueOrFail_(fa, e, pf) {
-  return continueOrFailSTM_1(fa, e, a => tsplus_module_9.map_(pf(a), tsplus_module_8.succeedNow));
+function continueOrFail_(fa, e, pf, __tsplusTrace) {
+  return continueOrFailSTM_1(fa, e, a => tsplus_module_11.map_(pf(a), tsplus_module_10.succeedNow), __tsplusTrace);
 }
 /**
  * Fail with `e` if the supplied `PartialFunction` does not match, otherwise
@@ -355,8 +356,8 @@ function continueOrFail_(fa, e, pf) {
  */
 
 
-function continueOrFailSTM_1(fa, e, pf) {
-  return tsplus_module_1.flatMap_(fa, a => tsplus_module_9.getOrElse_(pf(a), () => tsplus_module_8.fail(e)));
+function continueOrFailSTM_1(fa, e, pf, __tsplusTrace) {
+  return tsplus_module_1.flatMap_(fa, a => tsplus_module_11.getOrElse_(pf(a), () => tsplus_module_10.fail(e, __tsplusTrace)), __tsplusTrace);
 }
 /**
  * Fail with `e` if the supplied `PartialFunction` does not match, otherwise
@@ -366,8 +367,8 @@ function continueOrFailSTM_1(fa, e, pf) {
  */
 
 
-function continueOrRetry_(fa, pf) {
-  return continueOrRetrySTM_1(fa, a => tsplus_module_9.map_(pf(a), tsplus_module_8.succeedNow));
+function continueOrRetry_(fa, pf, __tsplusTrace) {
+  return continueOrRetrySTM_1(fa, a => tsplus_module_11.map_(pf(a), tsplus_module_10.succeedNow), __tsplusTrace);
 }
 /**
  * Simultaneously filters and flatMaps the value produced by this effect.
@@ -377,8 +378,8 @@ function continueOrRetry_(fa, pf) {
  */
 
 
-function continueOrRetrySTM_1(fa, pf) {
-  return tsplus_module_1.flatMap_(fa, a => tsplus_module_9.getOrElse_(pf(a), () => tsplus_module_8.retry));
+function continueOrRetrySTM_1(fa, pf, __tsplusTrace) {
+  return tsplus_module_1.flatMap_(fa, a => tsplus_module_11.getOrElse_(pf(a), () => tsplus_module_10.retry), __tsplusTrace);
 }
 /**
  * Suspends creation of the specified transaction lazily.
@@ -387,8 +388,8 @@ function continueOrRetrySTM_1(fa, pf) {
  */
 
 
-function defer_1(make) {
-  return flatten_1(tsplus_module_8.succeed(make));
+function defer_1(make, __tsplusTrace) {
+  return flatten_1(tsplus_module_10.succeed(make, __tsplusTrace), __tsplusTrace);
 }
 /**
  * Converts the failure channel into an `Either`.
@@ -397,8 +398,8 @@ function defer_1(make) {
  */
 
 
-function either_1(stm) {
-  return match_1(stm, tsplus_module_10.left, tsplus_module_10.right);
+function either_1(stm, __tsplusTrace) {
+  return match_1(stm, tsplus_module_12.left, tsplus_module_12.right, __tsplusTrace);
 }
 /**
  * Returns an effect that ignores errors and runs repeatedly until it eventually succeeds.
@@ -407,8 +408,8 @@ function either_1(stm) {
  */
 
 
-function eventually_1(stm) {
-  return tsplus_module_1.matchSTM_(stm, () => eventually_1(stm), tsplus_module_8.succeedNow);
+function eventually_1(stm, __tsplusTrace) {
+  return tsplus_module_1.matchSTM_(stm, () => eventually_1(stm, __tsplusTrace), tsplus_module_10.succeedNow, __tsplusTrace);
 }
 /**
  * Simultaneously filters and maps the value produced by this effect.
@@ -417,8 +418,8 @@ function eventually_1(stm) {
  */
 
 
-function filterMap_(stm, f) {
-  return filterMapSTM_1(stm, a => tsplus_module_9.map_(f(a), tsplus_module_8.succeedNow));
+function filterMap_(stm, f, __tsplusTrace) {
+  return filterMapSTM_1(stm, a => tsplus_module_11.map_(f(a), tsplus_module_10.succeedNow), __tsplusTrace);
 }
 /**
  * Simultaneously filters and chains the value produced by this effect.
@@ -428,20 +429,20 @@ function filterMap_(stm, f) {
  */
 
 
-function filterMapSTM_1(self, f) {
-  return tsplus_module_1.matchSTM_(self, tsplus_module_8.failNow, a => tsplus_module_9.getOrElse_(f(a), () => tsplus_module_8.retry));
+function filterMapSTM_1(self, f, __tsplusTrace) {
+  return tsplus_module_1.matchSTM_(self, tsplus_module_10.failNow, a => tsplus_module_11.getOrElse_(f(a), () => tsplus_module_10.retry), __tsplusTrace);
 }
 
-function filterOrElse_1(fa, p, or) {
-  return tsplus_module_1.flatMap_(fa, a => p(a) ? tsplus_module_8.succeedNow(a) : defer_1(() => or(a)));
+function filterOrElse_1(fa, p, or, __tsplusTrace) {
+  return tsplus_module_1.flatMap_(fa, a => p(a) ? tsplus_module_10.succeedNow(a, __tsplusTrace) : defer_1(() => or(a), __tsplusTrace), __tsplusTrace);
 }
 
-function filterOrFail_(fa, p, failWith) {
-  return filterOrElse_1(fa, p, a => tsplus_module_8.fail(() => failWith(a)));
+function filterOrFail_(fa, p, failWith, __tsplusTrace) {
+  return filterOrElse_1(fa, p, a => tsplus_module_10.fail(() => failWith(a), __tsplusTrace));
 }
 
-function filterOrHalt_(fa, p, haltWith) {
-  return filterOrElse_1(fa, p, a => halt_1(() => haltWith(a)));
+function filterOrHalt_(fa, p, haltWith, __tsplusTrace) {
+  return filterOrElse_1(fa, p, a => halt_1(() => haltWith(a), __tsplusTrace));
 }
 /**
  * Flattens out a nested `STM` effect.
@@ -450,8 +451,8 @@ function filterOrHalt_(fa, p, haltWith) {
  */
 
 
-function flatten_1(stm) {
-  return tsplus_module_1.flatMap_(stm, _function.identity);
+function flatten_1(stm, __tsplusTrace) {
+  return tsplus_module_1.flatMap_(stm, _function.identity, __tsplusTrace);
 }
 /**
  * Unwraps the optional error, defaulting to the provided value.
@@ -460,8 +461,8 @@ function flatten_1(stm) {
  */
 
 
-function flattenErrorOption_(stm, def) {
-  return mapError_1(stm, me => tsplus_module_9.getOrElse_(me, def));
+function flattenErrorOption_(stm, def, __tsplusTrace) {
+  return mapError_1(stm, me => tsplus_module_11.getOrElse_(me, def), __tsplusTrace);
 }
 /**
  * Applies the function `f` to each element of the `Iterable<A>` and
@@ -471,19 +472,19 @@ function flattenErrorOption_(stm, def) {
  */
 
 
-function foreach_(it, f) {
+function foreach_(it, f, __tsplusTrace) {
   return defer_1(() => {
-    let stm = tsplus_module_8.succeedNow([]);
+    let stm = tsplus_module_10.succeedNow([], __tsplusTrace);
 
     for (const a of it) {
       stm = zipWith_1(stm, f(a), (acc, b) => {
         acc.push(b);
         return acc;
-      });
+      }, __tsplusTrace);
     }
 
     return stm;
-  });
+  }, __tsplusTrace);
 }
 /**
  * Lifts an `Either` into a `STM`.
@@ -492,8 +493,8 @@ function foreach_(it, f) {
  */
 
 
-function fromEither(e) {
-  return defer_1(() => tsplus_module_11.match_(e(), tsplus_module_8.failNow, tsplus_module_8.succeedNow));
+function fromEither(e, __tsplusTrace) {
+  return defer_1(() => tsplus_module_13.match_(e(), tsplus_module_10.failNow, tsplus_module_10.succeedNow), __tsplusTrace);
 }
 /**
  * Lifts an `Either` into a `STM`.
@@ -502,16 +503,16 @@ function fromEither(e) {
  */
 
 
-function fromEitherNow_1(e) {
-  return tsplus_module_11.match_(e, tsplus_module_8.failNow, tsplus_module_8.succeedNow);
+function fromEitherNow_1(e, __tsplusTrace) {
+  return tsplus_module_13.match_(e, tsplus_module_10.failNow, tsplus_module_10.succeedNow);
 }
 /**
  * Unwraps the optional success of this effect, but can fail with an None value.
  */
 
 
-function get(stm) {
-  return tsplus_module_1.matchSTM_(stm, e => tsplus_module_8.failNow(tsplus_module_2.just(e)), ma => tsplus_module_12.match_(ma, () => tsplus_module_8.failNow(tsplus_module_2.nothing()), tsplus_module_8.succeedNow));
+function get(stm, __tsplusTrace) {
+  return tsplus_module_1.matchSTM_(stm, e => tsplus_module_10.failNow(tsplus_module_2.just(e), __tsplusTrace), ma => tsplus_module_14.match_(ma, () => tsplus_module_10.failNow(tsplus_module_2.nothing(), __tsplusTrace), tsplus_module_10.succeedNow), __tsplusTrace);
 }
 /**
  * Provides the transaction its required environment, which eliminates
@@ -521,8 +522,8 @@ function get(stm) {
  */
 
 
-function provideEnvironment_1(stm, r) {
-  return contramapEnvironment_1(stm, () => r);
+function provideEnvironment_(stm, r, __tsplusTrace) {
+  return contramapEnvironment_1(stm, () => r, __tsplusTrace);
 }
 /**
  * Provides some of the environment required to run this effect,
@@ -532,7 +533,7 @@ function provideEnvironment_1(stm, r) {
  */
 
 
-function contramapEnvironment_1(self, f) {
+function contramapEnvironment_1(self, f, __tsplusTrace) {
   return new _definition.ContramapEnvironment(self, f);
 }
 /**
@@ -542,7 +543,7 @@ function contramapEnvironment_1(self, f) {
  */
 
 
-function halt_1(u) {
+function halt_1(u, __tsplusTrace) {
   return new _definition.Effect(() => {
     throw new _definition.HaltException(u());
   });
@@ -554,7 +555,7 @@ function halt_1(u) {
  */
 
 
-function haltNow(u) {
+function haltNow(u, __tsplusTrace) {
   return new _definition.Effect(() => {
     throw new _definition.HaltException(u);
   });
@@ -567,12 +568,12 @@ function haltNow(u) {
  */
 
 
-function head(stm) {
-  return tsplus_module_1.matchSTM_(stm, e => tsplus_module_8.failNow(tsplus_module_2.just(e)), ia => {
+function head(stm, __tsplusTrace) {
+  return tsplus_module_1.matchSTM_(stm, e => tsplus_module_10.failNow(tsplus_module_2.just(e), __tsplusTrace), ia => {
     const it = ia[Symbol.iterator]();
     const next = it.next();
-    return next.done ? tsplus_module_8.failNow(tsplus_module_2.nothing()) : tsplus_module_8.succeedNow(next.value);
-  });
+    return next.done ? tsplus_module_10.failNow(tsplus_module_2.nothing(), __tsplusTrace) : tsplus_module_10.succeedNow(next.value, __tsplusTrace);
+  }, __tsplusTrace);
 }
 /**
  * Interrupts the fiber running the effect.
@@ -581,7 +582,7 @@ function head(stm) {
  */
 
 
-const interrupt = /*#__PURE__*/tsplus_module_1.flatMap_(tsplus_module_8.fiberId, id => tsplus_module_8.interruptAs(id));
+const interrupt = /*#__PURE__*/tsplus_module_1.flatMap_(tsplus_module_10.fiberId, id => tsplus_module_10.interruptAs(id, fileName_1 + ":549:95"), fileName_1 + ":549:71");
 /**
  * Returns whether this effect is a failure.
  *
@@ -590,8 +591,8 @@ const interrupt = /*#__PURE__*/tsplus_module_1.flatMap_(tsplus_module_8.fiberId,
 
 exports.interrupt = interrupt;
 
-function isFailure(stm) {
-  return match_1(stm, () => true, () => false);
+function isFailure(stm, __tsplusTrace) {
+  return match_1(stm, () => true, () => false, __tsplusTrace);
 }
 /**
  * Returns whether this effect is a success.
@@ -600,28 +601,8 @@ function isFailure(stm) {
  */
 
 
-function isSuccess(stm) {
-  return match_1(stm, () => false, () => true);
-}
-/**
- * Depending on provided environment returns either this one or the other effect.
- *
- * @tsplus fluent fncts.io.STM join
- */
-
-
-function join_(stm, that) {
-  return environmentWithSTM_1(r => tsplus_module_11.match_(r, r => provideEnvironment_1(stm, r), r1 => provideEnvironment_1(that, r1)));
-}
-/**
- * Depending on provided environment returns either this one or the other effect.
- *
- * @tsplus fluent fncts.io.STM joinEither
- */
-
-
-function joinEither_(stm, that) {
-  return environmentWithSTM_1(r => tsplus_module_11.match_(r, r => tsplus_module_1.map_(provideEnvironment_1(stm, r), tsplus_module_10.left), r1 => tsplus_module_1.map_(provideEnvironment_1(that, r1), tsplus_module_10.right)));
+function isSuccess(stm, __tsplusTrace) {
+  return match_1(stm, () => false, () => true, __tsplusTrace);
 }
 /**
  * Returns a successful effect if the value is `Left`, or fails with the error `None`.
@@ -630,8 +611,8 @@ function joinEither_(stm, that) {
  */
 
 
-function left(stm) {
-  return tsplus_module_1.matchSTM_(stm, e => tsplus_module_8.fail(() => tsplus_module_2.just(e)), bc => tsplus_module_11.match_(bc, tsplus_module_8.succeedNow, () => tsplus_module_8.failNow(tsplus_module_2.nothing())));
+function left(stm, __tsplusTrace) {
+  return tsplus_module_1.matchSTM_(stm, e => tsplus_module_10.fail(() => tsplus_module_2.just(e), __tsplusTrace), bc => tsplus_module_13.match_(bc, tsplus_module_10.succeedNow, () => tsplus_module_10.failNow(tsplus_module_2.nothing(), __tsplusTrace)), __tsplusTrace);
 }
 /**
  * Returns a successful effect if the value is `Left`, or fails with the error e.
@@ -640,8 +621,8 @@ function left(stm) {
  */
 
 
-function leftOrFail_(stm, orFail) {
-  return tsplus_module_1.flatMap_(stm, bc => tsplus_module_11.match_(bc, tsplus_module_8.succeedNow, c => tsplus_module_8.fail(() => orFail(c))));
+function leftOrFail_(stm, orFail, __tsplusTrace) {
+  return tsplus_module_1.flatMap_(stm, bc => tsplus_module_13.match_(bc, tsplus_module_10.succeedNow, c => tsplus_module_10.fail(() => orFail(c), __tsplusTrace)), __tsplusTrace);
 }
 /**
  * Maps from one error type to another.
@@ -650,8 +631,8 @@ function leftOrFail_(stm, orFail) {
  */
 
 
-function mapError_1(stm, f) {
-  return tsplus_module_1.matchSTM_(stm, e => tsplus_module_8.failNow(f(e)), tsplus_module_8.succeedNow);
+function mapError_1(stm, f, __tsplusTrace) {
+  return tsplus_module_1.matchSTM_(stm, e => tsplus_module_10.failNow(f(e), __tsplusTrace), tsplus_module_10.succeedNow, __tsplusTrace);
 }
 /**
  * Folds over the `STM` effect, handling both failure and success, but not
@@ -661,8 +642,8 @@ function mapError_1(stm, f) {
  */
 
 
-function match_1(stm, g, f) {
-  return tsplus_module_1.matchSTM_(stm, e => tsplus_module_8.succeedNow(g(e)), a => tsplus_module_8.succeedNow(f(a)));
+function match_1(stm, g, f, __tsplusTrace) {
+  return tsplus_module_1.matchSTM_(stm, e => tsplus_module_10.succeedNow(g(e), __tsplusTrace), a => tsplus_module_10.succeedNow(f(a), __tsplusTrace), __tsplusTrace);
 }
 /**
  * Repeats this `STM` effect until its result satisfies the specified predicate.
@@ -680,8 +661,8 @@ function match_1(stm, g, f) {
  */
 
 
-function repeatUntil_1(stm, f) {
-  return tsplus_module_1.flatMap_(stm, a => f(a) ? tsplus_module_8.succeedNow(a) : repeatUntil_1(stm, f));
+function repeatUntil_1(stm, f, __tsplusTrace) {
+  return tsplus_module_1.flatMap_(stm, a => f(a) ? tsplus_module_10.succeedNow(a, __tsplusTrace) : repeatUntil_1(stm, f, __tsplusTrace), __tsplusTrace);
 }
 /**
  * Repeats this `STM` effect while its result satisfies the specified predicate.
@@ -699,8 +680,8 @@ function repeatUntil_1(stm, f) {
  */
 
 
-function repeatWhile_1(stm, f) {
-  return tsplus_module_1.flatMap_(stm, a => f(a) ? repeatWhile_1(stm, f) : tsplus_module_8.succeedNow(a));
+function repeatWhile_1(stm, f, __tsplusTrace) {
+  return tsplus_module_1.flatMap_(stm, a => f(a) ? repeatWhile_1(stm, f, __tsplusTrace) : tsplus_module_10.succeedNow(a, __tsplusTrace), __tsplusTrace);
 }
 /**
  * Returns an effect that swaps the error/success cases. This allows you to
@@ -710,8 +691,8 @@ function repeatWhile_1(stm, f) {
  */
 
 
-function swap_1(stm) {
-  return tsplus_module_1.matchSTM_(stm, tsplus_module_8.succeedNow, tsplus_module_8.failNow);
+function swap_1(stm, __tsplusTrace) {
+  return tsplus_module_1.matchSTM_(stm, tsplus_module_10.succeedNow, tsplus_module_10.failNow, __tsplusTrace);
 }
 /**
  * Swaps the error/value parameters, applies the function `f` and flips the parameters back
@@ -720,8 +701,8 @@ function swap_1(stm) {
  */
 
 
-function swapWith_1(stm, f) {
-  return swap_1(f(swap_1(stm)));
+function swapWith_1(stm, f, __tsplusTrace) {
+  return swap_1(f(swap_1(stm, __tsplusTrace)), __tsplusTrace);
 }
 /**
  * "Peeks" at the success of transactional effect.
@@ -730,8 +711,8 @@ function swapWith_1(stm, f) {
  */
 
 
-function tap_(stm, f) {
-  return tsplus_module_1.flatMap_(stm, a => as_1(f(a), () => a));
+function tap_(stm, f, __tsplusTrace) {
+  return tsplus_module_1.flatMap_(stm, a => as_1(f(a), () => a, __tsplusTrace), __tsplusTrace);
 }
 /**
  * Returns an effect with the value on the left part.
@@ -740,8 +721,8 @@ function tap_(stm, f) {
  */
 
 
-function toLeft(a) {
-  return tsplus_module_1.flatMap_(tsplus_module_8.succeed(a), a => tsplus_module_8.succeedNow(tsplus_module_10.left(a)));
+function toLeft(a, __tsplusTrace) {
+  return tsplus_module_1.flatMap_(tsplus_module_10.succeed(a, __tsplusTrace), a => tsplus_module_10.succeedNow(tsplus_module_12.left(a), __tsplusTrace), __tsplusTrace);
 }
 /**
  * Returns an `STM` effect that succeeds with `Unit`.
@@ -750,7 +731,7 @@ function toLeft(a) {
  */
 
 
-const unit_1 = /*#__PURE__*/tsplus_module_8.succeedNow(undefined);
+const unit_1 = /*#__PURE__*/tsplus_module_10.succeedNow(undefined, fileName_1 + ":713:35");
 const unit = unit_1;
 /**
  * Sequentially zips this value with the specified one, combining the values
@@ -761,7 +742,7 @@ const unit = unit_1;
 
 exports.unit = unit;
 
-function zipWith_1(self, that, f) {
-  return tsplus_module_1.flatMap_(self, a => tsplus_module_1.map_(that, b => f(a, b)));
+function zipWith_1(self, that, f, __tsplusTrace) {
+  return tsplus_module_1.flatMap_(self, a => tsplus_module_1.map_(that, b => f(a, b), __tsplusTrace), __tsplusTrace);
 }
 //# sourceMappingURL=api.cjs.map