@fncts/io 0.0.11 → 0.0.14

package/_mjs/STM/api.mjs

@@ -5,15 +5,16 @@ import * as tsplus_module_3 from "@fncts/io/IO/api";
 import * as tsplus_module_4 from "@fncts/io/TxnId";
 import * as tsplus_module_5 from "@fncts/io/STM/internal/CommitState";
 import * as tsplus_module_6 from "@fncts/io/IO/api/interrupt";
-import * as tsplus_module_7 from "@fncts/io/IO/api/environment";
-import * as tsplus_module_8 from "@fncts/io/STM/api/core-constructors";
-import * as tsplus_module_9 from "@fncts/base/data/Maybe/api";
-import * as tsplus_module_10 from "@fncts/base/data/Either/constructors";
-import * as tsplus_module_11 from "@fncts/base/data/Either/destructors";
-import * as tsplus_module_12 from "@fncts/base/data/Maybe/destructors";
+import * as tsplus_module_7 from "@fncts/io/FiberRef/unsafe";
+import * as tsplus_module_8 from "@fncts/io/FiberRef/api";
+import * as tsplus_module_9 from "@fncts/io/IO/api/environment";
+import * as tsplus_module_10 from "@fncts/io/STM/api/core-constructors";
+import * as tsplus_module_11 from "@fncts/base/data/Maybe/api";
+import * as tsplus_module_12 from "@fncts/base/data/Either/constructors";
+import * as tsplus_module_13 from "@fncts/base/data/Either/destructors";
+import * as tsplus_module_14 from "@fncts/base/data/Maybe/destructors";
 export const as_ = as_1;
 export const environment = environment_1;
-export const environmentWithSTM = environmentWithSTM_1;
 export const atomically = atomically_1;
 export const continueOrFailSTM_ = continueOrFailSTM_1;
 export const continueOrRetrySTM_ = continueOrRetrySTM_1;
@@ -24,7 +25,6 @@ export const filterMapSTM_ = filterMapSTM_1;
 export const filterOrElse_ = filterOrElse_1;
 export const flatten = flatten_1;
 export const fromEitherNow = fromEitherNow_1;
-export const provideEnvironment_ = provideEnvironment_1;
 export const contramapEnvironment_ = contramapEnvironment_1;
 export const halt = halt_1;
 export const mapError_ = mapError_1;
@@ -44,8 +44,8 @@ import { tryCommitAsync, tryCommitSync } from "./internal/Journal.mjs";
  * @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.
