@fncts/io 0.0.47 → 0.0.49

package/_src/Channel/core-api.ts

@@ -1,25 +1,31 @@
 import { tuple } from "@fncts/base/data/function";
 
-import { ChannelPrimitive, ChannelTag, ContinuationK, Done, Fail, Fold } from "./definition.js";
+import { ChannelPrimitive, ChannelTag } from "./definition.js";
 
-/**
- * Halt a channel with the specified cause
- *
- * @tsplus static fncts.io.ChannelOps failCause
- */
-export function failCause<E>(result: Lazy<Cause<E>>): Channel<never, unknown, unknown, unknown, E, never, never> {
-  const op = new ChannelPrimitive(ChannelTag.Halt);
-  op.i0    = result;
-  return op as any;
-}
+/* eslint perfectionist/sort-modules: "error" */
 
 /**
- * Halt a channel with the specified cause
+ * Returns a new channel that is the sequential composition of this channel and the specified
+ * channel. The returned channel terminates with a tuple of the terminal values of both channels.
  *
- * @tsplus static fncts.io.ChannelOps failCauseNow
+ * @tsplus pipeable fncts.io.Channel cross
  */
-export function failCauseNow<E>(result: Cause<E>): Channel<never, unknown, unknown, unknown, E, never, never> {
-  return Channel.failCause(result);
+export function cross<Env1, InErr1, InElem1, InDone1, OutErr1, OutElem1, OutDone1>(
+  that: Channel<Env1, InErr1, InElem1, InDone1, OutErr1, OutElem1, OutDone1>,
+) {
+  return <Env, InErr, InElem, InDone, OutErr, OutElem, OutDone>(
+    self: Channel<Env, InErr, InElem, InDone, OutErr, OutElem, OutDone>,
+  ): Channel<
+    Env | Env1,
+    InErr & InErr1,
+    InElem & InElem1,
+    InDone & InDone1,
+    OutErr | OutErr1,
+    OutElem | OutElem1,
+    readonly [OutDone, OutDone1]
+  > => {
+    return self.flatMap((z) => that.map((z2) => tuple(z, z2)));
+  };
 }
 
 /**
@@ -43,36 +49,23 @@ export function endNow<OutDone>(result: OutDone): Channel<never, unknown, unknow
 }
 
 /**
- * End a channel with the specified result
- *
- * @tsplus static fncts.io.ChannelOps succeed
- */
-export function succeed<Z>(z: Lazy<Z>): Channel<never, unknown, unknown, unknown, never, never, Z> {
-  return Channel.end(z);
-}
-
-/**
- * End a channel with the specified result
+ * Halt a channel with the specified cause
  *
- * @tsplus static fncts.io.ChannelOps succeedNow
+ * @tsplus static fncts.io.ChannelOps failCause
  */
-export function succeedNow<Z>(z: Z): Channel<never, unknown, unknown, unknown, never, never, Z> {
-  return Channel.end(z);
+export function failCause<E>(result: Lazy<Cause<E>>): Channel<never, unknown, unknown, unknown, E, never, never> {
+  const op = new ChannelPrimitive(ChannelTag.Halt);
+  op.i0    = result;
+  return op as any;
 }
 
 /**
- * Returns a new channel, which is the same as this one, except the terminal value of the
- * returned channel is created by applying the specified function to the terminal value of this
- * channel.
+ * Halt a channel with the specified cause
  *
- * @tsplus pipeable fncts.io.Channel map
+ * @tsplus static fncts.io.ChannelOps failCauseNow
  */
-export function map<OutDone, OutDone2>(f: (out: OutDone) => OutDone2) {
-  return <Env, InErr, InElem, InDone, OutErr, OutElem>(
-    self: Channel<Env, InErr, InElem, InDone, OutErr, OutElem, OutDone>,
-  ): Channel<Env, InErr, InElem, InDone, OutErr, OutElem, OutDone2> => {
-    return self.flatMap((z) => Channel.succeedNow(f(z)));
-  };
+export function failCauseNow<E>(result: Cause<E>): Channel<never, unknown, unknown, unknown, E, never, never> {
+  return Channel.failCause(result);
 }
 
 /**
@@ -111,29 +104,38 @@ export function flatMap<OutDone, Env1, InErr1, InElem1, InDone1, OutErr1, OutEle
 }
 
 /**
- * Returns a new channel that is the sequential composition of this channel and the specified
- * channel. The returned channel terminates with a tuple of the terminal values of both channels.
+ * Returns a new channel, which is the same as this one, except the terminal value of the
+ * returned channel is created by applying the specified function to the terminal value of this
+ * channel.
  *
- * @tsplus pipeable fncts.io.Channel cross
+ * @tsplus pipeable fncts.io.Channel map
  */
-export function cross<Env1, InErr1, InElem1, InDone1, OutErr1, OutElem1, OutDone1>(
-  that: Channel<Env1, InErr1, InElem1, InDone1, OutErr1, OutElem1, OutDone1>,
-) {
-  return <Env, InErr, InElem, InDone, OutErr, OutElem, OutDone>(
+export function map<OutDone, OutDone2>(f: (out: OutDone) => OutDone2) {
+  return <Env, InErr, InElem, InDone, OutErr, OutElem>(
     self: Channel<Env, InErr, InElem, InDone, OutErr, OutElem, OutDone>,
-  ): Channel<
-    Env | Env1,
-    InErr & InErr1,
-    InElem & InElem1,
-    InDone & InDone1,
-    OutErr | OutErr1,
-    OutElem | OutElem1,
-    readonly [OutDone, OutDone1]
-  > => {
-    return self.flatMap((z) => that.map((z2) => tuple(z, z2)));
+  ): Channel<Env, InErr, InElem, InDone, OutErr, OutElem, OutDone2> => {
+    return self.flatMap((z) => Channel.succeedNow(f(z)));
   };
 }
 
+/**
+ * End a channel with the specified result
+ *
+ * @tsplus static fncts.io.ChannelOps succeed
+ */
+export function succeed<Z>(z: Lazy<Z>): Channel<never, unknown, unknown, unknown, never, never, Z> {
+  return Channel.end(z);
+}
+
+/**
+ * End a channel with the specified result
+ *
+ * @tsplus static fncts.io.ChannelOps succeedNow
+ */
+export function succeedNow<Z>(z: Z): Channel<never, unknown, unknown, unknown, never, never, Z> {
+  return Channel.end(z);
+}
+
 /**
  * Returns a new channel that is the sequential composition of this channel and the specified
  * channel. The returned channel terminates with the terminal value of this channel.

package/_src/Channel/internal/ChannelExecutor.ts

@@ -576,11 +576,11 @@ export class ChannelExecutor<Env, InErr, InElem, InDone, OutErr, OutElem, OutDon
     if (closeSubexecutors === null && runInProgressFinalizers === null && closeSelf === null) {
       return null;
     } else {
-      return IO.sequenceT(
+      return IO.all([
         this.ifNotNull(closeSubexecutors).result,
         this.ifNotNull(runInProgressFinalizers).result,
         this.ifNotNull(closeSelf).result,
-      )
+      ])
         .map(([a, b, c]) => a.zipRight(b).zipRight(c))
         .uninterruptible.flatMap(IO.fromExitNow);
     }
@@ -623,7 +623,7 @@ export class ChannelExecutor<Env, InErr, InElem, InDone, OutErr, OutElem, OutDon
     if (finalizers.isEmpty()) {
       return IO.unit;
     }
-    return IO.foreach(finalizers, (cont) => cont(exit).result)
+    return this.provide(IO.foreach(finalizers, (cont) => cont(exit).result))
       .map((results) => Exit.collectAll(results).getOrElse(Exit.unit as Exit<never, unknown>))
       .flatMap(IO.fromExitNow);
   }

package/_src/Console/definition.ts

@@ -10,5 +10,6 @@ export abstract class Console {
 
 /**
  * @tsplus static fncts.io.ConsoleOps Tag
+ * @tsplus implicit
  */
 export const ConsoleTag = Tag<Console>("fncts.io.Console");

package/_src/CountdownLatch.ts

@@ -27,6 +27,8 @@ export class CountdownLatch {
   readonly count: UIO<number> = this._count.get;
 
   readonly increment: UIO<void> = this._count.update((n) => n + 1);
+
+  readonly isOpen: UIO<boolean> = this._count.get.map((count) => count === 0);
 }
 
 /**

package/_src/Fiber/FiberMessage.ts

@@ -3,13 +3,11 @@ import type { FiberRuntime } from "./FiberRuntime.js";
 
 export const enum FiberMessageTag {
   InterruptSignal,
-  GenStackTrace,
   Stateful,
   Resume,
-  YieldNow,
 }
 
-export type FiberMessage = InterruptSignal | GenStackTrace | Stateful | Resume | YieldNow;
+export type FiberMessage = InterruptSignal | Stateful | Resume;
 
 /**
  * @tsplus type fncts.io.FiberMessageOps
@@ -30,27 +28,15 @@ export function interruptSignal(cause: Cause<never>): FiberMessage {
   return new InterruptSignal(cause);
 }
 
-export class GenStackTrace {
-  readonly _tag = FiberMessageTag.GenStackTrace;
-  constructor(readonly onTrace: (trace: Trace) => void) {}
-}
-
-/**
- * @tsplus static fncts.io.FiberMessageOps GenStackTrace
- */
-export function genStackTrace(onTrace: (trace: Trace) => void): FiberMessage {
-  return new GenStackTrace(onTrace);
-}
-
 export class Stateful {
   readonly _tag = FiberMessageTag.Stateful;
-  constructor(readonly onFiber: (fiber: FiberRuntime<any, any>, status: FiberStatus) => void) {}
+  constructor(readonly onFiber: (fiber: FiberRuntime<any, any>) => void) {}
 }
 
 /**
  * @tsplus static fncts.io.FiberMessageOps Stateful
  */
-export function stateful(onFiber: (fiber: FiberRuntime<any, any>, status: FiberStatus) => void): FiberMessage {
+export function stateful(onFiber: (fiber: FiberRuntime<any, any>) => void): FiberMessage {
   return new Stateful(onFiber);
 }
 
@@ -65,14 +51,3 @@ export class Resume {
 export function resume(cont: IO<any, any, any>): FiberMessage {
   return new Resume(cont);
 }
-
-export interface YieldNow {
-  readonly _tag: FiberMessageTag.YieldNow;
-}
-
-/**
- * @tsplus static fncts.io.FiberMessageOps YieldNow
- */
-export const yieldNow: FiberMessage = {
-  _tag: FiberMessageTag.YieldNow,
-};