@fncts/io 0.0.21 → 0.0.23

package/_mjs/IO/api.mjs

@@ -1,29 +1,30 @@
 const fileName_1 = "(@fncts/io) src/IO/api.ts";
 import * as tsplus_module_1 from "@fncts/base/data/FiberId/constructors";
-import * as tsplus_module_2 from "@fncts/base/data/Maybe/constructors";
-import * as tsplus_module_3 from "@fncts/base/data/Either/constructors";
-import * as tsplus_module_4 from "@fncts/base/data/Maybe/destructors";
-import * as tsplus_module_5 from "@fncts/base/data/Cause/api";
-import * as tsplus_module_6 from "@fncts/base/data/Either/destructors";
-import * as tsplus_module_7 from "@fncts/base/util/predicates";
-import * as tsplus_module_8 from "@fncts/base/data/Maybe/api";
-import * as tsplus_module_9 from "@fncts/io/InterruptStatus/constructors";
-import * as tsplus_module_10 from "@fncts/base/data/Exit/constructors";
-import * as tsplus_module_11 from "@fncts/base/collection/immutable/Conc/api";
-import * as tsplus_module_12 from "@fncts/base/collection/Iterable/api";
-import * as tsplus_module_13 from "@fncts/base/collection/immutable/Conc/constructors";
-import * as tsplus_module_14 from "@fncts/base/data/Maybe/definition";
-import * as tsplus_module_15 from "@fncts/base/control/Eval/run";
-import * as tsplus_module_16 from "@fncts/base/data/Exit/api";
-import * as tsplus_module_17 from "@fncts/base/data/Trace/constructors";
-import * as tsplus_module_18 from "@fncts/base/collection/immutable/Conc/api/empty";
-import * as tsplus_module_19 from "@fncts/base/collection/immutable/List/api";
-import * as tsplus_module_20 from "@fncts/base/collection/immutable/ImmutableArray/constructors";
-import * as tsplus_module_21 from "@fncts/base/collection/immutable/ImmutableArray/api";
+import * as tsplus_module_2 from "@fncts/base/data/Cause/api";
+import * as tsplus_module_3 from "@fncts/base/data/Maybe/constructors";
+import * as tsplus_module_4 from "@fncts/base/data/Either/destructors";
+import * as tsplus_module_5 from "@fncts/base/util/predicates";
+import * as tsplus_module_6 from "@fncts/base/data/Maybe/api";
+import * as tsplus_module_7 from "@fncts/io/RuntimeFlags/RuntimeFlags";
+import * as tsplus_module_8 from "@fncts/io/InterruptStatus/constructors";
+import * as tsplus_module_9 from "@fncts/io/FiberDescriptor";
+import * as tsplus_module_10 from "@fncts/io/FiberRef/unsafe";
+import * as tsplus_module_11 from "@fncts/base/data/Either/constructors";
+import * as tsplus_module_12 from "@fncts/base/collection/immutable/Conc/api";
+import * as tsplus_module_13 from "@fncts/base/collection/Iterable/api";
+import * as tsplus_module_14 from "@fncts/base/collection/immutable/Conc/constructors";
+import * as tsplus_module_15 from "@fncts/base/data/Maybe/definition";
+import * as tsplus_module_16 from "@fncts/base/control/Eval/run";
+import * as tsplus_module_17 from "@fncts/base/data/Exit/api";
+import * as tsplus_module_18 from "@fncts/base/data/Maybe/destructors";
+import * as tsplus_module_19 from "@fncts/base/data/Trace/constructors";
+import * as tsplus_module_20 from "@fncts/base/collection/immutable/Conc/api/empty";
+import * as tsplus_module_21 from "@fncts/base/collection/immutable/List/api";
+import * as tsplus_module_22 from "@fncts/base/collection/immutable/ImmutableArray/constructors";
+import * as tsplus_module_23 from "@fncts/base/collection/immutable/ImmutableArray/api";
+import * as tsplus_module_24 from "@fncts/base/data/Exit/constructors";
 export const async = async_1;
-export const asyncMaybe = asyncMaybe_1;
-export const asyncInterrupt = asyncInterrupt_1;
-export const apSecond = apSecond_1;
+export const zipRight = zipRight_1;
 export const as = as_1;
 export const asUnit = asUnit_1;
 export const catchTagWith = catchTagWith_1;
@@ -32,14 +33,15 @@ export const catchAllCause = catchAllCause_1;
 export const flatMap = flatMap_1;
 export const collectIO = collectIO_1;
 export const defer = defer_1;
-export const deferWith = deferWith_1;
 export const descriptorWith = descriptorWith_1;
 export const either = either_1;
 export const eventually = eventually_1;
 export const fail = fail_1;
 export const failNow = failNow_1;
+export const refailCause = refailCause_1;
 export const failCauseNow = failCauseNow_1;
 export const failCause = failCause_1;
+export const fiberIdWith = fiberIdWith_1;
 export const filter = filter_1;
 export const filterMapWithIndex = filterMapWithIndex_1;
 export const filterOrElse = filterOrElse_1;
@@ -79,60 +81,22 @@ export const tryCatch = tryCatch_1;
 export const tryOrElse = tryOrElse_1;
 export const unrefineWith = unrefineWith_1;
 export const unsandbox = unsandbox_1;
-export const withFiberContext = withFiberContext_1;
 export const whenIO = whenIO_1;
+export const withFiberRuntime = withFiberRuntime_1;
+export const stackTrace = stackTrace_1;
 export const zipWith = zipWith_1;
 export const gen = gen_1;
 import { identity, pipe, tuple } from "@fncts/base/data/function";
+import { Async, GenerateStackTrace, OnSuccess, OnSuccessAndFailure, Sync, UpdateRuntimeFlags, YieldNow } from "@fncts/io/IO/definition";
 import { Stateful } from "@fncts/io/IO/definition";
-import { Async, Chain, Defer, DeferWith, Fail, Fork, IO, IOError, Logged, Match, Succeed, SucceedNow, Yield } from "@fncts/io/IO/definition";
+import { Fail, IOError, SucceedNow } from "@fncts/io/IO/definition";
 /**
  * Imports an asynchronous side-effect into a `IO`
  *
  * @tsplus static fncts.io.IOOps async
  */
-
 function async_1(register, blockingOn = tsplus_module_1.none, __tsplusTrace) {
-  return asyncMaybe_1(cb => {
-    register(cb);
-    return tsplus_module_2.nothing();
-  }, blockingOn, __tsplusTrace);
-}
-/**
- * Imports an asynchronous effect into a pure `IO`, possibly returning the value synchronously.
- *
- * If the register function returns a value synchronously, then the callback
- * function must not be called. Otherwise the callback function must be called at most once.
- *
- * @tsplus static fncts.io.IOOps asyncMaybe
- */
-
-
-function asyncMaybe_1(register, blockingOn = tsplus_module_1.none, __tsplusTrace) {
-  return asyncInterrupt_1(cb => tsplus_module_4.match(() => tsplus_module_3.left(unit_1), tsplus_module_3.right)(register(cb)), blockingOn, __tsplusTrace);
-}
-/**
- * Imports an asynchronous side-effect into an IO. The side-effect
- * has the option of returning the value synchronously, which is useful in
- * cases where it cannot be determined if the effect is synchronous or
- * asynchronous until the side-effect is actually executed. The effect also
- * has the option of returning a canceler, which will be used by the runtime
- * to cancel the asynchronous effect if the fiber executing the effect is
- * interrupted.
- *
- * If the register function returns a value synchronously, then the callback
- * function must not be called. Otherwise the callback function must be called
- * at most once.
- *
- * The list of fibers, that may complete the async callback, is used to
- * provide better diagnostics.
- *
- * @tsplus static fncts.io.IOOps asyncInterrupt
- */
-
-
-function asyncInterrupt_1(register, blockingOn = tsplus_module_1.none, __tsplusTrace) {
-  return new Async(register, blockingOn, __tsplusTrace);
+  return new Async(register, () => blockingOn, __tsplusTrace);
 }
 /**
  * Attempts to convert defects into a failure, throwing away all information
@@ -140,17 +104,14 @@ function asyncInterrupt_1(register, blockingOn = tsplus_module_1.none, __tsplusT
  *
  * @tsplus pipeable fncts.io.IO absorbWith
  */
-
-
 export function absorbWith(f, __tsplusTrace) {
-  return ma => matchIO_1(cause => failNow_1(tsplus_module_5.squashWith(f)(cause), __tsplusTrace), succeedNow_1, __tsplusTrace)(sandbox_1(ma, __tsplusTrace));
+  return ma => matchIO_1(cause => failNow_1(tsplus_module_2.squashWith(f)(cause), __tsplusTrace), succeedNow_1, __tsplusTrace)(sandbox_1(ma, __tsplusTrace));
 }
 /**
- * @tsplus pipeable fncts.io.IO apFirst
+ * @tsplus pipeable fncts.io.IO zipLeft
  * @tsplus pipeable-operator fncts.io.IO <
  */