@@ -54,8 +54,8 @@ function as_1(stm, b) {
  */
 
 
-export function asJust(stm) {
-  return tsplus_module_1.map_(stm, tsplus_module_2.just);
+export 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.
@@ -63,8 +63,8 @@ export function asJust(stm) {
  * @tsplus getter fncts.io.STM asJustError
  */
 
-export function asJustError(stm) {
-  return mapError_1(stm, tsplus_module_2.just);
+export 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
@@ -73,14 +73,14 @@ export function asJustError(stm) {
  * @tsplus getter fncts.io.STM absolve
  */
 
-export function absolve(z) {
-  return tsplus_module_1.flatMap_(z, fromEitherNow_1);
+export function absolve(z, __tsplusTrace) {
+  return tsplus_module_1.flatMap_(z, fromEitherNow_1, __tsplusTrace);
 }
 /**
  * @tsplus static fncts.io.STMOps Effect
  */
 
-export function makeEffect(f) {
+export function makeEffect(f, __tsplusTrace) {
   return new Effect(f);
 }
 /**
@@ -89,7 +89,7 @@ export function makeEffect(f) {
  * @tsplus static fncts.io.STMOps environment
  */
 
-function environment_1() {
+function environment_1(__tsplusTrace) {
   return new Effect((_, __, r) => r);
 }
 /**
@@ -99,8 +99,8 @@ function environment_1() {
  */
 
 
-export function environmentWith(f) {
-  return tsplus_module_1.map_(environment_1(), f);
+export function environmentWith(f, __tsplusTrace) {
+  return tsplus_module_1.map_(environment_1(__tsplusTrace), f, __tsplusTrace);
 }
 /**
  * Accesses the environment of the transaction to perform a transaction.
@@ -108,25 +108,24 @@ export function environmentWith(f) {
  * @tsplus static fncts.io.STMOps environmentWithSTM
  */
 
-function environmentWithSTM_1(f) {
-  return tsplus_module_1.flatMap_(environment_1(), f);
+export function environmentWithSTM(f, __tsplusTrace) {
+  return tsplus_module_1.flatMap_(environment_1(__tsplusTrace), f, __tsplusTrace);
 }
 /**
  * @tsplus static fncts.io.STMOps atomically
  * @tsplus getter fncts.io.STM commit
  */
 
-
-function atomically_1(stm) {
-  return tsplus_module_7.environmentWithIO(r => tsplus_module_3.deferWith((_, fiberId) => {
-    const result = 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 = 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"
@@ -135,7 +134,7 @@ function atomically_1(stm) {
         {
           const id = tsplus_module_4.make();
           const state = new AtomicReference(tsplus_module_5.Running);
-          const async = tsplus_module_3.async(tryCommitAsync(result.journal, fiberId, stm, id, state, r));
+          const async = tsplus_module_3.async(tryCommitAsync(result.journal, fiberId, stm, id, state, r, scheduler));
           return tsplus_module_6.uninterruptibleMask(({
             restore
           }) => tsplus_module_3.catchAllCause_(restore(async), cause => {
@@ -145,18 +144,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
@@ -164,8 +163,8 @@ function atomically_1(stm) {
  */
 
 
-export 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)));
+export 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.
@@ -173,14 +172,14 @@ export function bimap_(stm, g, f) {
  * @tsplus fluent fncts.io.STM catch
  */
 
-export function catch_(stm, tag, k, f) {
+export 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.
@@ -188,8 +187,8 @@ export function catch_(stm, tag, k, f) {
  * @tsplus fluent fncts.io.STM catchJust
  */
 
-export function catchJust_(stm, f) {
-  return tsplus_module_1.catchAll_(stm, e => tsplus_module_9.getOrElse_(f(e), () => tsplus_module_8.failNow(e)));
+export 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.
@@ -197,14 +196,14 @@ export function catchJust_(stm, f) {
  * @tsplus fluent fncts.io.STM catchTag
  */
 
-export function catchTag_(stm, k, f) {
+export 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
@@ -213,8 +212,8 @@ export function catchTag_(stm, k, f) {
  * @tsplus fluent fncts.io.STM flatMapError
  */
 
-export function chainError_(stm, f) {
-  return swapWith_1(stm, effect => tsplus_module_1.flatMap_(effect, f));
+export 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.
@@ -222,16 +221,16 @@ export function chainError_(stm, f) {
  * @tsplus static fncts.io.STMOps check
  */
 
-export function check(predicate) {
-  return defer_1(() => predicate() ? unit_1 : tsplus_module_8.retry);
+export function check(predicate, __tsplusTrace) {
+  return defer_1(() => predicate() ? unit_1 : tsplus_module_10.retry, __tsplusTrace);
 }
 /**
  * Commits this transaction atomically, regardless of whether the transaction
  * is a success or a failure.
  */
 
-export function commitEither(stm) {
-  return tsplus_module_3.absolve(atomically_1(either_1(stm)), fileName_1 + ":203:27");
+export 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
@@ -240,8 +239,8 @@ export function commitEither(stm) {
  * @tsplus fluent fncts.io.STM continueOrFail
  */
 
-export function continueOrFail_(fa, e, pf) {
-  return continueOrFailSTM_1(fa, e, a => tsplus_module_9.map_(pf(a), tsplus_module_8.succeedNow));
+export 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
@@ -250,8 +249,8 @@ export function continueOrFail_(fa, e, pf) {
  * @tsplus fluent fncts.io.STM continueOrFailSTM
  */
 
-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
@@ -261,8 +260,8 @@ function continueOrFailSTM_1(fa, e, pf) {
  */
 
 
-export function continueOrRetry_(fa, pf) {
-  return continueOrRetrySTM_1(fa, a => tsplus_module_9.map_(pf(a), tsplus_module_8.succeedNow));
+export 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.
@@ -271,8 +270,8 @@ export function continueOrRetry_(fa, pf) {
  * @tsplus fluent fncts.io.STM continueOrRetrySTM
  */
 
-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.
@@ -281,8 +280,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`.
@@ -291,8 +290,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.
@@ -301,8 +300,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.
@@ -311,8 +310,8 @@ function eventually_1(stm) {
  */
 
 
-export function filterMap_(stm, f) {
-  return filterMapSTM_1(stm, a => tsplus_module_9.map_(f(a), tsplus_module_8.succeedNow));
+export 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.
@@ -321,19 +320,19 @@ export function filterMap_(stm, f) {
  * @tsplus fluent fncts.io.STM filterMapSTM
  */
 
-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);
 }
 
-export function filterOrFail_(fa, p, failWith) {
-  return filterOrElse_1(fa, p, a => tsplus_module_8.fail(() => failWith(a)));
+export function filterOrFail_(fa, p, failWith, __tsplusTrace) {
+  return filterOrElse_1(fa, p, a => tsplus_module_10.fail(() => failWith(a), __tsplusTrace));
 }
-export function filterOrHalt_(fa, p, haltWith) {
-  return filterOrElse_1(fa, p, a => halt_1(() => haltWith(a)));
+export function filterOrHalt_(fa, p, haltWith, __tsplusTrace) {
+  return filterOrElse_1(fa, p, a => halt_1(() => haltWith(a), __tsplusTrace));
 }
 /**
  * Flattens out a nested `STM` effect.
@@ -341,8 +340,8 @@ export function filterOrHalt_(fa, p, haltWith) {
  * @tsplus getter fncts.io.STM flatten
  */
 
-function flatten_1(stm) {
-  return tsplus_module_1.flatMap_(stm, identity);
+function flatten_1(stm, __tsplusTrace) {
+  return tsplus_module_1.flatMap_(stm, identity, __tsplusTrace);
 }
 /**
  * Unwraps the optional error, defaulting to the provided value.
@@ -351,8 +350,8 @@ function flatten_1(stm) {
  */
 
 
-export function flattenErrorOption_(stm, def) {
-  return mapError_1(stm, me => tsplus_module_9.getOrElse_(me, def));
+export 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
@@ -361,19 +360,19 @@ export function flattenErrorOption_(stm, def) {
  * @tsplus static fncts.io.STMOps foreach
  */
 
-export function foreach_(it, f) {
+export 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`.
@@ -381,8 +380,8 @@ export function foreach_(it, f) {
  * @tsplus static fncts.io.STMOps fromEither
  */
 
-export function fromEither(e) {
-  return defer_1(() => tsplus_module_11.match_(e(), tsplus_module_8.failNow, tsplus_module_8.succeedNow));
+export 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`.
@@ -390,16 +389,16 @@ export function fromEither(e) {
  * @tsplus static fncts.io.STMOps fromEitherNow
  */
 
-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.
  */
 
 
-export 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));
+export 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
@@ -408,8 +407,8 @@ export function get(stm) {
  * @tsplus fluent fncts.io.STM provideEnvironment
  */
 
-function provideEnvironment_1(stm, r) {
-  return contramapEnvironment_1(stm, () => r);
+export function provideEnvironment_(stm, r, __tsplusTrace) {
+  return contramapEnvironment_1(stm, () => r, __tsplusTrace);
 }
 /**
  * Provides some of the environment required to run this effect,
@@ -418,8 +417,7 @@ function provideEnvironment_1(stm, r) {
  * @tsplus fluent fncts.io.STM contramapEnvironment
  */
 
-
-function contramapEnvironment_1(self, f) {
+function contramapEnvironment_1(self, f, __tsplusTrace) {
   return new ContramapEnvironment(self, f);
 }
 /**
@@ -429,7 +427,7 @@ function contramapEnvironment_1(self, f) {
  */
 
 
-function halt_1(u) {
+function halt_1(u, __tsplusTrace) {
   return new Effect(() => {
     throw new HaltException(u());
   });
@@ -441,7 +439,7 @@ function halt_1(u) {
  */
 
 
-export function haltNow(u) {
+export function haltNow(u, __tsplusTrace) {
   return new Effect(() => {
     throw new HaltException(u);
   });
@@ -453,12 +451,12 @@ export function haltNow(u) {
  * @tsplus getter fncts.io.STM head
  */
 
-export function head(stm) {
-  return tsplus_module_1.matchSTM_(stm, e => tsplus_module_8.failNow(tsplus_module_2.just(e)), ia => {
+export 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.
@@ -466,15 +464,15 @@ export function head(stm) {
  * @tsplus static fncts.io.STMOps interrupt
  */
 
-export const interrupt = /*#__PURE__*/tsplus_module_1.flatMap_(tsplus_module_8.fiberId, id => tsplus_module_8.interruptAs(id));
+export 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.
  *
  * @tsplus getter fncts.io.STM isFailure
  */
 
-export function isFailure(stm) {
-  return match_1(stm, () => true, () => false);
+export function isFailure(stm, __tsplusTrace) {
+  return match_1(stm, () => true, () => false, __tsplusTrace);
 }
 /**
  * Returns whether this effect is a success.
@@ -482,26 +480,8 @@ export function isFailure(stm) {
  * @tsplus getter fncts.io.STM isSuccess
  */
 
-export 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
- */
-
-export 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
- */
-
-export 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)));
+export 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`.
@@ -509,8 +489,8 @@ export function joinEither_(stm, that) {
  * @tsplus getter fncts.io.STM left
  */
 
-export 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())));
+export 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.
@@ -518,8 +498,8 @@ export function left(stm) {
  * @tsplus fluent fncts.io.STM leftOrFail
  */
 
-export 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))));
+export 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.
@@ -527,8 +507,8 @@ export function leftOrFail_(stm, orFail) {
  * @tsplus fluent fncts.io.STM mapError
  */
 
-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
@@ -538,8 +518,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.
@@ -557,8 +537,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.
@@ -576,8 +556,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
@@ -587,8 +567,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
@@ -597,8 +577,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.
@@ -607,8 +587,8 @@ function swapWith_1(stm, f) {
  */
 
 
-export function tap_(stm, f) {
-  return tsplus_module_1.flatMap_(stm, a => as_1(f(a), () => a));
+export 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.
@@ -616,8 +596,8 @@ export function tap_(stm, f) {
  * @tsplus static fncts.io.STMOps toLeft
  */
 
-export function toLeft(a) {
-  return tsplus_module_1.flatMap_(tsplus_module_8.succeed(a), a => tsplus_module_8.succeedNow(tsplus_module_10.left(a)));
+export 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`.
@@ -625,7 +605,7 @@ export function toLeft(a) {
  * @tsplus static fncts.io.STMOps unit
  */
 
-const unit_1 = /*#__PURE__*/tsplus_module_8.succeedNow(undefined);
+const unit_1 = /*#__PURE__*/tsplus_module_10.succeedNow(undefined, fileName_1 + ":713:35");
 export const unit = unit_1;
 /**
  * Sequentially zips this value with the specified one, combining the values
@@ -634,7 +614,7 @@ export const unit = unit_1;
  * @tsplus fluent fncts.io.STM zipWith
  */
 
-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.mjs.map