@fncts/base 0.0.20 → 0.0.22

package/_mjs/data/Cause/api.mjs

@@ -21,15 +21,15 @@ import * as tsplus_module_20 from "@fncts/base/data/exceptions";
 import * as tsplus_module_21 from "@fncts/base/data/FiberId/api";
 import * as tsplus_module_22 from "@fncts/base/data/Trace/api";
 export const both = both_1;
-export const flatMap_ = flatMap_1;
+export const flatMap = flatMap_1;
 export const defects = defects_1;
 export const empty = empty_1;
 export const fail = fail_1;
 export const failed = failed_1;
 export const failureTraceMaybe = failureTraceMaybe_1;
 export const failureMaybe = failureMaybe_1;
-export const find_ = find_1;
-export const foldLeft_ = foldLeft_1;
+export const find = find_1;
+export const foldLeft = foldLeft_1;
 export const halt = halt_1;
 export const halted = halted_1;
 export const haltMaybe = haltMaybe_1;
@@ -40,8 +40,8 @@ export const isInterrupt = isInterrupt_1;
 export const isInterrupted = isInterrupted_1;
 export const interruptOption = interruptOption_1;
 export const interruptors = interruptors_1;
-export const map_ = map_1;
-export const mapTrace_ = mapTrace_1;
+export const map = map_1;
+export const mapTrace = mapTrace_1;
 export const stackless = stackless_1;
 export const then = then_1;
 export const traced = traced_1;
@@ -49,51 +49,31 @@ import { Stack } from "../../internal/Stack.mjs";
 import { identity } from "../function.mjs";
 import { _Empty, Both, Empty, Fail, Halt, Interrupt, Stackless, Then } from "./definition.mjs";
 /**
- * @tsplus fluent fncts.Cause as
+ * @tsplus pipeable fncts.Cause as
  */