-
-export function apFirst(fb, __tsplusTrace) {
+export function zipLeft(fb, __tsplusTrace) {
   return self => {
     return flatMap_1(a => map_1(() => a, __tsplusTrace)(fb), __tsplusTrace)(self);
   };
@@ -158,11 +119,10 @@ export function apFirst(fb, __tsplusTrace) {
 /**
  * Combine two effectful actions, keeping only the result of the second
  *
- * @tsplus pipeable fncts.io.IO apSecond
+ * @tsplus pipeable fncts.io.IO zipRight
  * @tsplus pipeable-operator fncts.io.IO >
  */
-
-function apSecond_1(fb, __tsplusTrace) {
+function zipRight_1(fb, __tsplusTrace) {
   return self => {
     return flatMap_1(() => fb, __tsplusTrace)(self);
   };
@@ -170,8 +130,6 @@ function apSecond_1(fb, __tsplusTrace) {
 /**
  * @tsplus pipeable fncts.io.IO as
  */
-
-
 function as_1(b, __tsplusTrace) {
   return self => {
     return map_1(() => b(), __tsplusTrace)(self);
@@ -182,24 +140,20 @@ function as_1(b, __tsplusTrace) {
  *
  * @tsplus getter fncts.io.IO asJust
  */
-
-
 export function asJust(ma, __tsplusTrace) {
-  return map_1(tsplus_module_2.just, __tsplusTrace)(ma);
+  return map_1(tsplus_module_3.just, __tsplusTrace)(ma);
 }
 /**
  * Maps the error value of this IO to an optional value.
  *
  * @tsplus getter fncts.io.IO asJustError
  */
-
 export function asJustError(ma, __tsplusTrace) {
-  return mapError_1(tsplus_module_2.just, __tsplusTrace)(ma);
+  return mapError_1(tsplus_module_3.just, __tsplusTrace)(ma);
 }
 /**
  * @tsplus getter fncts.io.IO asUnit
  */
-
 function asUnit_1(self, __tsplusTrace) {
   return as_1(() => undefined, __tsplusTrace)(self);
 }
@@ -209,8 +163,6 @@ function asUnit_1(self, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO bimap
  */
-
-
 export function bimap(f, g, __tsplusTrace) {
   return self => {
     return matchIO_1(e => failNow_1(f(e), __tsplusTrace), a => succeedNow_1(g(a), __tsplusTrace), __tsplusTrace)(self);
@@ -222,10 +174,9 @@ export function bimap(f, g, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO bitap
  */
-
 export function bitap(onFailure, onSuccess, __tsplusTrace) {
   return self => {
-    return matchCauseIO_1(cause => tsplus_module_6.match(e => flatMap_1(() => failCauseNow_1(cause, __tsplusTrace), __tsplusTrace)(onFailure(e)), () => failCauseNow_1(cause, __tsplusTrace))(tsplus_module_5.failureOrCause(cause)), a => apSecond_1(succeedNow_1(a, __tsplusTrace), __tsplusTrace)(onSuccess(a)), __tsplusTrace)(self);
+    return matchCauseIO_1(cause => tsplus_module_4.match(e => flatMap_1(() => failCauseNow_1(cause, __tsplusTrace), __tsplusTrace)(onFailure(e)), () => failCauseNow_1(cause, __tsplusTrace))(tsplus_module_2.failureOrCause(cause)), a => zipRight_1(succeedNow_1(a, __tsplusTrace), __tsplusTrace)(onSuccess(a)), __tsplusTrace)(self);
   };
 }
 /**
@@ -233,14 +184,12 @@ export function bitap(onFailure, onSuccess, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO catch
  */
-
 function catchTagWith_1(tag, k, f, __tsplusTrace) {
   return ma => {
     return catchAll_1(e => {
-      if (tsplus_module_7.isObject(e) && tag in e && e[tag] === k) {
+      if (tsplus_module_5.isObject(e) && tag in e && e[tag] === k) {
         return f(e);
       }
-
       return failNow_1(e, __tsplusTrace);
     }, __tsplusTrace)(ma);
   };
@@ -250,8 +199,6 @@ function catchTagWith_1(tag, k, f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO catchAll
  */
-
-
 function catchAll_1(f, __tsplusTrace) {
   return ma => {
     return matchIO_1(f, succeedNow_1, __tsplusTrace)(ma);
@@ -263,8 +210,6 @@ function catchAll_1(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO catchAllCause
  */
-
-
 function catchAllCause_1(f, __tsplusTrace) {
   return ma => matchCauseIO_1(f, succeedNow_1, __tsplusTrace)(ma);
 }
@@ -273,11 +218,9 @@ function catchAllCause_1(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO catchJust
  */
-
-
 export function catchJust(f, __tsplusTrace) {
   return ma => {
-    return matchCauseIO_1(cause => tsplus_module_6.match(e => tsplus_module_8.getOrElse(() => failCauseNow_1(cause, __tsplusTrace))(f(e)), failCauseNow_1)(tsplus_module_5.failureOrCause(cause)), succeedNow_1, __tsplusTrace)(ma);
+    return matchCauseIO_1(cause => tsplus_module_4.match(e => tsplus_module_6.getOrElse(() => failCauseNow_1(cause, __tsplusTrace))(f(e)), failCauseNow_1)(tsplus_module_2.failureOrCause(cause)), succeedNow_1, __tsplusTrace)(ma);
   };
 }
 /**
@@ -285,10 +228,9 @@ export function catchJust(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO catchJustCause
  */
-
 export function catchJustCause(f, __tsplusTrace) {
   return ma => {
-    return matchCauseIO_1(cause => tsplus_module_8.getOrElse(() => failCauseNow_1(cause, __tsplusTrace))(f(cause)), succeedNow_1, __tsplusTrace)(ma);
+    return matchCauseIO_1(cause => tsplus_module_6.getOrElse(() => failCauseNow_1(cause, __tsplusTrace))(f(cause)), succeedNow_1, __tsplusTrace)(ma);
   };
 }
 /**
@@ -301,7 +243,6 @@ export function catchJustCause(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO catchJustDefect
  */
-
 export function catchJustDefect(f, __tsplusTrace) {
   return ma => {
     return catchAll_1(a => a, __tsplusTrace)(unrefineWith_1(f, failNow_1, __tsplusTrace)(ma));
@@ -312,7 +253,6 @@ export function catchJustDefect(f, __tsplusTrace) {
  *
  * @tsplus pipeable IO catchTag
  */
-
 export function catchTag(k, f, __tsplusTrace) {
   return ma => {
     return catchTagWith_1("_tag", k, f, __tsplusTrace)(ma);
@@ -321,19 +261,26 @@ export function catchTag(k, f, __tsplusTrace) {
 /**
  * @tsplus getter fncts.io.IO cause
  */
-
 export function cause(ma, __tsplusTrace) {
-  return matchCauseIO_1(succeedNow_1, () => succeedNow_1(tsplus_module_5.empty(), __tsplusTrace), __tsplusTrace)(ma);
+  return matchCauseIO_1(succeedNow_1, () => succeedNow_1(tsplus_module_2.empty(), __tsplusTrace), __tsplusTrace)(ma);
 }
 /**
  * @tsplus pipeable fncts.io.IO causeAsError
  */
-
 export function causeAsError(__tsplusTrace) {
   return ma => {
     return matchCauseIO_1(failNow_1, succeedNow_1, __tsplusTrace)(ma);
   };
 }
+/**
+ * Checks the interrupt status, and produces the IO returned by the
+ * specified callback.
+ *
+ * @tsplus static fncts.io.IOOps checkInterruptible
+ */
+export function checkInterruptible(f, __tsplusTrace) {
+  return withFiberRuntime_1((_, status) => f(tsplus_module_8.fromBoolean(tsplus_module_7.interruption(status.runtimeFlags))), __tsplusTrace);
+}
 /**
  * Returns an IO that models the execution of this effect, followed by
  * the passing of its value to the specified continuation function `f`,
@@ -341,55 +288,38 @@ export function causeAsError(__tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO flatMap
  */
-
 function flatMap_1(f, __tsplusTrace) {
   return ma => {
-    return new Chain(ma, f, __tsplusTrace);
+    return new OnSuccess(ma, f, __tsplusTrace);
   };
 }
 /**
  * @tsplus pipeable fncts.io.IO flatMapError
  */
-
-
 export function flatMapError(f, __tsplusTrace) {
   return ma => {
     return swapWith_1(effect => flatMap_1(f, __tsplusTrace)(effect), __tsplusTrace)(ma);
   };
 }
-/**
- * Checks the interrupt status, and produces the IO returned by the
- * specified callback.
- *
- * @tsplus static fncts.io.IOOps checkInterruptible
- */
-
-export function checkInterruptible(f, __tsplusTrace) {
-  return withFiberContext_1(fiber => f(tsplus_module_9.fromBoolean(fiber.unsafeIsInterruptible)), __tsplusTrace);
-}
 /**
  * @tsplus pipeable fncts.io.IO collect
  */
-
 export function collect(f, pf, __tsplusTrace) {
   return ma => {
-    return collectIO_1(f, a => tsplus_module_8.map(succeedNow_1)(pf(a)), __tsplusTrace)(ma);
+    return collectIO_1(f, a => tsplus_module_6.map(succeedNow_1)(pf(a)), __tsplusTrace)(ma);
   };
 }
 /**
  * @tsplus pipeable fncts.io.IO collectIO
  */
-
 function collectIO_1(f, pf, __tsplusTrace) {
   return ma => {
-    return flatMap_1(a => tsplus_module_8.getOrElse(() => fail_1(f, __tsplusTrace))(pf(a)), __tsplusTrace)(ma);
+    return flatMap_1(a => tsplus_module_6.getOrElse(() => fail_1(f, __tsplusTrace))(pf(a)), __tsplusTrace)(ma);
   };
 }
 /**
  * @tsplus static fncts.io.IOOps condIO
  */
-
-
 export function condIO(b, onTrue, onFalse, __tsplusTrace) {
   return b ? onTrue : flatMap_1(failNow_1, __tsplusTrace)(onFalse);
 }
@@ -401,22 +331,8 @@ export function condIO(b, onTrue, onFalse, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps defer
  */
-
 function defer_1(io, __tsplusTrace) {
-  return new Defer(io, __tsplusTrace);
-}
-/**
- * Returns a lazily constructed effect, whose construction may itself require
- * effects. The effect must not throw any exceptions. When no environment is required (i.e., when R == unknown)
- * it is conceptually equivalent to `flatten(effectTotal(io))`. If you wonder if the effect throws exceptions,
- * do not use this method, use `IO.deferTryCatchWith`.
- *
- * @tsplus static fncts.io.IOOps deferWith
- */
-
-
-function deferWith_1(io, __tsplusTrace) {
-  return new DeferWith(io, __tsplusTrace);
+  return flatMap_1(identity, __tsplusTrace)(succeed_1(io, __tsplusTrace));
 }
 /**
  * Returns a lazily constructed effect, whose construction may itself require effects.
@@ -424,30 +340,12 @@ function deferWith_1(io, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps deferTry
  */
-
-
 export function deferTry(io, __tsplusTrace) {
   return defer_1(() => {
     try {
       return io();
     } catch (u) {
-      throw new IOError(tsplus_module_10.fail(u));
-    }
-  }, __tsplusTrace);
-}
-/**
- * Returns a lazily constructed effect, whose construction may itself require effects.
- * When no environment is required (i.e., when R == unknown) it is conceptually equivalent to `flatten(effect(io))`.
- *
- * @tsplus static IOOps deferTryWith
- */
-
-export function deferTryWith(io, __tsplusTrace) {
-  return deferWith_1((runtimeConfig, id) => {
-    try {
-      return io(runtimeConfig, id);
-    } catch (u) {
-      throw new IOError(tsplus_module_10.fail(u));
+      throw new IOError(tsplus_module_2.fail(u));
     }
   }, __tsplusTrace);
 }
@@ -459,76 +357,39 @@ export function deferTryWith(io, __tsplusTrace) {
  *
  * @tsplus static IOOps deferTryCatch
  */
-
 export function deferTryCatch(io, onThrow, __tsplusTrace) {
   return defer_1(() => {
     try {
       return io();
     } catch (u) {
-      throw new IOError(tsplus_module_10.fail(onThrow(u)));
+      throw new IOError(tsplus_module_2.fail(onThrow(u)));
     }
   }, __tsplusTrace);
 }
 /**
- * Returns a lazily constructed effect, whose construction may itself require effects,
- * translating any thrown exceptions into typed failed effects and mapping the error.
- *
- * When no environment is required (i.e., when R == unknown) it is conceptually equivalent to `flatten(effect(io))`.
- *
- * @tsplus static IOOps deferTryCatchWith
+ * @tsplus static fncts.io.IOOps descriptorWith
  */
-
-export function deferTryCatchWith(io, onThrow, __tsplusTrace) {
-  return deferWith_1((runtimeConfig, id) => {
-    try {
-      return io(runtimeConfig, id);
-    } catch (u) {
-      throw new IOError(tsplus_module_10.fail(onThrow(u)));
-    }
-  }, __tsplusTrace);
+function descriptorWith_1(f) {
+  return withFiberRuntime_1((fiber, status) => {
+    const descriptor = new tsplus_module_9.FiberDescriptor(fiber.id, status, tsplus_module_2.interruptors(fiber.getFiberRef(tsplus_module_10.interruptedCause)));
+    return f(descriptor);
+  }, fileName_1 + ":417:29");
 }
 /**
  * @tsplus static fncts.io.IOOps descriptor
  */
-
-export const descriptor = /*#__PURE__*/descriptorWith_1(succeedNow_1, fileName_1 + ":528:41");
-/**
- * Constructs an IO based on information about the current fiber, such as
- * its identity.
- *
- * @tsplus static fncts.io.IOOps descriptorWith
- */
-
-function descriptorWith_1(f, __tsplusTrace) {
-  return withFiberContext_1(fiber => f(fiber.unsafeGetDescriptor()), __tsplusTrace);
-}
+export const descriptor = /*#__PURE__*/descriptorWith_1(descriptor => succeedNow_1(descriptor, fileName_1 + ":426:96"));
 /**
  * Folds an `IO` that may fail with `E` or succeed with `A` into one that never fails but succeeds with `Either<E, A>`
  *
  * @tsplus getter fncts.io.IO either
  */
-
-
 function either_1(ma, __tsplusTrace) {
-  return match_1(tsplus_module_3.left, tsplus_module_3.right, __tsplusTrace)(ma);
-}
-/**
- * @tsplus pipeable fncts.io.IO ensuring
- */
-
-
-export function ensuring(finalizer, __tsplusTrace) {
-  return self => {
-    return withFiberContext_1(fiber => {
-      fiber.unsafeAddFinalizer(finalizer);
-      return self;
-    }, __tsplusTrace);
-  };
+  return match_1(tsplus_module_11.left, tsplus_module_11.right, __tsplusTrace)(ma);
 }
 /**
  * @tsplus pipeable fncts.io.IO errorAsCause
  */
-
 export function errorAsCause(__tsplusTrace) {
   return ma => {
     return matchIO_1(failCauseNow_1, succeedNow_1, __tsplusTrace)(ma);
@@ -537,15 +398,12 @@ export function errorAsCause(__tsplusTrace) {
 /**
  * @tsplus getter fncts.io.IO eventually
  */
-
 function eventually_1(ma, __tsplusTrace) {
   return orElse_1(() => eventually_1(ma, __tsplusTrace), __tsplusTrace)(ma);
 }
 /**
  * @tsplus pipeable fncts.io.IO extend
  */
-
-
 export function extend(f, __tsplusTrace) {
   return wa => {
     return matchIO_1(failNow_1, _ => succeed_1(() => f(wa), __tsplusTrace), __tsplusTrace)(wa);
@@ -554,25 +412,26 @@ export function extend(f, __tsplusTrace) {
 /**
  * @tsplus static fncts.io.IOOps fail
  */
-
 function fail_1(e, __tsplusTrace) {
-  return new Fail(() => tsplus_module_5.fail(e()), __tsplusTrace);
+  return failCause_1(() => tsplus_module_2.fail(e()), __tsplusTrace);
 }
 /**
  * @tsplus static fncts.io.IOOps failNow
  */
-
-
 function failNow_1(e, __tsplusTrace) {
-  return new Fail(() => tsplus_module_5.fail(e), __tsplusTrace);
+  return failCause_1(() => tsplus_module_2.fail(e), __tsplusTrace);
+}
+/**
+ * @tsplus static fncts.io.IOOps refailCause
+ */
+function refailCause_1(cause, __tsplusTrace) {
+  return new Fail(() => cause, __tsplusTrace);
 }
 /**
  * Creates a `IO` that has failed with the specified `Cause`
  *
  * @tsplus static fncts.io.IOOps failCauseNow
  */
-
-
 function failCauseNow_1(cause, __tsplusTrace) {
   return new Fail(() => cause, __tsplusTrace);
 }
@@ -581,51 +440,48 @@ function failCauseNow_1(cause, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps failCause
  */
-
-
 function failCause_1(cause, __tsplusTrace) {
-  return new Fail(cause, __tsplusTrace);
+  return flatMap_1(trace => refailCause_1(tsplus_module_2.traced(cause(), trace), __tsplusTrace), __tsplusTrace)(stackTrace_1(__tsplusTrace));
 }
 /**
  * Returns the `FiberId` of the `Fiber` on which this `IO` is running
  *
  * @tsplus static fncts.io.IOOps fiberId
  */
-
-
-export const fiberId = /*#__PURE__*/descriptorWith_1(d => succeedNow_1(d.id, fileName_1 + ":623:89"), fileName_1 + ":623:68");
+export const fiberId = /*#__PURE__*/fiberIdWith_1(id => succeedNow_1(id, fileName_1 + ":506:87"));
+/**
+ * @tsplus static fncts.io.IOOps fiberIdWith
+ */
+function fiberIdWith_1(f) {
+  return withFiberRuntime_1(fiber => f(fiber.id), fileName_1 + ":512:29");
+}
 /**
  * Filters the collection using the specified effectual predicate.
  *
  * @tsplus static fncts.io.IOOps filter
  */
-
 function filter_1(as, f, __tsplusTrace) {
-  return map_1(b => b.result(), __tsplusTrace)(tsplus_module_12.foldLeft(succeedNow_1(tsplus_module_11.builder(), __tsplusTrace), (eff, a) => zipWith_1(f(a), (builder, p) => {
+  return map_1(b => b.result(), __tsplusTrace)(tsplus_module_13.foldLeft(succeedNow_1(tsplus_module_12.builder(), __tsplusTrace), (eff, a) => zipWith_1(f(a), (builder, p) => {
     if (p) {
       builder.append(a);
     }
-
     return builder;
   }, __tsplusTrace)(eff))(as));
 }
 /**
  * @tsplus static fncts.io.IOOps filterMap
  */
-
-
 export function filterMap(as, f, __tsplusTrace) {
   return filterMapWithIndex_1(as, (_, a) => f(a), __tsplusTrace);
 }
 /**
  * @tsplus static fncts.io.IOOps filterMapWithIndex
  */
-
 function filterMapWithIndex_1(as, f, __tsplusTrace) {
   return defer_1(() => {
     const bs = [];
-    return as_1(() => tsplus_module_13.from(bs), __tsplusTrace)(foreachWithIndexDiscard_1(as, (i, a) => map_1(b => {
-      if (tsplus_module_14.isJust(b)) {
+    return as_1(() => tsplus_module_14.from(bs), __tsplusTrace)(foreachWithIndexDiscard_1(as, (i, a) => map_1(b => {
+      if (tsplus_module_15.isJust(b)) {
         bs.push(b.value);
       }
     }, __tsplusTrace)(f(i, a)), __tsplusTrace));
@@ -637,18 +493,14 @@ function filterMapWithIndex_1(as, f, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps filterNot
  */
-
-
 export function filterNot(as, f, __tsplusTrace) {
   return filter_1(as, a => map_1(b => !b, __tsplusTrace)(f(a)), __tsplusTrace);
 }
-
 function filterOrElse_1(predicate, or, __tsplusTrace) {
   return fa => {
     return flatMap_1(a => predicate(a) ? succeedNow_1(a, __tsplusTrace) : defer_1(() => or(a), __tsplusTrace), __tsplusTrace)(fa);
   };
 }
-
 export function filterOrFail(predicate, failWith, __tsplusTrace) {
   return fa => {
     return filterOrElse_1(predicate, a => failNow_1(failWith(a), __tsplusTrace), __tsplusTrace)(fa);
@@ -660,7 +512,6 @@ export function filterOrFail(predicate, failWith, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps firstSuccess
  */
-
 export function firstSuccess(mas, __tsplusTrace) {
   return mas.reduce((b, a) => orElse_1(() => a, __tsplusTrace)(b));
 }
@@ -672,7 +523,6 @@ export function filterOrHalt(predicate, haltWith, __tsplusTrace) {
 /**
  * @tsplus getter fncts.io.IO flatten
  */
-
 export function flatten(self, __tsplusTrace) {
   return flatMap_1(identity, __tsplusTrace)(self);
 }
@@ -681,23 +531,17 @@ export function flatten(self, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps foldLeft
  */
-
 function foldLeft_1(as, b, f, __tsplusTrace) {
-  return tsplus_module_12.foldLeft(succeedNow_1(b, __tsplusTrace), (acc, el) => flatMap_1(a => f(a, el), __tsplusTrace)(acc))(as);
+  return tsplus_module_13.foldLeft(succeedNow_1(b, __tsplusTrace), (acc, el) => flatMap_1(a => f(a, el), __tsplusTrace)(acc))(as);
 }
 /**
  * Combines an array of `IO`s using a `Monoid`
  *
  * @tsplus static fncts.io.IOOps foldMap
  */
-
-
-export function foldMap(as, f,
-/** @tsplus auto */
-M) {
-  return foldLeft_1(as, M.nat, (m, a) => map_1(a => M.combine(m, f(a)), fileName_1 + ":796:48")(a), fileName_1 + ":796:21");
+export function foldMap(as, f, /** @tsplus auto */M) {
+  return foldLeft_1(as, M.nat, (m, a) => map_1(a => M.combine(f(a))(m), fileName_1 + ":686:48")(a), fileName_1 + ":686:21");
 }
-
 function foldRightLoop(iterator, b, f, __tsplusTrace) {
   const next = iterator.next();
   return next.done ? b : f(next.value, foldRightLoop(iterator, b, f, __tsplusTrace));
@@ -707,12 +551,9 @@ function foldRightLoop(iterator, b, f, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps foldRight
  */
-
-
 export function foldRight(as, b, f, __tsplusTrace) {
   return foldRightLoop(as[Symbol.iterator](), b, f, __tsplusTrace);
 }
-
 function foreachWithIndexDiscardLoop(iterator, f, i = 0, __tsplusTrace) {
   const next = iterator.next();
   return next.done ? unit_1 : flatMap_1(() => foreachWithIndexDiscardLoop(iterator, f, i + 1, __tsplusTrace), __tsplusTrace)(f(i, next.value));
@@ -726,12 +567,10 @@ function foreachWithIndexDiscardLoop(iterator, f, i = 0, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps foreach
  */
-
-
 function foreach_1(as, f, __tsplusTrace) {
   return defer_1(() => {
     const acc = [];
-    return as_1(() => tsplus_module_13.from(acc), __tsplusTrace)(foreachWithIndexDiscard_1(as, (_, a) => flatMap_1(b => {
+    return as_1(() => tsplus_module_14.from(acc), __tsplusTrace)(foreachWithIndexDiscard_1(as, (_, a) => flatMap_1(b => {
       acc.push(b);
       return unit_1;
     }, __tsplusTrace)(f(a)), __tsplusTrace));
@@ -746,12 +585,10 @@ function foreach_1(as, f, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps foreachWithIndex
  */
-
-
 export function foreachWithIndex(as, f, __tsplusTrace) {
   return defer_1(() => {
     const acc = [];
-    return as_1(() => tsplus_module_13.from(acc), __tsplusTrace)(foreachWithIndexDiscard_1(as, (i, a) => flatMap_1(b => {
+    return as_1(() => tsplus_module_14.from(acc), __tsplusTrace)(foreachWithIndexDiscard_1(as, (i, a) => flatMap_1(b => {
       acc.push(b);
       return unit_1;
     }, __tsplusTrace)(f(i, a)), __tsplusTrace));
@@ -760,7 +597,6 @@ export function foreachWithIndex(as, f, __tsplusTrace) {
 /**
  * @tsplus static fncts.io.IOOps foreachWithIndexDiscard
  */
-
 function foreachWithIndexDiscard_1(as, f, __tsplusTrace) {
   return defer_1(() => foreachWithIndexDiscardLoop(as[Symbol.iterator](), f), __tsplusTrace);
 }
@@ -770,8 +606,6 @@ function foreachWithIndexDiscard_1(as, f, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps foreachDiscard
  */
-
-
 function foreachDiscard_1(as, f, __tsplusTrace) {
   return defer_1(() => foreachWithIndexDiscardLoop(as[Symbol.iterator](), (_, a) => f(a)), __tsplusTrace);
 }
@@ -780,48 +614,16 @@ function foreachDiscard_1(as, f, __tsplusTrace) {
  *
  * @tsplus getter fncts.io.IO forever
  */
-
-
 function forever_1(ma, __tsplusTrace) {
-  return flatMap_1(() => forever_1(ma, __tsplusTrace), __tsplusTrace)(apSecond_1(yieldNow_1, __tsplusTrace)(ma));
-}
-/**
- * Returns an IO that forks this IO into its own separate fiber,
- * returning the fiber immediately, without waiting for it to begin executing
- * the IO.
- *
- * You can use the `fork` method whenever you want to execute an IO in a
- * new fiber, concurrently and without "blocking" the fiber executing other
- * IOs. Using fibers can be tricky, so instead of using this method
- * directly, consider other higher-level methods, such as `raceWith`,
- * `zipC`, and so forth.
- *
- * The fiber returned by this method has methods interrupt the fiber and to
- * wait for it to finish executing the IO. See `Fiber` for more
- * information.
- *
- * Whenever you use this method to launch a new fiber, the new fiber is
- * attached to the parent fiber's scope. This means when the parent fiber
- * terminates, the child fiber will be terminated as well, ensuring that no
- * fibers leak. This behavior is called "None supervision", and if this
- * behavior is not desired, you may use the `forkDaemon` or `forkIn`
- * methods.
- *
- * @tsplus getter fncts.io.IO fork
- */
-
-
-export function fork(ma, __tsplusTrace) {
-  return new Fork(ma, tsplus_module_2.nothing(), __tsplusTrace);
+  return flatMap_1(() => forever_1(ma, __tsplusTrace), __tsplusTrace)(zipRight_1(yieldNow_1, __tsplusTrace)(ma));
 }
 /**
  * Lifts an `Either` into an `IO`
  *
  * @tsplus static fncts.io.IOOps fromEither
  */
-
 export function fromEither(either, __tsplusTrace) {
-  return flatMap_1(ea => tsplus_module_6.match(failNow_1, succeedNow_1)(ea), __tsplusTrace)(succeed_1(either, __tsplusTrace));
+  return flatMap_1(ea => tsplus_module_4.match(failNow_1, succeedNow_1)(ea), __tsplusTrace)(succeed_1(either, __tsplusTrace));
 }
 /**
  * Lifts an `Either` into an `IO`
@@ -829,9 +631,8 @@ export function fromEither(either, __tsplusTrace) {
  * @tsplus static fncts.io.IOOps fromEitherNow
  * @tsplus getter fncts.Either toIO
  */
-
 export function fromEitherNow(either, __tsplusTrace) {
-  return tsplus_module_6.match(failNow_1, succeedNow_1)(either);
+  return tsplus_module_4.match(failNow_1, succeedNow_1)(either);
 }
 /**
  * Lifts an `Eval` into an `IO`
@@ -839,18 +640,16 @@ export function fromEitherNow(either, __tsplusTrace) {
  * @tsplus static fncts.io.IOOps fromEval
  * @tsplus getter fncts.Eval toIO
  */
-
 export function fromEval(computation, __tsplusTrace) {
-  return succeed_1(() => tsplus_module_15.run(computation), __tsplusTrace);
+  return succeed_1(() => tsplus_module_16.run(computation), __tsplusTrace);
 }
 /**
  * Creates a `IO` from an exit value
  *
  * @tsplus static fncts.io.IOOps fromExit
  */
-
 export function fromExit(exit, __tsplusTrace) {
-  return defer_1(() => tsplus_module_16.match(failCauseNow_1, succeedNow_1)(exit()), __tsplusTrace);
+  return defer_1(() => tsplus_module_17.match(failCauseNow_1, succeedNow_1)(exit()), __tsplusTrace);
 }
 /**
  * Creates a `IO` from an exit value
@@ -858,9 +657,8 @@ export function fromExit(exit, __tsplusTrace) {
  * @tsplus static fncts.io.IOOps fromExitNow
  * @tsplus getter fncts.Exit toIO
  */
-
 export function fromExitNow(exit, __tsplusTrace) {
-  return tsplus_module_16.match(failCauseNow_1, succeedNow_1)(exit);
+  return tsplus_module_17.match(failCauseNow_1, succeedNow_1)(exit);
 }
 /**
  * Lifts a `Maybe` into an `IO` but preserves the error as a `Maybe` in the error channel, making it easier to compose
@@ -868,17 +666,15 @@ export function fromExitNow(exit, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps fromMaybe
  */
-
 export function fromMaybe(maybe, __tsplusTrace) {
-  return flatMap_1(m => tsplus_module_4.match(() => failNow_1(tsplus_module_2.nothing(), __tsplusTrace), succeedNow_1)(m), __tsplusTrace)(succeed_1(maybe, __tsplusTrace));
+  return flatMap_1(m => tsplus_module_18.match(() => failNow_1(tsplus_module_3.nothing(), __tsplusTrace), succeedNow_1)(m), __tsplusTrace)(succeed_1(maybe, __tsplusTrace));
 }
 /**
  * @tsplus static fncts.io.IOOps fromMaybeNow
  * @tsplus getter fncts.Maybe toIO
  */
-
 export function fromMaybeNow(maybe, __tsplusTrace) {
-  return tsplus_module_4.match(() => failNow_1(tsplus_module_2.nothing(), __tsplusTrace), succeedNow_1)(maybe);
+  return tsplus_module_18.match(() => failNow_1(tsplus_module_3.nothing(), __tsplusTrace), succeedNow_1)(maybe);
 }
 /**
  * Create an IO that when executed will construct `promise` and wait for its result,
@@ -886,7 +682,6 @@ export function fromMaybeNow(maybe, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps fromPromiseCatch
  */
-
 function fromPromiseCatch_1(promise, onReject, __tsplusTrace) {
   return async_1(k => {
     promise().then(a => k(succeedNow_1(a, __tsplusTrace))).catch(e => k(failNow_1(onReject(e), __tsplusTrace)));
@@ -898,8 +693,6 @@ function fromPromiseCatch_1(promise, onReject, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps fromPromise
  */
-
-
 export function fromPromise(promise, __tsplusTrace) {
   return fromPromiseCatch_1(promise, identity, __tsplusTrace);
 }
@@ -908,7 +701,6 @@ export function fromPromise(promise, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps fromPromiseHalt
  */
-
 export function fromPromiseHalt(promise, __tsplusTrace) {
   return async_1(k => {
     promise().then(a => k(succeedNow_1(a, __tsplusTrace))).catch(e => k(haltNow_1(e, __tsplusTrace)));
@@ -919,19 +711,17 @@ export function fromPromiseHalt(promise, __tsplusTrace) {
  *
  * @tsplus getter fncts.io.IO get
  */
-
 export function get(ma, __tsplusTrace) {
-  return matchCauseIO_1(cause => failCauseNow_1(tsplus_module_5.map(tsplus_module_2.just)(cause), __tsplusTrace), ma => tsplus_module_4.match(() => failNow_1(tsplus_module_2.nothing(), __tsplusTrace), succeedNow_1)(ma), __tsplusTrace)(ma);
+  return matchCauseIO_1(cause => failCauseNow_1(tsplus_module_2.map(tsplus_module_3.just)(cause), __tsplusTrace), ma => tsplus_module_18.match(() => failNow_1(tsplus_module_3.nothing(), __tsplusTrace), succeedNow_1)(ma), __tsplusTrace)(ma);
 }
 /**
  * Extracts the optional value, or returns the given 'orElse'.
  *
  * @tsplus pipeable fncts.io.IO getOrElse
  */
-
 export function getOrElse(orElse, __tsplusTrace) {
   return ma => {
-    return map_1(ma => tsplus_module_8.getOrElse(orElse)(ma), __tsplusTrace)(ma);
+    return map_1(ma => tsplus_module_6.getOrElse(orElse)(ma), __tsplusTrace)(ma);
   };
 }
 /**
@@ -939,10 +729,9 @@ export function getOrElse(orElse, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO getOrElseIO
  */
-
 export function getOrElseIO(orElse, __tsplusTrace) {
   return ma => {
-    return flatMap_1(mab => tsplus_module_8.getOrElse(orElse)(tsplus_module_8.map(succeedNow_1)(mab)), __tsplusTrace)(ma);
+    return flatMap_1(mab => tsplus_module_6.getOrElse(orElse)(tsplus_module_6.map(succeedNow_1)(mab)), __tsplusTrace)(ma);
   };
 }
 /**
@@ -950,17 +739,14 @@ export function getOrElseIO(orElse, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps getOrFailWith
  */
-
 function getOrFailWith_1(maybe, onNothing, __tsplusTrace) {
-  return defer_1(() => tsplus_module_4.match(() => fail_1(onNothing, __tsplusTrace), succeedNow_1)(maybe), __tsplusTrace);
+  return defer_1(() => tsplus_module_18.match(() => fail_1(onNothing, __tsplusTrace), succeedNow_1)(maybe), __tsplusTrace);
 }
 /**
  * Lifts a Maybe into a IO, if the Maybe is `Nothing` it fails with Unit.
  *
  * @tsplus static fncts.io.IOOps getOrFailUnit
  */
-
-
 export function getOrFailUnit(option, __tsplusTrace) {
   return getOrFailWith_1(option, () => undefined, __tsplusTrace);
 }
@@ -971,9 +757,8 @@ export function getOrFailUnit(option, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps halt
  */
-
 export function halt(e, __tsplusTrace) {
-  return failCause_1(() => tsplus_module_5.halt(e(), tsplus_module_17.none), __tsplusTrace);
+  return failCause_1(() => tsplus_module_2.halt(e(), tsplus_module_19.none), __tsplusTrace);
 }
 /**
  * Creates an `IO` that halts with the specified defect
@@ -982,15 +767,12 @@ export function halt(e, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps haltNow
  */
-
 function haltNow_1(e, __tsplusTrace) {
-  return failCauseNow_1(tsplus_module_5.halt(e, tsplus_module_17.none), __tsplusTrace);
+  return failCauseNow_1(tsplus_module_2.halt(e, tsplus_module_19.none), __tsplusTrace);
 }
 /**
  * @tsplus pipeable fncts.io.IO ifIO
  */
-
-
 function ifIO_1(onFalse, onTrue, __tsplusTrace) {
   return self => {
     return flatMap_1(b => b ? onTrue() : onFalse(), __tsplusTrace)(self);
@@ -999,15 +781,12 @@ function ifIO_1(onFalse, onTrue, __tsplusTrace) {
 /**
  * @tsplus static fncts.io.IOOps if
  */
-
-
 export function cond(b, onTrue, onFalse, __tsplusTrace) {
   return ifIO_1(onTrue, onFalse, __tsplusTrace)(succeedNow_1(b, __tsplusTrace));
 }
 /**
  * @tsplus getter fncts.io.IO ignore
  */
-
 export function ignore(fa, __tsplusTrace) {
   return match_1(() => undefined, () => undefined, __tsplusTrace)(fa);
 }
@@ -1016,7 +795,6 @@ export function ignore(fa, __tsplusTrace) {
  *
  * @tsplus getter fncts.io.IO isFailure
  */
-
 export function isFailure(ma, __tsplusTrace) {
   return match_1(() => true, () => false, __tsplusTrace)(ma);
 }
@@ -1025,7 +803,6 @@ export function isFailure(ma, __tsplusTrace) {
  *
  * @tsplus getter fncts.io.IO isSuccess
  */
-
 export function isSuccess(ma, __tsplusTrace) {
   return match_1(() => false, () => true, __tsplusTrace)(ma);
 }
@@ -1044,7 +821,6 @@ export function isSuccess(ma, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps iterate
  */
-
 function iterate_1(initial, cont, body, __tsplusTrace) {
   return cont(initial) ? flatMap_1(a => iterate_1(a, cont, body, __tsplusTrace), __tsplusTrace)(body(initial)) : succeedNow_1(initial, __tsplusTrace);
 }
@@ -1053,17 +829,17 @@ function iterate_1(initial, cont, body, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps left
  */
-
-
 export function left(a, __tsplusTrace) {
-  return flatMap_1(a => succeedNow_1(tsplus_module_3.left(a), __tsplusTrace), __tsplusTrace)(succeed_1(a, __tsplusTrace));
+  return flatMap_1(a => succeedNow_1(tsplus_module_11.left(a), __tsplusTrace), __tsplusTrace)(succeed_1(a, __tsplusTrace));
 }
 /**
  * @tsplus static fncts.io.IOOps log
  */
-
 export function log(message, __tsplusTrace) {
-  return new Logged(message, tsplus_module_5.empty(), tsplus_module_2.nothing(), __tsplusTrace);
+  return withFiberRuntime_1(fiber => {
+    fiber.log(message, tsplus_module_2.empty(), tsplus_module_3.nothing(), __tsplusTrace);
+    return unit_1;
+  }, __tsplusTrace);
 }
 /**
  * Loops with the specified effectual function, collecting the results into a
@@ -1083,12 +859,11 @@ export function log(message, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps loop
  */
-
 function loop_1(initial, cont, inc, body, __tsplusTrace) {
   if (cont(initial)) {
-    return flatMap_1(a => map_1(as => tsplus_module_11.prepend(a)(as), __tsplusTrace)(loop_1(inc(initial), cont, inc, body, __tsplusTrace)), __tsplusTrace)(body(initial));
+    return flatMap_1(a => map_1(as => tsplus_module_12.prepend(a)(as), __tsplusTrace)(loop_1(inc(initial), cont, inc, body, __tsplusTrace)), __tsplusTrace)(body(initial));
   } else {
-    return succeedNow_1(tsplus_module_18.empty(), __tsplusTrace);
+    return succeedNow_1(tsplus_module_20.empty(), __tsplusTrace);
   }
 }
 /**
@@ -1106,8 +881,6 @@ function loop_1(initial, cont, inc, body, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps loopUnit
  */
-
-
 export function loopUnit(initial, cont, inc, body, __tsplusTrace) {
   if (cont(initial)) {
     return asUnit_1(flatMap_1(() => loop_1(inc(initial), cont, inc, body, __tsplusTrace), __tsplusTrace)(body(initial)), __tsplusTrace);
@@ -1120,7 +893,6 @@ export function loopUnit(initial, cont, inc, body, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO map
  */
-
 function map_1(f, __tsplusTrace) {
   return fa => {
     return flatMap_1(a => succeedNow_1(f(a), __tsplusTrace), __tsplusTrace)(fa);
@@ -1135,18 +907,14 @@ function map_1(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO mapError
  */
-
-
 function mapError_1(f, __tsplusTrace) {
   return fea => {
-    return matchCauseIO_1(cause => failCauseNow_1(tsplus_module_5.map(f)(cause), __tsplusTrace), succeedNow_1, __tsplusTrace)(fea);
+    return matchCauseIO_1(cause => failCauseNow_1(tsplus_module_2.map(f)(cause), __tsplusTrace), succeedNow_1, __tsplusTrace)(fea);
   };
 }
 /**
  * @tsplus static fncts.io.IOOps mapTryCatch
  */
-
-
 export function mapTryCatch(io, f, onThrow, __tsplusTrace) {
   return flatMap_1(a => tryCatch_1(() => f(a), onThrow, __tsplusTrace), __tsplusTrace)(io);
 }
@@ -1157,7 +925,6 @@ export function mapTryCatch(io, f, onThrow, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO mapErrorCause
  */
-
 function mapErrorCause_1(f, __tsplusTrace) {
   return ma => {
     return matchCauseIO_1(cause => failCauseNow_1(f(cause), __tsplusTrace), succeedNow_1, __tsplusTrace)(ma);
@@ -1168,8 +935,6 @@ function mapErrorCause_1(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO matchCause
  */
-
-
 export function matchCause(onFailure, onSuccess, __tsplusTrace) {
   return self => {
     return matchCauseIO_1(cause => succeedNow_1(onFailure(cause), __tsplusTrace), a => succeedNow_1(onSuccess(a), __tsplusTrace), __tsplusTrace)(self);
@@ -1180,20 +945,17 @@ export function matchCause(onFailure, onSuccess, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO matchCauseIO
  */
-
 function matchCauseIO_1(onFailure, onSuccess, __tsplusTrace) {
   return self => {
-    return new Match(self, onFailure, onSuccess, __tsplusTrace);
+    return new OnSuccessAndFailure(self, onFailure, onSuccess, __tsplusTrace);
   };
 }
 /**
  * @tsplus pipeable fncts.io.IO matchIO
  */
-
-
 function matchIO_1(onFailure, onSuccess, __tsplusTrace) {
   return self => {
-    return matchCauseIO_1(cause => tsplus_module_6.match(onFailure, failCauseNow_1)(tsplus_module_5.failureOrCause(cause)), onSuccess, __tsplusTrace)(self);
+    return matchCauseIO_1(cause => tsplus_module_4.match(onFailure, failCauseNow_1)(tsplus_module_2.failureOrCause(cause)), onSuccess, __tsplusTrace)(self);
   };
 }
 /**
@@ -1203,8 +965,6 @@ function matchIO_1(onFailure, onSuccess, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO match
  */
-
-
 function match_1(onFailure, onSuccess, __tsplusTrace) {
   return self => {
     return matchIO_1(e => succeedNow_1(onFailure(e), __tsplusTrace), a => succeedNow_1(onSuccess(a), __tsplusTrace), __tsplusTrace)(self);
@@ -1215,24 +975,20 @@ function match_1(onFailure, onSuccess, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO matchTraceIO
  */
-
-
 export function matchTraceIO(onFailure, onSuccess, __tsplusTrace) {
   return ma => {
-    return matchCauseIO_1(cause => tsplus_module_6.match(([e, trace]) => onFailure(e, trace), failCauseNow_1)(tsplus_module_5.failureTraceOrCause(cause)), onSuccess, __tsplusTrace)(ma);
+    return matchCauseIO_1(cause => tsplus_module_4.match(([e, trace]) => onFailure(e, trace), failCauseNow_1)(tsplus_module_2.failureTraceOrCause(cause)), onSuccess, __tsplusTrace)(ma);
   };
 }
 /**
  * @tsplus getter fncts.io.IO maybe
  */
-
 export function maybe(io, __tsplusTrace) {
-  return match_1(() => tsplus_module_2.nothing(), tsplus_module_2.just, __tsplusTrace)(io);
+  return match_1(() => tsplus_module_3.nothing(), tsplus_module_3.just, __tsplusTrace)(io);
 }
 /**
  * @tsplus getter fncts.io.IO merge
  */
-
 export function merge(io, __tsplusTrace) {
   return matchIO_1(succeedNow_1, succeedNow_1, __tsplusTrace)(io);
 }
@@ -1241,32 +997,16 @@ export function merge(io, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps mergeAll
  */
-
 export function mergeAll(fas, b, f, __tsplusTrace) {
-  return tsplus_module_12.foldLeft(succeed_1(() => b, __tsplusTrace), (b, a) => zipWith_1(a, f, __tsplusTrace)(b))(fas);
+  return tsplus_module_13.foldLeft(succeed_1(() => b, __tsplusTrace), (b, a) => zipWith_1(a, f, __tsplusTrace)(b))(fas);
 }
-/**
- * Returns a `IO` that will never produce anything. The moral equivalent of
- * `while(true) {}`, only without the wasted CPU cycles.
- *
- * @tsplus static fncts.io.IOOps never
- */
-
-export const never = /*#__PURE__*/defer_1(() => asyncInterrupt_1(() => {
-  const interval = setInterval(() => {//
-  }, 60000);
-  return tsplus_module_3.left(succeed_1(() => {
-    clearInterval(interval);
-  }, fileName_1 + ":1456:17"));
-}), fileName_1 + ":1450:39");
 /**
  * Converts an option on errors into an option on values.
  *
  * @tsplus getter fncts.io.IO optional
  */
-
 export function optional(ma, __tsplusTrace) {
-  return matchIO_1(me => tsplus_module_4.match(() => succeedNow_1(tsplus_module_2.nothing(), __tsplusTrace), failNow_1)(me), a => succeedNow_1(tsplus_module_2.just(a), __tsplusTrace), __tsplusTrace)(ma);
+  return matchIO_1(me => tsplus_module_18.match(() => succeedNow_1(tsplus_module_3.nothing(), __tsplusTrace), failNow_1)(me), a => succeedNow_1(tsplus_module_3.just(a), __tsplusTrace), __tsplusTrace)(ma);
 }
 /**
  * Returns the logical disjunction of the `Boolean` value returned by this
@@ -1277,7 +1017,6 @@ export function optional(ma, __tsplusTrace) {
  * @tsplus pipeable fncts.io.IO or
  * @tsplus pipeable-operator fncts.io.IO ||
  */
-
 export function or(mb, __tsplusTrace) {
   return ma => {
     return flatMap_1(b => b ? succeedNow_1(true, __tsplusTrace) : mb, __tsplusTrace)(ma);
@@ -1286,7 +1025,6 @@ export function or(mb, __tsplusTrace) {
 /**
  * @tsplus pipeable fncts.io.IO orElse
  */
-
 function orElse_1(that, __tsplusTrace) {
   return ma => {
     return tryOrElse_1(that, succeedNow_1, __tsplusTrace)(ma);
@@ -1295,17 +1033,14 @@ function orElse_1(that, __tsplusTrace) {
 /**
  * @tsplus pipeable fncts.io.IO orElseEither
  */
-
-
 export function orElseEither(that, __tsplusTrace) {
   return self => {
-    return tryOrElse_1(() => map_1(tsplus_module_3.right, __tsplusTrace)(that()), a => succeedNow_1(tsplus_module_3.left(a), __tsplusTrace), __tsplusTrace)(self);
+    return tryOrElse_1(() => map_1(tsplus_module_11.right, __tsplusTrace)(that()), a => succeedNow_1(tsplus_module_11.left(a), __tsplusTrace), __tsplusTrace)(self);
   };
 }
 /**
  * @tsplus pipeable fncts.io.IO orElseFail
  */
-
 export function orElseFail(e, __tsplusTrace) {
   return ma => {
     return orElse_1(() => fail_1(e, __tsplusTrace), __tsplusTrace)(ma);
@@ -1314,16 +1049,14 @@ export function orElseFail(e, __tsplusTrace) {
 /**
  * @tsplus pipeable fncts.io.IO orElseMaybe
  */
-
 export function orElseMaybe(that, __tsplusTrace) {
   return ma => {
-    return catchAll_1(me => tsplus_module_4.match(that, e => fail_1(() => tsplus_module_2.just(e), __tsplusTrace))(me), __tsplusTrace)(ma);
+    return catchAll_1(me => tsplus_module_18.match(that, e => fail_1(() => tsplus_module_3.just(e), __tsplusTrace))(me), __tsplusTrace)(ma);
   };
 }
 /**
  * @tsplus pipeable fncts.io.IO orElseSucceed
  */
-
 export function orElseSucceed(a, __tsplusTrace) {
   return ma => {
     return orElse_1(() => succeed_1(a, __tsplusTrace), __tsplusTrace)(ma);
@@ -1332,21 +1065,18 @@ export function orElseSucceed(a, __tsplusTrace) {
 /**
  * @tsplus getter fncts.io.IO orHalt
  */
-
 export function orHalt(ma, __tsplusTrace) {
   return orHaltWith_1(identity, __tsplusTrace)(ma);
 }
 /**
  * @tsplus getter fncts.io.IO orHaltKeep
  */
-
 export function orHaltKeep(ma, __tsplusTrace) {
-  return matchCauseIO_1(cause => failCauseNow_1(tsplus_module_5.flatMap(tsplus_module_5.halt)(cause), __tsplusTrace), succeedNow_1, __tsplusTrace)(ma);
+  return matchCauseIO_1(cause => failCauseNow_1(tsplus_module_2.flatMap(tsplus_module_2.halt)(cause), __tsplusTrace), succeedNow_1, __tsplusTrace)(ma);
 }
 /**
  * @tsplus pipeable fncts.io.IO orHaltWith
  */
-
 function orHaltWith_1(f, __tsplusTrace) {
   return ma => {
     return matchIO_1(e => haltNow_1(f(e), __tsplusTrace), succeedNow_1, __tsplusTrace)(ma);
@@ -1357,14 +1087,11 @@ function orHaltWith_1(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO concurrentErrors
  */
-
-
 export function concurrentErrors(__tsplusTrace) {
   return io => {
     return matchCauseIO_1(cause => {
-      const f = tsplus_module_5.failures(cause);
-
-      if (tsplus_module_19.length(f) === 0) {
+      const f = tsplus_module_2.failures(cause);
+      if (tsplus_module_21.length(f) === 0) {
         return failCauseNow_1(cause, __tsplusTrace);
       } else {
         return failNow_1(f, __tsplusTrace);
@@ -1378,16 +1105,14 @@ export function concurrentErrors(__tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps partition
  */
-
 export function partition(as, f, __tsplusTrace) {
-  return map_1(c => tsplus_module_11.separate(c), __tsplusTrace)(foreach_1(as, a => either_1(f(a), __tsplusTrace), __tsplusTrace));
+  return map_1(c => tsplus_module_12.separate(c), __tsplusTrace)(foreach_1(as, a => either_1(f(a), __tsplusTrace), __tsplusTrace));
 }
 /**
  * Keeps some of the errors, and terminates the fiber with the rest
  *
  * @tsplus pipeable fncts.io.IO refineOrHalt
  */
-
 export function refineOrHalt(pf, __tsplusTrace) {
   return fa => {
     return refineOrHaltWith_1(pf, identity, __tsplusTrace)(fa);
@@ -1399,10 +1124,9 @@ export function refineOrHalt(pf, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO refineOrHaltWith
  */
-
 function refineOrHaltWith_1(pf, f, __tsplusTrace) {
   return fa => {
-    return catchAll_1(e => tsplus_module_4.match(() => haltNow_1(f(e), __tsplusTrace), failNow_1)(pf(e)), __tsplusTrace)(fa);
+    return catchAll_1(e => tsplus_module_18.match(() => haltNow_1(f(e), __tsplusTrace), failNow_1)(pf(e)), __tsplusTrace)(fa);
   };
 }
 /**
@@ -1411,11 +1135,9 @@ function refineOrHaltWith_1(pf, f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO reject
  */
-
-
 export function reject(pf, __tsplusTrace) {
   return fa => {
-    return rejectIO_1(a => tsplus_module_8.map(failNow_1)(pf(a)), __tsplusTrace)(fa);
+    return rejectIO_1(a => tsplus_module_6.map(failNow_1)(pf(a)), __tsplusTrace)(fa);
   };
 }
 /**
@@ -1425,10 +1147,9 @@ export function reject(pf, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO rejectIO
  */
-
 function rejectIO_1(pf, __tsplusTrace) {
   return fa => {
-    return flatMap_1(a => tsplus_module_4.match(() => succeedNow_1(a, __tsplusTrace), io => flatMap_1(failNow_1, __tsplusTrace)(io))(pf(a)), __tsplusTrace)(fa);
+    return flatMap_1(a => tsplus_module_18.match(() => succeedNow_1(a, __tsplusTrace), io => flatMap_1(failNow_1, __tsplusTrace)(io))(pf(a)), __tsplusTrace)(fa);
   };
 }
 /**
@@ -1436,8 +1157,6 @@ function rejectIO_1(pf, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO repeatN
  */
-
-
 function repeatN_1(n, __tsplusTrace) {
   return ma => {
     return flatMap_1(a => n <= 0 ? succeed_1(() => a, __tsplusTrace) : repeatN_1(n - 1, __tsplusTrace)(ma), __tsplusTrace)(ma);
@@ -1448,8 +1167,6 @@ function repeatN_1(n, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO repeatUntil
  */
-
-
 export function repeatUntil(f, __tsplusTrace) {
   return ma => {
     return repeatUntilIO_1(a => succeedNow_1(f(a), __tsplusTrace), __tsplusTrace)(ma);
@@ -1460,7 +1177,6 @@ export function repeatUntil(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO repeatUntilIO
  */
-
 function repeatUntilIO_1(f, __tsplusTrace) {
   return ma => {
     return flatMap_1(a => flatMap_1(b => b ? succeed_1(() => a, __tsplusTrace) : repeatUntilIO_1(f, __tsplusTrace)(ma), __tsplusTrace)(f(a)), __tsplusTrace)(ma);
@@ -1471,8 +1187,6 @@ function repeatUntilIO_1(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO repeatWhile
  */
-
-
 export function repeatWhile(f, __tsplusTrace) {
   return ma => {
     return repeatWhileIO_1(a => succeedNow_1(f(a), __tsplusTrace), __tsplusTrace)(ma);
@@ -1483,7 +1197,6 @@ export function repeatWhile(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO repeatWhileIO
  */
-
 function repeatWhileIO_1(f, __tsplusTrace) {
   return ma => {
     return flatMap_1(a => flatMap_1(b => b ? repeatWhileIO_1(f, __tsplusTrace)(ma) : succeed_1(() => a, __tsplusTrace), __tsplusTrace)(f(a)), __tsplusTrace)(ma);
@@ -1492,20 +1205,17 @@ function repeatWhileIO_1(f, __tsplusTrace) {
 /**
  * @tsplus pipeable fncts.io.IO replicate
  */
-
-
 export function replicate(n, __tsplusTrace) {
   return self => {
-    return tsplus_module_21.map(() => self)(tsplus_module_20.range(0, n));
+    return tsplus_module_23.map(() => self)(tsplus_module_22.range(0, n));
   };
 }
 /**
  * @tsplus pipeable fncts.io.IO require
  */
-
 export function require(error, __tsplusTrace) {
   return ma => {
-    return flatMap_1(ma => tsplus_module_4.match(() => fail_1(error, __tsplusTrace), succeedNow_1)(ma), __tsplusTrace)(ma);
+    return flatMap_1(ma => tsplus_module_18.match(() => fail_1(error, __tsplusTrace), succeedNow_1)(ma), __tsplusTrace)(ma);
   };
 }
 /**
@@ -1514,25 +1224,22 @@ export function require(error, __tsplusTrace) {
  *
  * @tsplus getter fncts.io.IO result
  */
-
 export function result(ma, __tsplusTrace) {
-  return matchCauseIO_1(cause => succeedNow_1(tsplus_module_10.failCause(cause), __tsplusTrace), a => succeedNow_1(tsplus_module_10.succeed(a), __tsplusTrace), __tsplusTrace)(ma);
+  return matchCauseIO_1(cause => succeedNow_1(tsplus_module_24.failCause(cause), __tsplusTrace), a => succeedNow_1(tsplus_module_24.succeed(a), __tsplusTrace), __tsplusTrace)(ma);
 }
 /**
  * Recover from the unchecked failure of the `IO`. (opposite of `orHalt`)
  *
  * @trace call
  */
-
 export function resurrect(io, __tsplusTrace) {
-  return unrefineWith_1(tsplus_module_2.just, identity, __tsplusTrace)(io);
+  return unrefineWith_1(tsplus_module_3.just, identity, __tsplusTrace)(io);
 }
 /**
  * Retries this effect until its error satisfies the specified predicate.
  *
  * @tsplus pipeable fncts.io.IO retryUntil
  */
-
 export function retryUntil(f, __tsplusTrace) {
   return fa => {
     return retryUntilIO_1(e => succeedNow_1(f(e), __tsplusTrace), __tsplusTrace)(fa);
@@ -1543,7 +1250,6 @@ export function retryUntil(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO retryUntilIO
  */
-
 function retryUntilIO_1(f, __tsplusTrace) {
   return fa => {
     return catchAll_1(e => flatMap_1(b => b ? failNow_1(e, __tsplusTrace) : retryUntilIO_1(f, __tsplusTrace)(fa), __tsplusTrace)(f(e)), __tsplusTrace)(fa);
@@ -1554,8 +1260,6 @@ function retryUntilIO_1(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO retryWhile
  */
-
-
 export function retryWhile(f, __tsplusTrace) {
   return fa => {
     return retryWhileIO_1(e => succeedNow_1(f(e), __tsplusTrace), __tsplusTrace)(fa);
@@ -1566,58 +1270,36 @@ export function retryWhile(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO retryWhileIO
  */
-
 function retryWhileIO_1(f, __tsplusTrace) {
   return fa => {
     return catchAll_1(e => flatMap_1(b => b ? retryWhileIO_1(f, __tsplusTrace)(fa) : fail_1(() => e, __tsplusTrace), __tsplusTrace)(f(e)), __tsplusTrace)(fa);
   };
 }
-/**
- * Retrieves the runtimeConfig that this effect is running on.
- *
- * @tsplus static fncts.io.IOOps runtimeConfig
- */
-
-
-export const runtimeConfig = /*#__PURE__*/deferWith_1(runtimeConfig => succeedNow_1(runtimeConfig, fileName_1 + ":1787:95"), fileName_1 + ":1787:62");
 /**
  * Exposes the full cause of failure of this effect.
  *
  * @tsplus getter fncts.io.IO sandbox
  */
-
 function sandbox_1(fa, __tsplusTrace) {
   return matchCauseIO_1(failNow_1, succeedNow_1, __tsplusTrace)(fa);
 }
 /**
  * @tsplus pipeable fncts.io.IO sandboxWith
  */
-
-
 export function sandboxWith(f, __tsplusTrace) {
   return ma => {
     return unsandbox_1(f(sandbox_1(ma, __tsplusTrace)), __tsplusTrace);
   };
 }
-/**
- * Sets the runtime configuration to the specified value.
- * @tsplus static fncts.io.IOOps setRuntimeConfig
- */
-
-export function setRuntimeConfig(runtimeConfig, __tsplusTrace) {
-  return withFiberContext_1(fiber => succeed_1(() => fiber.runtimeConfig = runtimeConfig(), __tsplusTrace), __tsplusTrace);
-}
 /**
  * @tsplus static fncts.io.IOOps sequenceIterable
  */
-
 export function sequenceIterable(as, __tsplusTrace) {
   return foreach_1(as, identity, __tsplusTrace);
 }
 /**
  * @tsplus static fncts.io.IOOps sequenceIterableDiscard
  */
-
 export function sequenceIterableDiscard(as, __tsplusTrace) {
   return foreachDiscard_1(as, identity, __tsplusTrace);
 }
@@ -1626,7 +1308,6 @@ export function sequenceIterableDiscard(as, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps succeedNow
  */
-
 function succeedNow_1(value, __tsplusTrace) {
   return new SucceedNow(value, __tsplusTrace);
 }
@@ -1638,16 +1319,12 @@ function succeedNow_1(value, __tsplusTrace) {
  * @tsplus static fncts.io.IOOps succeed
  * @tsplus static fncts.io.IOOps __call
  */
-
-
 function succeed_1(effect, __tsplusTrace) {
-  return new Succeed(effect, __tsplusTrace);
+  return new Sync(effect, __tsplusTrace);
 }
 /**
  * @tsplus pipeable fncts.io.IO summarized
  */
-
-
 function summarized_1(summary, f, __tsplusTrace) {
   return ma => {
     return gen_1(function* (_) {
@@ -1663,8 +1340,6 @@ function summarized_1(summary, f, __tsplusTrace) {
  *
  * @tsplus getter fncts.io.IO swap
  */
-
-
 function swap_1(pab, __tsplusTrace) {
   return matchIO_1(succeedNow_1, failNow_1, __tsplusTrace)(pab);
 }
@@ -1673,8 +1348,6 @@ function swap_1(pab, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO swapWith
  */
-
-
 function swapWith_1(f, __tsplusTrace) {
   return fa => swap_1(f(swap_1(fa, __tsplusTrace)), __tsplusTrace);
 }
@@ -1683,8 +1356,6 @@ function swapWith_1(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO timedWith
  */
-
-
 export function timedWith(msTime, __tsplusTrace) {
   return ma => summarized_1(msTime, (start, end) => end - start, __tsplusTrace)(ma);
 }
@@ -1693,13 +1364,12 @@ export function timedWith(msTime, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps tryCatch
  */
-
 function tryCatch_1(effect, onThrow, __tsplusTrace) {
   return succeed_1(() => {
     try {
       return effect();
     } catch (u) {
-      throw new IOError(tsplus_module_10.fail(onThrow(u)));
+      throw new IOError(tsplus_module_2.fail(onThrow(u)));
     }
   }, __tsplusTrace);
 }
@@ -1708,10 +1378,8 @@ function tryCatch_1(effect, onThrow, __tsplusTrace) {
  *
  * @tsplus getter fncts.io.IO absolve
  */
-
-
 export function absolve(ma, __tsplusTrace) {
-  return flatMap_1(ea => tsplus_module_6.match(failNow_1, succeedNow_1)(ea), __tsplusTrace)(ma);
+  return flatMap_1(ea => tsplus_module_4.match(failNow_1, succeedNow_1)(ea), __tsplusTrace)(ma);
 }
 /**
  * Composes computations in sequence, using the return value of one computation as input for the next
@@ -1721,7 +1389,6 @@ export function absolve(ma, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO tap
  */
-
 export function tap(f, __tsplusTrace) {
   return self => {
     return flatMap_1(a => map_1(() => a, __tsplusTrace)(f(a)), __tsplusTrace)(self);
@@ -1733,7 +1400,6 @@ export function tap(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO tapCause
  */
-
 export function tapCause(f, __tsplusTrace) {
   return ma => {
     return matchCauseIO_1(c => flatMap_1(() => failCauseNow_1(c, __tsplusTrace), __tsplusTrace)(f(c)), succeedNow_1, __tsplusTrace)(ma);
@@ -1744,9 +1410,8 @@ export function tapCause(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO tapError
  */
-
 export function tapError(f, __tsplusTrace) {
-  return self => matchCauseIO_1(cause => tsplus_module_6.match(e => flatMap_1(() => failCauseNow_1(cause, __tsplusTrace), __tsplusTrace)(f(e)), _ => failCauseNow_1(cause, __tsplusTrace))(tsplus_module_5.failureOrCause(cause)), succeedNow_1, __tsplusTrace)(self);
+  return self => matchCauseIO_1(cause => tsplus_module_4.match(e => flatMap_1(() => failCauseNow_1(cause, __tsplusTrace), __tsplusTrace)(f(e)), _ => failCauseNow_1(cause, __tsplusTrace))(tsplus_module_2.failureOrCause(cause)), succeedNow_1, __tsplusTrace)(self);
 }
 /**
  * Returns an effect that effectually "peeks" at the cause of the failure of
@@ -1754,36 +1419,31 @@ export function tapError(f, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO tapErrorCause
  */
-
 export function tapErrorCause(f, __tsplusTrace) {
   return self => {
-    return matchCauseIO_1(cause => apSecond_1(failCauseNow_1(cause, __tsplusTrace), __tsplusTrace)(f(cause)), succeedNow_1, __tsplusTrace)(self);
+    return matchCauseIO_1(cause => zipRight_1(failCauseNow_1(cause, __tsplusTrace), __tsplusTrace)(f(cause)), succeedNow_1, __tsplusTrace)(self);
   };
 }
 /**
  * @tsplus pipeable fncts.io.IO tryOrElse
  */
-
 function tryOrElse_1(that, onSuccess, __tsplusTrace) {
   return ma => {
-    return matchCauseIO_1(cause => tsplus_module_4.match(that, failCauseNow_1)(tsplus_module_5.keepDefects(cause)), onSuccess, __tsplusTrace)(ma);
+    return matchCauseIO_1(cause => tsplus_module_18.match(that, failCauseNow_1)(tsplus_module_2.keepDefects(cause)), onSuccess, __tsplusTrace)(ma);
   };
 }
 /**
  * @tsplus static fncts.io.IOOps unit
  */
-
-
-const unit_1 = /*#__PURE__*/succeedNow_1(undefined, fileName_1 + ":1987:45");
+const unit_1 = /*#__PURE__*/succeedNow_1(undefined, fileName_1 + ":1818:45");
 export const unit = unit_1;
 /**
  * Converts an option on errors into an option on values.
  *
  * @tsplus getter fncts.io.IO unjust
  */
-
 export function unjust(self, __tsplusTrace) {
-  return matchIO_1(e => tsplus_module_4.match(() => succeedNow_1(tsplus_module_2.nothing(), __tsplusTrace), failNow_1)(e), a => succeedNow_1(tsplus_module_2.just(a), __tsplusTrace), __tsplusTrace)(self);
+  return matchIO_1(e => tsplus_module_18.match(() => succeedNow_1(tsplus_module_3.nothing(), __tsplusTrace), failNow_1)(e), a => succeedNow_1(tsplus_module_3.just(a), __tsplusTrace), __tsplusTrace)(self);
 }
 /**
  * Takes some fiber failures and converts them into errors, using the
@@ -1791,10 +1451,9 @@ export function unjust(self, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO unrefineWith
  */
-
 function unrefineWith_1(pf, f, __tsplusTrace) {
   return fa => {
-    return catchAllCause_1(cause => tsplus_module_4.match(() => failCauseNow_1(tsplus_module_5.map(f)(cause), __tsplusTrace), failNow_1)(tsplus_module_5.find(c => tsplus_module_5.isHalt(c) ? pf(c.value) : tsplus_module_2.nothing())(cause)), __tsplusTrace)(fa);
+    return catchAllCause_1(cause => tsplus_module_18.match(() => failCauseNow_1(tsplus_module_2.map(f)(cause), __tsplusTrace), failNow_1)(tsplus_module_2.find(c => tsplus_module_2.isHalt(c) ? pf(c.value) : tsplus_module_3.nothing())(cause)), __tsplusTrace)(fa);
   };
 }
 /**
@@ -1802,10 +1461,8 @@ function unrefineWith_1(pf, f, __tsplusTrace) {
  *
  * @tsplus getter fncts.io.IO unsandbox
  */
-
-
 function unsandbox_1(ma, __tsplusTrace) {
-  return mapErrorCause_1(cause => tsplus_module_5.flatten(cause), __tsplusTrace)(ma);
+  return mapErrorCause_1(cause => tsplus_module_2.flatten(cause), __tsplusTrace)(ma);
 }
 /**
  * Updates the `FiberRef` values for the fiber running this effect using the
@@ -1813,31 +1470,19 @@ function unsandbox_1(ma, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps updateFiberRefs
  */
-
-
 export function updateFiberRefs(f, __tsplusTrace) {
-  return withFiberContext_1(fiber => succeed_1(() => {
-    const newFiberRefs = f(fiber.fiberId, fiber.fiberRefs);
-    fiber.fiberRefLocals = newFiberRefs.fiberRefLocals;
-  }, __tsplusTrace), __tsplusTrace);
-}
-/**
- * @tsplus static fncts.io.IOOps withFiberContext
- */
-
-function withFiberContext_1(onState, __tsplusTrace) {
-  return new Stateful(onState, __tsplusTrace);
+  return withFiberRuntime_1(state => {
+    state.setFiberRefs(f(state.id, state.getFiberRefs()));
+    return unit_1;
+  }, __tsplusTrace);
 }
 /**
  * @tsplus fluent fncts.io.IO __call
  */
-
-
 export const via = pipe;
 /**
  * @tsplus pipeable fncts.io.IO when
  */
-
 export function when(b, __tsplusTrace) {
   return ma => {
     return whenIO_1(succeed_1(b, __tsplusTrace), __tsplusTrace)(ma);
@@ -1848,12 +1493,29 @@ export function when(b, __tsplusTrace) {
  *
  * @tsplus pipeable fncts.io.IO whenIO
  */
-
 function whenIO_1(mb, __tsplusTrace) {
   return ma => {
     return flatMap_1(b => b ? asUnit_1(ma, __tsplusTrace) : unit_1, __tsplusTrace)(mb);
   };
 }
+/**
+ * @tsplus static fncts.io.IOOps withFiberRuntime
+ */
+function withFiberRuntime_1(onState, __tsplusTrace) {
+  return new Stateful(onState, __tsplusTrace);
+}
+/**
+ * @tsplus static fncts.io.IOOps updateRuntimeFlags
+ */
+export function updateRuntimeFlags(patch, __tsplusTrace) {
+  return new UpdateRuntimeFlags(patch, __tsplusTrace);
+}
+/**
+ * @tsplus static fncts.io.IOOps stackTrace
+ */
+function stackTrace_1(__tsplusTrace) {
+  return new GenerateStackTrace(__tsplusTrace);
+}
 /**
  * Returns an effect that yields to the runtime system, starting on a fresh
  * stack. Manual use of this method can improve fairness, at the cost of
@@ -1861,14 +1523,11 @@ function whenIO_1(mb, __tsplusTrace) {
  *
  * @tsplus static fncts.io.IOOps yieldNow
  */
-
-
-const yieldNow_1 = /*#__PURE__*/new Yield();
+const yieldNow_1 = /*#__PURE__*/new YieldNow();
 export const yieldNow = yieldNow_1;
 /**
  * @tsplus pipeable fncts.io.IO zip
  */
-
 export function zip(that, __tsplusTrace) {
   return self => {
     return zipWith_1(that, tuple, __tsplusTrace)(self);
@@ -1877,32 +1536,26 @@ export function zip(that, __tsplusTrace) {
 /**
  * @tsplus pipeable fncts.io.IO zipWith
  */
-
 function zipWith_1(that, f, __tsplusTrace) {
   return self => {
     return flatMap_1(a => map_1(b => f(a, b), __tsplusTrace)(that), __tsplusTrace)(self);
   };
 }
-
 export class GenIO {
   constructor(effect, _trace) {
     this.effect = effect;
     this._trace = _trace;
   }
-
   *[Symbol.iterator]() {
     return yield this;
   }
-
 }
 /**
  * @internal
  */
-
 export const __adapter = _ => {
   return _;
 };
-
 const adapter = (_, __tsplusTrace) => {
   return new GenIO(__adapter(_), __tsplusTrace);
 };
@@ -1910,26 +1563,20 @@ const adapter = (_, __tsplusTrace) => {
  * @tsplus static fncts.io.IOOps gen
  * @gen
  */
-
-
 function gen_1(f, __tsplusTrace) {
   return defer_1(() => {
     const iterator = f(adapter);
     const state = iterator.next();
-
     const run = state => {
       if (state.done) {
         return succeed_1(() => state.value, __tsplusTrace);
       }
-
       const f = val => {
         const next = iterator.next(val);
         return run(next);
       };
-
       return flatMap_1(f, __tsplusTrace)(state.value.effect);
     };
-
     return run(state);
   }, __tsplusTrace);
 }