-
-export function as_(self, b) {
-  return map_1(self, () => b());
+export function as_(b) {
+  return self => {
+    return map_1(() => b())(self);
+  };
 }
 /**
  * @internal
  */
-
 function chainEval(self, f) {
   switch (self._tag) {
-    case "Empty"
-    /* CauseTag.Empty */
-    :
+    case "Empty" /* CauseTag.Empty */:
       return tsplus_module_1.now(empty_1());
-
-    case "Fail"
-    /* CauseTag.Fail */
-    :
+    case "Fail" /* CauseTag.Fail */:
       return tsplus_module_1.now(traced_1(f(self.value), self.trace));
-
-    case "Halt"
-    /* CauseTag.Halt */
-    :
+    case "Halt" /* CauseTag.Halt */:
       return tsplus_module_1.now(self);
-
-    case "Interrupt"
-    /* CauseTag.Interrupt */
-    :
+    case "Interrupt" /* CauseTag.Interrupt */:
       return tsplus_module_1.now(self);
-
-    case "Then"
-    /* CauseTag.Then */
-    :
-      return tsplus_module_2.zipWith_(tsplus_module_1.defer(() => chainEval(self.left, f)), tsplus_module_1.defer(() => chainEval(self.right, f)), then_1);
-
-    case "Both"
-    /* CauseTag.Both */
-    :
-      return tsplus_module_2.zipWith_(tsplus_module_1.defer(() => chainEval(self.left, f)), tsplus_module_1.defer(() => chainEval(self.right, f)), both_1);
-
-    case "Stackless"
-    /* CauseTag.Stackless */
-    :
+    case "Then" /* CauseTag.Then */:
+      return tsplus_module_2.zipWith(tsplus_module_1.defer(() => chainEval(self.right, f)), then_1)(tsplus_module_1.defer(() => chainEval(self.left, f)));
+    case "Both" /* CauseTag.Both */:
+      return tsplus_module_2.zipWith(tsplus_module_1.defer(() => chainEval(self.right, f)), both_1)(tsplus_module_1.defer(() => chainEval(self.left, f)));
+    case "Stackless" /* CauseTag.Stackless */:
       return tsplus_module_1.defer(() => chainEval(self.cause, f));
   }
 }
@@ -105,42 +85,38 @@ function chainEval(self, f) {
  * @tsplus static fncts.CauseOps both
  * @tsplus static fncts.Cause.BothOps __call
  */
-
-
 function both_1(left, right) {
   return tsplus_module_3.isEmpty(left) ? right : tsplus_module_3.isEmpty(right) ? left : new Both(left, right);
 }
 /**
  * Composes computations in sequence, using the return value of one computation as input for the next
  *
- * @tsplus fluent fncts.Cause flatMap
+ * @tsplus pipeable fncts.Cause flatMap
  */
-
-
-function flatMap_1(self, f) {
-  return tsplus_module_4.run(chainEval(self, f));
+function flatMap_1(f) {
+  return self => {
+    return tsplus_module_4.run(chainEval(self, f));
+  };
 }
 /**
  * Determines whether a `Cause` contains or is equal to the specified cause.
  *
- * @tsplus fluent fncts.Cause contains
+ * @tsplus pipeable fncts.Cause contains
  */
-
-
-export function contains_(self, that) {
-  return tsplus_module_4.run(containsEval(self, that));
+export function contains(that) {
+  return self => {
+    return tsplus_module_4.run(containsEval(self, that));
+  };
 }
 /**
  * @internal
  */
-
 function containsEval(self, that) {
   return tsplus_module_2.gen(function* (_) {
     if (yield* _(self.equalsEval(that))) {
       return true;
     }
-
-    return yield* _(foldLeft_1(self, tsplus_module_1.now(false), (computation, c) => tsplus_module_5.just(tsplus_module_2.flatMap_(computation, b => b ? tsplus_module_1.now(b) : c.equalsEval(that)))));
+    return yield* _(foldLeft_1(tsplus_module_1.now(false), (computation, c) => tsplus_module_5.just(tsplus_module_2.flatMap(b => b ? tsplus_module_1.now(b) : c.equalsEval(that))(computation)))(self));
   });
 }
 /**
@@ -148,10 +124,8 @@ function containsEval(self, that) {
  *
  * @tsplus getter fncts.Cause defects
  */
-
-
 function defects_1(self) {
-  return tsplus_module_7.reverse(foldLeft_1(self, tsplus_module_6.empty(), (z, c) => isHalt_1(c) ? tsplus_module_5.just(tsplus_module_7.prependOperator(c.value, z)) : tsplus_module_5.nothing()));
+  return tsplus_module_7.reverse(foldLeft_1(tsplus_module_6.empty(), (z, c) => isHalt_1(c) ? tsplus_module_5.just(tsplus_module_7.prependOperator(c.value, z)) : tsplus_module_5.nothing())(self));
 }
 /**
  * The empty `Cause`
@@ -159,8 +133,6 @@ function defects_1(self) {
  * @tsplus static fncts.CauseOps empty
  * @tsplus static fncts.Cause.EmptyOps __call
  */
-
-
 function empty_1() {
   return _Empty;
 }
@@ -170,8 +142,6 @@ function empty_1() {
  * @tsplus static fncts.CauseOps fail
  * @tsplus static fncts.Cause.FailOps __call
  */
-
-
 function fail_1(value, trace = tsplus_module_8.none) {
   return new Fail(value, trace);
 }
@@ -180,20 +150,16 @@ function fail_1(value, trace = tsplus_module_8.none) {
  *
  * @tsplus getter Cause failed
  */
-
-
 function failed_1(self) {
-  return tsplus_module_9.match_(failureMaybe_1(self), () => false, () => true);
+  return tsplus_module_9.match(() => false, () => true)(failureMaybe_1(self));
 }
 /**
  * Produces a list of all recoverable errors `E` in the `Cause`.
  *
  * @tsplus getter fncts.Cause failures
  */
-
-
 export function failures(self) {
-  return tsplus_module_7.reverse(foldLeft_1(self, tsplus_module_6.empty(), (z, c) => isFail_1(c) ? tsplus_module_5.just(tsplus_module_7.prependOperator(c.value, z)) : tsplus_module_5.nothing()));
+  return tsplus_module_7.reverse(foldLeft_1(tsplus_module_6.empty(), (z, c) => isFail_1(c) ? tsplus_module_5.just(tsplus_module_7.prependOperator(c.value, z)) : tsplus_module_5.nothing())(self));
 }
 /**
  * Retrieve the first checked error on the `Left` if available,
@@ -202,9 +168,8 @@ export function failures(self) {
  *
  * @tsplus getter fncts.Cause failureOrCause
  */
-
 export function failureOrCause(self) {
-  return tsplus_module_9.match_(failureMaybe_1(self), () => tsplus_module_10.right(self), tsplus_module_10.left);
+  return tsplus_module_9.match(() => tsplus_module_10.right(self), tsplus_module_10.left)(failureMaybe_1(self));
 }
 /**
  * Returns the `E` associated with the first `Fail` in this `Cause` if one
@@ -212,9 +177,8 @@ export function failureOrCause(self) {
  *
  * @tsplus getter fncts.Cause failureTraceMaybe
  */
-
 function failureTraceMaybe_1(self) {
-  return find_1(self, c => isFail_1(c) ? tsplus_module_5.just([c.value, c.trace]) : tsplus_module_5.nothing());
+  return find_1(c => isFail_1(c) ? tsplus_module_5.just([c.value, c.trace]) : tsplus_module_5.nothing())(self);
 }
 /**
  * Retrieve the first checked error and its trace on the `Left` if available,
@@ -223,100 +187,85 @@ function failureTraceMaybe_1(self) {
  *
  * @tsplus getter fncts.Cause failureTraceOrCause
  */
-
-
 export function failureTraceOrCause(self) {
-  return tsplus_module_9.match_(failureTraceMaybe_1(self), () => tsplus_module_10.right(self), tsplus_module_10.left);
+  return tsplus_module_9.match(() => tsplus_module_10.right(self), tsplus_module_10.left)(failureTraceMaybe_1(self));
 }
 /**
  * Returns the `E` associated with the first `Fail` in this `Cause` if one exists.
  *
  * @tsplus getter fncts.Cause failureMaybe
  */
-
 function failureMaybe_1(self) {
-  return find_1(self, c => c._tag === "Fail"
-  /* CauseTag.Fail */
-  ? tsplus_module_5.just(c.value) : tsplus_module_5.nothing());
+  return find_1(c => c._tag === "Fail" /* CauseTag.Fail */ ? tsplus_module_5.just(c.value) : tsplus_module_5.nothing())(self);
 }
 /**
  * Remove all `Halt` causes that the specified partial function is defined at,
  * returning `Just` with the remaining causes or `Nothing` if there are no
  * remaining causes.
  *
- * @tsplus fluent fncts.Cause filterDefects
- */
-
-
-export function filterDefects_(self, p) {
-  return tsplus_module_13.fold_(self, {
-    Empty: () => tsplus_module_5.just(empty_1()),
-    Fail: (e, trace) => tsplus_module_5.just(fail_1(e, trace)),
-    Halt: (u, trace) => p(u) ? tsplus_module_5.nothing() : tsplus_module_5.just(halt_1(u, trace)),
-    Interrupt: (fiberId, trace) => tsplus_module_5.just(interrupt_1(fiberId, trace)),
-    Then: (l, r) => {
-      if (tsplus_module_11.isJust(l) && tsplus_module_11.isJust(r)) {
-        return tsplus_module_5.just(then_1(l.value, r.value));
-      } else if (tsplus_module_11.isJust(l) && tsplus_module_11.isNothing(r)) {
-        return tsplus_module_5.just(l.value);
-      } else if (tsplus_module_11.isNothing(l) && tsplus_module_11.isJust(r)) {
-        return tsplus_module_5.just(r.value);
-      } else {
-        return tsplus_module_5.nothing();
-      }
-    },
-    Both: (l, r) => {
-      if (tsplus_module_11.isJust(l) && tsplus_module_11.isJust(r)) {
-        return tsplus_module_5.just(both_1(l.value, r.value));
-      } else if (tsplus_module_11.isJust(l) && tsplus_module_11.isNothing(r)) {
-        return tsplus_module_5.just(l.value);
-      } else if (tsplus_module_11.isNothing(l) && tsplus_module_11.isJust(r)) {
-        return tsplus_module_5.just(r.value);
-      } else {
-        return tsplus_module_5.nothing();
-      }
-    },
-    Stackless: (causeOption, stackless) => tsplus_module_12.map_(causeOption, cause => stackless_1(cause, stackless))
-  });
+ * @tsplus pipeable fncts.Cause filterDefects
+ */
+export function filterDefects(p) {
+  return self => {
+    return tsplus_module_13.fold({
+      Empty: () => tsplus_module_5.just(empty_1()),
+      Fail: (e, trace) => tsplus_module_5.just(fail_1(e, trace)),
+      Halt: (u, trace) => p(u) ? tsplus_module_5.nothing() : tsplus_module_5.just(halt_1(u, trace)),
+      Interrupt: (fiberId, trace) => tsplus_module_5.just(interrupt_1(fiberId, trace)),
+      Then: (l, r) => {
+        if (tsplus_module_11.isJust(l) && tsplus_module_11.isJust(r)) {
+          return tsplus_module_5.just(then_1(l.value, r.value));
+        } else if (tsplus_module_11.isJust(l) && tsplus_module_11.isNothing(r)) {
+          return tsplus_module_5.just(l.value);
+        } else if (tsplus_module_11.isNothing(l) && tsplus_module_11.isJust(r)) {
+          return tsplus_module_5.just(r.value);
+        } else {
+          return tsplus_module_5.nothing();
+        }
+      },
+      Both: (l, r) => {
+        if (tsplus_module_11.isJust(l) && tsplus_module_11.isJust(r)) {
+          return tsplus_module_5.just(both_1(l.value, r.value));
+        } else if (tsplus_module_11.isJust(l) && tsplus_module_11.isNothing(r)) {
+          return tsplus_module_5.just(l.value);
+        } else if (tsplus_module_11.isNothing(l) && tsplus_module_11.isJust(r)) {
+          return tsplus_module_5.just(r.value);
+        } else {
+          return tsplus_module_5.nothing();
+        }
+      },
+      Stackless: (causeOption, stackless) => tsplus_module_12.map(cause => stackless_1(cause, stackless))(causeOption)
+    })(self);
+  };
 }
 /**
  * @tsplus tailRec
  */
-
 function findLoop(self, f, stack) {
   var self_1 = self,
-      f_1 = f,
-      stack_1 = stack;
+    f_1 = f,
+    stack_1 = stack;
   var self_2 = self,
-      f_2 = f,
-      stack_2 = stack;
-
+    f_2 = f,
+    stack_2 = stack;
   while (1) {
     const r = f_1(self_1);
     void 0;
-
     switch (r._tag) {
-      case "Nothing"
-      /* MaybeTag.Nothing */
-      :
+      case "Nothing" /* MaybeTag.Nothing */:
         {
           switch (self_1._tag) {
-            case "Both"
-            /* CauseTag.Both */
-            :
-            case "Then"
-            /* CauseTag.Then */
-            :
+            case "Both" /* CauseTag.Both */:
+            case "Then" /* CauseTag.Then */:
               {
                 self_2 = self_1.left;
                 f_2 = f_1;
-                stack_2 = tsplus_module_7.prepend_(stack_1, self_1.right);
+                stack_2 = tsplus_module_7.prepend(self_1.right)(stack_1);
                 self_1 = self_2;
                 f_1 = f_2;
                 stack_1 = stack_2;
                 continue;
               }
-
             default:
               {
                 if (tsplus_module_14.isNonEmpty(stack_1)) {
@@ -328,15 +277,11 @@ function findLoop(self, f, stack) {
                   stack_1 = stack_2;
                   continue;
                 }
-
                 return tsplus_module_5.nothing();
               }
           }
         }
-
-      case "Just"
-      /* MaybeTag.Just */
-      :
+      case "Just" /* MaybeTag.Just */:
         {
           return r;
         }
@@ -346,61 +291,49 @@ function findLoop(self, f, stack) {
 /**
  * Finds the first result matching `f`
  *
- * @tsplus fluent fncts.Cause find
+ * @tsplus pipeable fncts.Cause find
  */
-
-
-function find_1(self, f) {
-  return findLoop(self, f, tsplus_module_6.nil());
+function find_1(f) {
+  return self => {
+    return findLoop(self, f, tsplus_module_6.nil());
+  };
 }
 /**
  * @tsplus getter fncts.Cause flatten
  */
-
-
 export function flatten(self) {
-  return flatMap_1(self, identity);
+  return flatMap_1(identity)(self);
 }
-
 class FCEStackFrameDone {
   constructor() {
     this._tag = "FCEStackFrameDone";
   }
-
 }
-
 class FCEStackFrameThenLeft {
   constructor(cause) {
     this.cause = cause;
     this._tag = "FCEStackFrameThenLeft";
   }
-
 }
-
 class FCEStackFrameThenRight {
   constructor(cause, leftResult) {
     this.cause = cause;
     this.leftResult = leftResult;
     this._tag = "FCEStackFrameThenRight";
   }
-
 }
-
 class FCEStackFrameBothLeft {
   constructor(cause) {
     this.cause = cause;
     this._tag = "FCEStackFrameBothLeft";
   }
-
 }
-
 class FCEStackFrameBothRight {
   constructor(cause, leftResult) {
     this.cause = cause;
     this.leftResult = leftResult;
     this._tag = "FCEStackFrameBothRight";
   }
-
 }
 /**
  * Converts the specified `Cause<Either<E, A>>` to an `Either<Cause<E>, A>` by
@@ -408,159 +341,114 @@ class FCEStackFrameBothRight {
  *
  * @tsplus getter fncts.Cause flipCauseEither
  */
-
-
 export function flipCauseEither(self) {
-  const stack = tsplus_module_16.mkStack();
+  const stack = tsplus_module_16.makeStack();
   stack.push(new FCEStackFrameDone());
   let result;
   let c = self;
-
   recursion: while (stack.hasNext) {
     // eslint-disable-next-line no-constant-condition
     pushing: while (true) {
       switch (c._tag) {
-        case "Empty"
-        /* CauseTag.Empty */
-        :
+        case "Empty" /* CauseTag.Empty */:
           result = tsplus_module_10.left(empty_1());
           break pushing;
-
-        case "Interrupt"
-        /* CauseTag.Interrupt */
-        :
+        case "Interrupt" /* CauseTag.Interrupt */:
           result = tsplus_module_10.left(interrupt_1(c.id, c.trace));
           break pushing;
-
-        case "Halt"
-        /* CauseTag.Halt */
-        :
+        case "Halt" /* CauseTag.Halt */:
           result = tsplus_module_10.left(c);
           break pushing;
-
-        case "Fail"
-        /* CauseTag.Fail */
-        :
-          result = tsplus_module_17.match_(c.value, l => tsplus_module_10.left(fail_1(l, tsplus_module_8.none)), r => tsplus_module_10.right(r));
+        case "Fail" /* CauseTag.Fail */:
+          result = tsplus_module_17.match(l => tsplus_module_10.left(fail_1(l, tsplus_module_8.none)), r => tsplus_module_10.right(r))(c.value);
           break pushing;
-
-        case "Then"
-        /* CauseTag.Then */
-        :
+        case "Then" /* CauseTag.Then */:
           stack.push(new FCEStackFrameThenLeft(c));
           c = c.left;
           continue pushing;
-
-        case "Both"
-        /* CauseTag.Both */
-        :
+        case "Both" /* CauseTag.Both */:
           stack.push(new FCEStackFrameBothLeft(c));
           c = c.left;
           continue pushing;
       }
-    } // eslint-disable-next-line no-constant-condition
-
-
+    }
+    // eslint-disable-next-line no-constant-condition
     popping: while (true) {
       const top = stack.pop();
-
       switch (top._tag) {
         case "FCEStackFrameDone":
           return result;
-
         case "FCEStackFrameThenLeft":
           c = top.cause.right;
           stack.push(new FCEStackFrameThenRight(top.cause, result));
           continue recursion;
-
         case "FCEStackFrameThenRight":
           {
             const l = top.leftResult;
-
             if (tsplus_module_18.isLeft(l) && tsplus_module_18.isLeft(result)) {
               result = tsplus_module_10.left(then_1(l.left, result.left));
             }
-
             if (tsplus_module_18.isRight(l)) {
               result = tsplus_module_10.right(l.right);
             }
-
             if (tsplus_module_18.isRight(result)) {
               result = tsplus_module_10.right(result.right);
             }
-
             continue popping;
           }
-
         case "FCEStackFrameBothLeft":
           c = top.cause.right;
           stack.push(new FCEStackFrameBothRight(top.cause, result));
           continue recursion;
-
         case "FCEStackFrameBothRight":
           {
             const l = top.leftResult;
-
             if (tsplus_module_18.isLeft(l) && tsplus_module_18.isLeft(result)) {
               result = tsplus_module_10.left(both_1(l.left, result.left));
             }
-
             if (tsplus_module_18.isRight(l)) {
               result = tsplus_module_10.right(l.right);
             }
-
             if (tsplus_module_18.isRight(result)) {
               result = tsplus_module_10.right(result.right);
             }
-
             continue popping;
           }
       }
     }
   }
-
   throw new Error("Bug");
 }
-
 class FCOStackFrameDone {
   constructor() {
     this._tag = "FCOStackFrameDone";
   }
-
 }
-
 class FCOStackFrameThenLeft {
   constructor(cause) {
     this.cause = cause;
     this._tag = "FCOStackFrameThenLeft";
   }
-
 }
-
 class FCOStackFrameThenRight {
   constructor(cause, leftResult) {
     this.cause = cause;
     this.leftResult = leftResult;
     this._tag = "FCOStackFrameThenRight";
   }
-
 }
-
 class FCOStackFrameBothLeft {
   constructor(cause) {
     this.cause = cause;
     this._tag = "FCOStackFrameBothLeft";
   }
-
 }
-
 class FCOStackFrameBothRight {
   constructor(cause, leftResult) {
     this.cause = cause;
     this.leftResult = leftResult;
     this._tag = "FCOStackFrameBothRight";
   }
-
 }
 /**
  * Converts the specified `Cause<Maybe<A>>` to an `Maybe<Cause<A>>` by
@@ -568,168 +456,125 @@ class FCOStackFrameBothRight {
  *
  * @tsplus getter fncts.Cause flipCauseMaybe
  */
-
-
 export function flipCauseOption(self) {
-  const stack = tsplus_module_16.mkStack();
+  const stack = tsplus_module_16.makeStack();
   stack.push(new FCOStackFrameDone());
   let result;
   let c = self;
-
   recursion: while (stack.hasNext) {
     // eslint-disable-next-line no-constant-condition
     pushing: while (true) {
       switch (c._tag) {
-        case "Empty"
-        /* CauseTag.Empty */
-        :
+        case "Empty" /* CauseTag.Empty */:
           result = tsplus_module_5.just(empty_1());
           break pushing;
-
-        case "Interrupt"
-        /* CauseTag.Interrupt */
-        :
+        case "Interrupt" /* CauseTag.Interrupt */:
           result = tsplus_module_5.just(interrupt_1(c.id, tsplus_module_8.none));
           break pushing;
-
-        case "Halt"
-        /* CauseTag.Halt */
-        :
+        case "Halt" /* CauseTag.Halt */:
           result = tsplus_module_5.just(c);
           break pushing;
-
-        case "Fail"
-        /* CauseTag.Fail */
-        :
-          result = tsplus_module_9.match_(c.value, () => tsplus_module_5.nothing(), r => tsplus_module_5.just(fail_1(r, tsplus_module_8.none)));
+        case "Fail" /* CauseTag.Fail */:
+          result = tsplus_module_9.match(() => tsplus_module_5.nothing(), r => tsplus_module_5.just(fail_1(r, tsplus_module_8.none)))(c.value);
           break pushing;
-
-        case "Then"
-        /* CauseTag.Then */
-        :
+        case "Then" /* CauseTag.Then */:
           stack.push(new FCOStackFrameThenLeft(c));
           c = c.left;
           continue pushing;
-
-        case "Both"
-        /* CauseTag.Both */
-        :
+        case "Both" /* CauseTag.Both */:
           stack.push(new FCOStackFrameBothLeft(c));
           c = c.left;
           continue pushing;
       }
-    } // eslint-disable-next-line no-constant-condition
-
-
+    }
+    // eslint-disable-next-line no-constant-condition
     popping: while (true) {
       const top = stack.pop();
-
       switch (top._tag) {
         case "FCOStackFrameDone":
           return result;
-
         case "FCOStackFrameThenLeft":
           c = top.cause.right;
           stack.push(new FCOStackFrameThenRight(top.cause, result));
           continue recursion;
-
         case "FCOStackFrameThenRight":
           {
             const l = top.leftResult;
-
             if (tsplus_module_11.isJust(l) && tsplus_module_11.isJust(result)) {
               result = tsplus_module_5.just(then_1(l.value, result.value));
             }
-
             if (tsplus_module_11.isNothing(l) && tsplus_module_11.isJust(result)) {
               result = tsplus_module_5.just(result.value);
             }
-
             if (tsplus_module_11.isJust(l) && tsplus_module_11.isNothing(result)) {
               result = tsplus_module_5.just(l.value);
             }
-
             result = tsplus_module_5.nothing();
             continue popping;
           }
-
         case "FCOStackFrameBothLeft":
           c = top.cause.right;
           stack.push(new FCOStackFrameBothRight(top.cause, result));
           continue recursion;
-
         case "FCOStackFrameBothRight":
           {
             const l = top.leftResult;
-
             if (tsplus_module_11.isJust(l) && tsplus_module_11.isJust(result)) {
               result = tsplus_module_5.just(both_1(l.value, result.value));
             }
-
             if (tsplus_module_11.isNothing(l) && tsplus_module_11.isJust(result)) {
               result = tsplus_module_5.just(result.value);
             }
-
             if (tsplus_module_11.isJust(l) && tsplus_module_11.isNothing(result)) {
               result = tsplus_module_5.just(l.value);
             }
-
             result = tsplus_module_5.nothing();
             continue popping;
           }
       }
     }
   }
-
   throw new Error("Bug");
 }
 /**
  * Accumulates a state over a `Cause`
  *
- * @tsplus fluent fncts.Cause foldLeft
+ * @tsplus pipeable fncts.Cause foldLeft
  */
-
-function foldLeft_1(self, b, f) {
-  return foldLeftLoop(self, b, f, tsplus_module_6.nil());
+function foldLeft_1(b, f) {
+  return self => {
+    return foldLeftLoop(self, b, f, tsplus_module_6.nil());
+  };
 }
 /**
  * @internal
  * @tsplus tailRec
  */
-
-
 function foldLeftLoop(self, b, f, stack) {
   var self_3 = self,
-      b_1 = b,
-      f_3 = f,
-      stack_3 = stack;
+    b_1 = b,
+    f_3 = f,
+    stack_3 = stack;
   var self_4 = self,
-      b_2 = b,
-      f_4 = f,
-      stack_4 = stack;
-
+    b_2 = b,
+    f_4 = f,
+    stack_4 = stack;
   while (1) {
-    const z = tsplus_module_12.getOrElse_(f_3(b_1, self_3), () => b_1);
-
+    const z = tsplus_module_12.getOrElse(() => b_1)(f_3(b_1, self_3));
     switch (self_3._tag) {
-      case "Both"
-      /* CauseTag.Both */
-      :
-      case "Then"
-      /* CauseTag.Then */
-      :
+      case "Both" /* CauseTag.Both */:
+      case "Then" /* CauseTag.Then */:
         {
           self_4 = self_3.left;
           b_2 = z;
           f_4 = f_3;
-          stack_4 = tsplus_module_7.prepend_(stack_3, self_3.right);
+          stack_4 = tsplus_module_7.prepend(self_3.right)(stack_3);
           self_3 = self_4;
           b_1 = b_2;
           f_3 = f_4;
           stack_3 = stack_4;
           continue;
         }
-
       default:
         {
           if (tsplus_module_14.isNonEmpty(stack_3)) {
@@ -743,7 +588,6 @@ function foldLeftLoop(self, b, f, stack) {
             stack_3 = stack_4;
             continue;
           }
-
           return z;
         }
     }
@@ -755,8 +599,6 @@ function foldLeftLoop(self, b, f, stack) {
  * @tsplus static fncts.CauseOps halt
  * @tsplus static fncts.Cause.HaltOps __call
  */
-
-
 function halt_1(value, trace = tsplus_module_8.none) {
   return new Halt(value, trace);
 }
@@ -765,22 +607,16 @@ function halt_1(value, trace = tsplus_module_8.none) {
  *
  * @tsplus getter fncts.Cause halted
  */
-
-
 function halted_1(self) {
-  return tsplus_module_9.match_(haltMaybe_1(self), () => false, () => true);
+  return tsplus_module_9.match(() => false, () => true)(haltMaybe_1(self));
 }
 /**
  * Returns the `unknown` associated with the first `Halt` in this `Cause` if one exists.
  *
  * @tsplus getter fncts.Cause haltMaybe
  */
-
-
 function haltMaybe_1(self) {
-  return find_1(self, c => c._tag === "Halt"
-  /* CauseTag.Halt */
-  ? tsplus_module_5.just(c.value) : tsplus_module_5.nothing());
+  return find_1(c => c._tag === "Halt" /* CauseTag.Halt */ ? tsplus_module_5.just(c.value) : tsplus_module_5.nothing())(self);
 }
 /**
  * Constructs a `Cause` from an `Id`, representing an interruption of asynchronous computation
@@ -788,8 +624,6 @@ function haltMaybe_1(self) {
  * @tsplus static fncts.CauseOps interrupt
  * @tsplus static fncts.Cause.InterruptOps __call
  */
-
-
 function interrupt_1(id, trace = tsplus_module_8.none) {
   return new Interrupt(id, trace);
 }
@@ -798,112 +632,79 @@ function interrupt_1(id, trace = tsplus_module_8.none) {
  *
  * @tsplus fluent fncts.Cause isBoth
  */
-
-
 export function isBoth(self) {
-  return self._tag === "Both"
-  /* CauseTag.Both */
-  ;
+  return self._tag === "Both" /* CauseTag.Both */;
 }
 /**
  * A type-guard matching `Fail`
  *
  * @tsplus fluent fncts.Cause isFail
  */
-
 function isFail_1(self) {
-  return self._tag === "Fail"
-  /* CauseTag.Fail */
-  ;
+  return self._tag === "Fail" /* CauseTag.Fail */;
 }
 /**
  * @tsplus fluent fncts.Cause isHalt
  */
-
-
 function isHalt_1(self) {
-  return self._tag === "Halt"
-  /* CauseTag.Halt */
-  ;
+  return self._tag === "Halt" /* CauseTag.Halt */;
 }
 /**
  * A type-guard matching `Then`
  *
  * @tsplus fluent fncts.Cause isThen
  */
-
-
 export function isThen(self) {
-  return self._tag === "Then"
-  /* CauseTag.Then */
-  ;
+  return self._tag === "Then" /* CauseTag.Then */;
 }
 /**
  * A type-guard matching `Interrupt`
  *
  * @tsplus fluent fncts.Cause isInterrupt
  */
-
 function isInterrupt_1(self) {
-  return self._tag === "Interrupt"
-  /* CauseTag.Interrupt */
-  ;
+  return self._tag === "Interrupt" /* CauseTag.Interrupt */;
 }
 /**
  * Determines if the `Cause` contains an interruption.
  *
  * @tsplus getter fncts.Cause isInterrupted
  */
-
-
 function isInterrupted_1(self) {
-  return tsplus_module_11.isJust(find_1(self, cause => isInterrupt_1(cause) ? tsplus_module_5.just(cause) : tsplus_module_5.nothing()));
+  return tsplus_module_11.isJust(find_1(cause => isInterrupt_1(cause) ? tsplus_module_5.just(cause) : tsplus_module_5.nothing())(self));
 }
 /**
  * A type-guard matching `Traced`
  *
  * @tsplus getter fncts.Cause isTraced
  */
-
-
 export function isTraced(self) {
-  return tsplus_module_11.isJust(find_1(self, cause => {
+  return tsplus_module_11.isJust(find_1(cause => {
     switch (cause._tag) {
-      case "Halt"
-      /* CauseTag.Halt */
-      :
-      case "Fail"
-      /* CauseTag.Fail */
-      :
-      case "Interrupt"
-      /* CauseTag.Interrupt */
-      :
+      case "Halt" /* CauseTag.Halt */:
+      case "Fail" /* CauseTag.Fail */:
+      case "Interrupt" /* CauseTag.Interrupt */:
         return cause.trace !== tsplus_module_8.none ? tsplus_module_5.just(undefined) : tsplus_module_5.nothing();
-
       default:
         return tsplus_module_5.nothing();
     }
-  }));
+  })(self));
 }
 /**
  * Determines whether the `Cause` contains an interruption
  *
  * @tsplus getter fncts.Cause interrupted
  */
-
 export function interrupted(self) {
-  return tsplus_module_9.match_(interruptOption_1(self), () => false, () => true);
+  return tsplus_module_9.match(() => false, () => true)(interruptOption_1(self));
 }
 /**
  * Returns the `FiberId` associated with the first `Interrupt` in this `Cause` if one exists.
  *
  * @tsplus getter fncts.Cause interruptOption
  */
-
 function interruptOption_1(self) {
-  return find_1(self, c => c._tag === "Interrupt"
-  /* CauseTag.Interrupt */
-  ? tsplus_module_5.just(c.id) : tsplus_module_5.nothing());
+  return find_1(c => c._tag === "Interrupt" /* CauseTag.Interrupt */ ? tsplus_module_5.just(c.id) : tsplus_module_5.nothing())(self);
 }
 /**
  * Returns a set of interruptors, fibers that interrupted the fiber described
@@ -911,12 +712,8 @@ function interruptOption_1(self) {
  *
  * @tsplus getter fncts.Cause interruptors
  */
-
-
 function interruptors_1(self) {
-  return foldLeft_1(self, tsplus_module_19.makeDefault(), (s, c) => c._tag === "Interrupt"
-  /* CauseTag.Interrupt */
-  ? tsplus_module_5.just(tsplus_module_19.add_(s, c.id)) : tsplus_module_5.nothing());
+  return foldLeft_1(tsplus_module_19.empty(), (s, c) => c._tag === "Interrupt" /* CauseTag.Interrupt */ ? tsplus_module_5.just(tsplus_module_19.add(c.id)(s)) : tsplus_module_5.nothing())(self);
 }
 /**
  * Determines if the `Cause` contains only interruptions and not any `Halt` or
@@ -924,10 +721,8 @@ function interruptors_1(self) {
  *
  * @tsplus getter fncts.Cause interruptedOnly
  */
-
-
 export function interruptedOnly(self) {
-  return tsplus_module_12.getOrElse_(find_1(self, c => halted_1(c) || failed_1(c) ? tsplus_module_5.just(false) : tsplus_module_5.nothing()), () => true);
+  return tsplus_module_12.getOrElse(() => true)(find_1(c => halted_1(c) || failed_1(c) ? tsplus_module_5.just(false) : tsplus_module_5.nothing())(self));
 }
 /**
  * Remove all `Fail` and `Interrupt` nodes from this `Cause`,
@@ -935,9 +730,8 @@ export function interruptedOnly(self) {
  *
  * @tsplus getter fncts.Cause keepDefects
  */
-
 export function keepDefects(self) {
-  return tsplus_module_13.fold_(self, {
+  return tsplus_module_13.fold({
     Empty: () => tsplus_module_5.nothing(),
     Fail: () => tsplus_module_5.nothing(),
     Halt: (t, trace) => tsplus_module_5.just(halt_1(t, trace)),
@@ -964,38 +758,37 @@ export function keepDefects(self) {
         return tsplus_module_5.nothing();
       }
     },
-    Stackless: (maybeCause, stackless) => tsplus_module_12.map_(maybeCause, cause => stackless_1(cause, stackless))
-  });
+    Stackless: (maybeCause, stackless) => tsplus_module_12.map(cause => stackless_1(cause, stackless))(maybeCause)
+  })(self);
 }
 /**
- * @tsplus fluent fncts.Cause map
+ * @tsplus pipeable fncts.Cause map
  */
-
-function map_1(self, f) {
-  return flatMap_1(self, e => fail_1(f(e), tsplus_module_8.none));
+function map_1(f) {
+  return self => {
+    return flatMap_1(e => fail_1(f(e), tsplus_module_8.none))(self);
+  };
 }
 /**
- * @tsplus fluent fncts.Cause mapTrace
+ * @tsplus pipeable fncts.Cause mapTrace
  */
-
-
-function mapTrace_1(self, f) {
-  return tsplus_module_13.fold_(self, {
-    Empty: () => empty_1(),
-    Fail: (e, trace) => fail_1(e, f(trace)),
-    Halt: (u, trace) => halt_1(u, f(trace)),
-    Interrupt: (id, trace) => interrupt_1(id, f(trace)),
-    Then: then_1,
-    Both: both_1,
-    Stackless: stackless_1
-  });
+function mapTrace_1(f) {
+  return self => {
+    return tsplus_module_13.fold({
+      Empty: () => empty_1(),
+      Fail: (e, trace) => fail_1(e, f(trace)),
+      Halt: (u, trace) => halt_1(u, f(trace)),
+      Interrupt: (id, trace) => interrupt_1(id, f(trace)),
+      Then: then_1,
+      Both: both_1,
+      Stackless: stackless_1
+    })(self);
+  };
 }
 /**
  * @tsplus static fncts.CauseOps stackless
  * @tsplus static fncts.Cause.StacklessOps __call
  */
-
-
 function stackless_1(cause, stackless) {
   return new Stackless(cause, stackless);
 }
@@ -1004,10 +797,8 @@ function stackless_1(cause, stackless) {
  *
  * @tsplus getter fncts.Cause stripFailures
  */
-
-
 export function stripFailures(self) {
-  return tsplus_module_13.fold_(self, {
+  return tsplus_module_13.fold({
     Empty: () => empty_1(),
     Fail: () => empty_1(),
     Halt: (u, trace) => halt_1(u, trace),
@@ -1015,93 +806,65 @@ export function stripFailures(self) {
     Then: (l, r) => then_1(l, r),
     Both: (l, r) => both_1(l, r),
     Stackless: (c, stackless) => stackless_1(c, stackless)
-  });
+  })(self);
 }
 /**
  * Remove all `Halt` causes that the specified partial function is defined at,
  * returning `Just` with the remaining causes or `Nothing` if there are no
  * remaining causes.
  *
- * @tsplus fluent fncts.Cause stripSomeDefects
- */
-
-export function stripSomeDefects(self, p) {
-  return tsplus_module_13.fold_(self, {
-    Empty: () => tsplus_module_5.just(empty_1()),
-    Fail: (e, trace) => tsplus_module_5.just(fail_1(e, trace)),
-    Halt: (t, trace) => p(t) ? tsplus_module_5.nothing() : tsplus_module_5.just(halt_1(t, trace)),
-    Interrupt: (fiberId, trace) => tsplus_module_5.just(interrupt_1(fiberId, trace)),
-    Then: (l, r) => tsplus_module_11.isJust(l) && tsplus_module_11.isJust(r) ? tsplus_module_5.just(then_1(l.value, r.value)) : tsplus_module_11.isJust(l) ? tsplus_module_5.just(l.value) : tsplus_module_11.isJust(r) ? tsplus_module_5.just(r.value) : tsplus_module_5.nothing(),
-    Both: (l, r) => tsplus_module_11.isJust(l) && tsplus_module_11.isJust(r) ? tsplus_module_5.just(then_1(l.value, r.value)) : tsplus_module_11.isJust(l) ? tsplus_module_5.just(l.value) : tsplus_module_11.isJust(r) ? tsplus_module_5.just(r.value) : tsplus_module_5.nothing(),
-    Stackless: (causeOption, stackless) => tsplus_module_12.map_(causeOption, cause => stackless_1(cause, stackless))
-  });
+ * @tsplus pipeable fncts.Cause stripSomeDefects
+ */
+export function stripSomeDefects(p) {
+  return self => {
+    return tsplus_module_13.fold({
+      Empty: () => tsplus_module_5.just(empty_1()),
+      Fail: (e, trace) => tsplus_module_5.just(fail_1(e, trace)),
+      Halt: (t, trace) => p(t) ? tsplus_module_5.nothing() : tsplus_module_5.just(halt_1(t, trace)),
+      Interrupt: (fiberId, trace) => tsplus_module_5.just(interrupt_1(fiberId, trace)),
+      Then: (l, r) => tsplus_module_11.isJust(l) && tsplus_module_11.isJust(r) ? tsplus_module_5.just(then_1(l.value, r.value)) : tsplus_module_11.isJust(l) ? tsplus_module_5.just(l.value) : tsplus_module_11.isJust(r) ? tsplus_module_5.just(r.value) : tsplus_module_5.nothing(),
+      Both: (l, r) => tsplus_module_11.isJust(l) && tsplus_module_11.isJust(r) ? tsplus_module_5.just(then_1(l.value, r.value)) : tsplus_module_11.isJust(l) ? tsplus_module_5.just(l.value) : tsplus_module_11.isJust(r) ? tsplus_module_5.just(r.value) : tsplus_module_5.nothing(),
+      Stackless: (causeOption, stackless) => tsplus_module_12.map(cause => stackless_1(cause, stackless))(causeOption)
+    })(self);
+  };
 }
-
 function sequenceCauseEitherEval(self) {
   switch (self._tag) {
-    case "Empty"
-    /* CauseTag.Empty */
-    :
+    case "Empty" /* CauseTag.Empty */:
       {
         return tsplus_module_1.now(tsplus_module_10.left(empty_1()));
       }
-
-    case "Interrupt"
-    /* CauseTag.Interrupt */
-    :
+    case "Interrupt" /* CauseTag.Interrupt */:
       {
         return tsplus_module_1.now(tsplus_module_10.left(self));
       }
-
-    case "Fail"
-    /* CauseTag.Fail */
-    :
+    case "Fail" /* CauseTag.Fail */:
       {
-        return tsplus_module_1.now(tsplus_module_17.match_(self.value, e => tsplus_module_10.left(fail_1(e, tsplus_module_8.none)), a => tsplus_module_10.right(a)));
+        return tsplus_module_1.now(tsplus_module_17.match(e => tsplus_module_10.left(fail_1(e, tsplus_module_8.none)), a => tsplus_module_10.right(a))(self.value));
       }
-
-    case "Halt"
-    /* CauseTag.Halt */
-    :
+    case "Halt" /* CauseTag.Halt */:
       {
         return tsplus_module_1.now(tsplus_module_10.left(self));
       }
-
-    case "Then"
-    /* CauseTag.Then */
-    :
+    case "Then" /* CauseTag.Then */:
       {
-        return tsplus_module_2.zipWith_(tsplus_module_1.defer(() => sequenceCauseEitherEval(self.left)), tsplus_module_1.defer(() => sequenceCauseEitherEval(self.right)), (lefts, rights) => {
+        return tsplus_module_2.zipWith(tsplus_module_1.defer(() => sequenceCauseEitherEval(self.right)), (lefts, rights) => {
           void 0;
           void 0;
-          return lefts._tag === "Left"
-          /* EitherTag.Left */
-          ? rights._tag === "Right"
-          /* EitherTag.Right */
-          ? tsplus_module_10.right(rights.right) : tsplus_module_10.left(then_1(lefts.left, rights.left)) : tsplus_module_10.right(lefts.right);
-        });
+          return lefts._tag === "Left" /* EitherTag.Left */ ? rights._tag === "Right" /* EitherTag.Right */ ? tsplus_module_10.right(rights.right) : tsplus_module_10.left(then_1(lefts.left, rights.left)) : tsplus_module_10.right(lefts.right);
+        })(tsplus_module_1.defer(() => sequenceCauseEitherEval(self.left)));
       }
-
-    case "Both"
-    /* CauseTag.Both */
-    :
+    case "Both" /* CauseTag.Both */:
       {
-        return tsplus_module_2.zipWith_(tsplus_module_1.defer(() => sequenceCauseEitherEval(self.left)), tsplus_module_1.defer(() => sequenceCauseEitherEval(self.right)), (lefts, rights) => {
+        return tsplus_module_2.zipWith(tsplus_module_1.defer(() => sequenceCauseEitherEval(self.right)), (lefts, rights) => {
           void 0;
           void 0;
-          return lefts._tag === "Left"
-          /* EitherTag.Left */
-          ? rights._tag === "Right"
-          /* EitherTag.Right */
-          ? tsplus_module_10.right(rights.right) : tsplus_module_10.left(both_1(lefts.left, rights.left)) : tsplus_module_10.right(lefts.right);
-        });
+          return lefts._tag === "Left" /* EitherTag.Left */ ? rights._tag === "Right" /* EitherTag.Right */ ? tsplus_module_10.right(rights.right) : tsplus_module_10.left(both_1(lefts.left, rights.left)) : tsplus_module_10.right(lefts.right);
+        })(tsplus_module_1.defer(() => sequenceCauseEitherEval(self.left)));
       }
-
-    case "Stackless"
-    /* CauseTag.Stackless */
-    :
+    case "Stackless" /* CauseTag.Stackless */:
       {
-        return tsplus_module_2.map_(tsplus_module_1.defer(() => sequenceCauseEitherEval(self.cause)), _ => tsplus_module_18.mapLeft_(_, cause => stackless_1(cause, self.stackless)));
+        return tsplus_module_2.map(_ => tsplus_module_18.mapLeft(cause => stackless_1(cause, self.stackless))(_))(tsplus_module_1.defer(() => sequenceCauseEitherEval(self.cause)));
       }
   }
 }
@@ -1110,81 +873,46 @@ function sequenceCauseEitherEval(self) {
  *
  * @tsplus getter fncts.Cause sequenceCauseEither
  */
-
-
 export function sequenceCauseEither(self) {
   return tsplus_module_4.run(sequenceCauseEitherEval(self));
 }
-
 function sequenceCauseMaybeEval(self) {
   switch (self._tag) {
-    case "Empty"
-    /* CauseTag.Empty */
-    :
+    case "Empty" /* CauseTag.Empty */:
       {
         return tsplus_module_1.now(tsplus_module_5.just(empty_1()));
       }
-
-    case "Interrupt"
-    /* CauseTag.Interrupt */
-    :
+    case "Interrupt" /* CauseTag.Interrupt */:
       {
         return tsplus_module_1.now(tsplus_module_5.just(self));
       }
-
-    case "Fail"
-    /* CauseTag.Fail */
-    :
+    case "Fail" /* CauseTag.Fail */:
       {
-        return tsplus_module_1.now(tsplus_module_12.map_(self.value, e => fail_1(e, tsplus_module_8.none)));
+        return tsplus_module_1.now(tsplus_module_12.map(e => fail_1(e, tsplus_module_8.none))(self.value));
       }
-
-    case "Halt"
-    /* CauseTag.Halt */
-    :
+    case "Halt" /* CauseTag.Halt */:
       {
         return tsplus_module_1.now(tsplus_module_5.just(self));
       }
-
-    case "Then"
-    /* CauseTag.Then */
-    :
+    case "Then" /* CauseTag.Then */:
       {
-        return tsplus_module_2.zipWith_(tsplus_module_1.defer(() => sequenceCauseMaybeEval(self.left)), tsplus_module_1.defer(() => sequenceCauseMaybeEval(self.right)), (lefts, rights) => {
+        return tsplus_module_2.zipWith(tsplus_module_1.defer(() => sequenceCauseMaybeEval(self.right)), (lefts, rights) => {
           void 0;
           void 0;
-          return lefts._tag === "Just"
-          /* MaybeTag.Just */
-          ? rights._tag === "Just"
-          /* MaybeTag.Just */
-          ? tsplus_module_5.just(then_1(lefts.value, rights.value)) : lefts : rights._tag === "Just"
-          /* MaybeTag.Just */
-          ? rights : tsplus_module_5.nothing();
-        });
+          return lefts._tag === "Just" /* MaybeTag.Just */ ? rights._tag === "Just" /* MaybeTag.Just */ ? tsplus_module_5.just(then_1(lefts.value, rights.value)) : lefts : rights._tag === "Just" /* MaybeTag.Just */ ? rights : tsplus_module_5.nothing();
+        })(tsplus_module_1.defer(() => sequenceCauseMaybeEval(self.left)));
       }
-
-    case "Both"
-    /* CauseTag.Both */
-    :
+    case "Both" /* CauseTag.Both */:
       {
-        return tsplus_module_2.zipWith_(tsplus_module_1.defer(() => sequenceCauseMaybeEval(self.left)), tsplus_module_1.defer(() => sequenceCauseMaybeEval(self.right)), (lefts, rights) => {
+        return tsplus_module_2.zipWith(tsplus_module_1.defer(() => sequenceCauseMaybeEval(self.right)), (lefts, rights) => {
           void 0;
           void 0;
-          return lefts._tag === "Just"
-          /* MaybeTag.Just */
-          ? rights._tag === "Just"
-          /* MaybeTag.Just */
-          ? tsplus_module_5.just(both_1(lefts.value, rights.value)) : lefts : rights._tag === "Just"
-          /* MaybeTag.Just */
-          ? rights : tsplus_module_5.nothing();
-        });
+          return lefts._tag === "Just" /* MaybeTag.Just */ ? rights._tag === "Just" /* MaybeTag.Just */ ? tsplus_module_5.just(both_1(lefts.value, rights.value)) : lefts : rights._tag === "Just" /* MaybeTag.Just */ ? rights : tsplus_module_5.nothing();
+        })(tsplus_module_1.defer(() => sequenceCauseMaybeEval(self.left)));
       }
-
-    case "Stackless"
-    /* CauseTag.Stackless */
-    :
+    case "Stackless" /* CauseTag.Stackless */:
       {
-        return tsplus_module_2.map_(tsplus_module_1.defer(() => sequenceCauseMaybeEval(self.cause)), _ => tsplus_module_12.map_(_, cause => stackless_1(cause, self.stackless)));
+        return tsplus_module_2.map(_ => tsplus_module_12.map(cause => stackless_1(cause, self.stackless))(_))(tsplus_module_1.defer(() => sequenceCauseMaybeEval(self.cause)));
       }
   }
 }
@@ -1193,8 +921,6 @@ function sequenceCauseMaybeEval(self) {
  *
  * @tsplus getter fncts.Cause sequenceCauseMaybe
  */
-
-
 export function sequenceCauseMaybe(self) {
   return tsplus_module_4.run(sequenceCauseMaybeEval(self));
 }
@@ -1202,11 +928,12 @@ export function sequenceCauseMaybe(self) {
  * Squashes a `Cause` down to a single `Error`, chosen to be the
  * "most important" `Error`.
  *
- * @tsplus fluent fncts.Cause squashWith
+ * @tsplus pipeable fncts.Cause squashWith
  */
-
-export function squashWith_(self, f) {
-  return tsplus_module_12.getOrElse_(tsplus_module_12.orElse_(tsplus_module_12.orElse_(tsplus_module_12.map_(failureMaybe_1(self), f), () => isInterrupted_1(self) ? tsplus_module_5.just(new tsplus_module_20.InterruptedException("Interrupted by fibers: " + tsplus_module_19.join_(tsplus_module_19.mapDefault(tsplus_module_19.flatMapDefault(interruptors_1(self), id => tsplus_module_21.ids(id)), id => `#${id}`), ", "))) : tsplus_module_5.nothing()), () => tsplus_module_7.head(defects_1(self))), () => new tsplus_module_20.InterruptedException());
+export function squashWith(f) {
+  return self => {
+    return tsplus_module_12.getOrElse(() => new tsplus_module_20.InterruptedException())(tsplus_module_12.orElse(() => tsplus_module_7.head(defects_1(self)))(tsplus_module_12.orElse(() => isInterrupted_1(self) ? tsplus_module_5.just(new tsplus_module_20.InterruptedException("Interrupted by fibers: " + tsplus_module_19.join(", ")(tsplus_module_19.map(id => `#${id}`)(tsplus_module_19.flatMap(id => tsplus_module_21.ids(id))(interruptors_1(self)))))) : tsplus_module_5.nothing())(tsplus_module_12.map(f)(failureMaybe_1(self)))));
+  };
 }
 /**
  * Constructs a `Cause` from two `Cause`s, representing sequential failures.
@@ -1216,7 +943,6 @@ export function squashWith_(self, f) {
  * @tsplus static fncts.CauseOps then
  * @tsplus static fncts.Cause.ThenOps __call
  */
-
 function then_1(left, right) {
   return tsplus_module_3.isEmpty(left) ? right : tsplus_module_3.isEmpty(right) ? left : new Then(left, right);
 }
@@ -1228,19 +954,15 @@ function then_1(left, right) {
  * @tsplus static fncts.CauseOps traced
  * @tsplus static fncts.Cause.TracedOps __call
  */
-
-
 function traced_1(cause, trace) {
-  return mapTrace_1(cause, t => tsplus_module_22.combine_(t, trace));
+  return mapTrace_1(t => tsplus_module_22.combine(trace)(t))(cause);
 }
 /**
  * Returns a `Cause` that has been stripped of all tracing information.
  *
  * @tsplus getter fncts.Cause untraced
  */
-
-
 export function untraced(self) {
-  return mapTrace_1(self, () => tsplus_module_8.none);
+  return mapTrace_1(() => tsplus_module_8.none)(self);
 }
 //# sourceMappingURL=api.mjs.map