@fncts/base 0.0.20 → 0.0.22

package/_mjs/control/Z/api.mjs

@@ -7,9 +7,9 @@ import * as tsplus_module_5 from "@fncts/base/data/Cause/api";
 import * as tsplus_module_6 from "@fncts/base/collection/immutable/Conc/api";
 import * as tsplus_module_7 from "@fncts/base/collection/immutable/Conc/constructors";
 import * as tsplus_module_8 from "@fncts/base/data/Zipped";
-export const catchAll_ = catchAll_1;
-export const flatMap_ = flatMap_1;
-export const crossWith_ = crossWith_1;
+export const catchAll = catchAll_1;
+export const flatMap = flatMap_1;
+export const crossWith = crossWith_1;
 export const defer = defer_1;
 export const environmentWithZ = environmentWithZ_1;
 export const failNow = failNow_1;
@@ -17,122 +17,128 @@ export const failCause = failCause_1;
 export const failCauseNow = failCauseNow_1;
 export const get = get_1;
 export const listen = listen_1;
-export const map_ = map_1;
-export const mapLog_ = mapLog_1;
-export const mapState_ = mapState_1;
-export const match_ = match_1;
-export const matchZ_ = matchZ_1;
-export const matchCauseZ_ = matchCauseZ_1;
-export const matchLogCauseZ_ = matchLogCauseZ_1;
+export const map = map_1;
+export const mapLog = mapLog_1;
+export const mapState = mapState_1;
+export const match = match_1;
+export const matchZ = matchZ_1;
+export const matchCauseZ = matchCauseZ_1;
+export const matchLogCauseZ = matchLogCauseZ_1;
 export const modify = modify_1;
-export const provideEnvironment_ = provideEnvironment_1;
-export const repeatN_ = repeatN_1;
-export const repeatUntil_ = repeatUntil_1;
+export const provideEnvironment = provideEnvironment_1;
+export const repeatN = repeatN_1;
+export const repeatUntil = repeatUntil_1;
 export const succeed = succeed_1;
 export const succeedNow = succeedNow_1;
 export const tellAll = tellAll_1;
-export const transform_ = transform_1;
+export const transform = transform_1;
 export const update = update_1;
-export const writeAll_ = writeAll_1;
-export const zipWith_ = zipWith_1;
+export const writeAll = writeAll_1;
+export const zipWith = zipWith_1;
 import { identity, tuple } from "../../data/function.mjs";
 import { Access, Chain, Defer, Fail, MapLog, Match, Modify, Provide, Succeed, SucceedNow, Tell } from "./definition.mjs";
 /**
  * @tsplus getter fncts.control.Z absolve
  */
-
 export function absolve(fa) {
-  return flatMap_1(fa, ea => tsplus_module_1.match_(ea, failNow_1, succeedNow_1));
+  return flatMap_1(ea => tsplus_module_1.match(failNow_1, succeedNow_1)(ea))(fa);
 }
 /**
- * @tsplus fluent fncts.control.Z ap
+ * @tsplus pipeable fncts.control.Z ap
  */
-
-export function ap_(self, fb) {
-  return crossWith_1(self, fb, (f, a) => f(a));
+export function ap(fb) {
+  return self => {
+    return crossWith_1(fb, (f, a) => f(a))(self);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z apFirst
+ * @tsplus pipeable fncts.control.Z zipLeft
  */
-
-export function apFirst_(fa, fb) {
-  return crossWith_1(fa, fb, (a, _) => a);
+export function zipLeft(fb) {
+  return fa => {
+    return crossWith_1(fb, (a, _) => a)(fa);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z apSecond
+ * @tsplus pipeable fncts.control.Z zipRight
  */
-
-export function apSecond_(fa, fb) {
-  return crossWith_1(fa, fb, (_, b) => b);
+export function zipRight(fb) {
+  return fa => {
+    return crossWith_1(fb, (_, b) => b)(fa);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z bimap
+ * @tsplus pipeable fncts.control.Z bimap
  */
-
-export function bimap_(pab, f, g) {
-  return matchZ_1(pab, e => failNow_1(f(e), fileName_1 + ":50:21"), a => succeedNow_1(g(a), fileName_1 + ":51:24"));
+export function bimap(f, g) {
+  return pab => {
+    return matchZ_1(e => failNow_1(f(e), fileName_1 + ":44:23"), a => succeedNow_1(g(a), fileName_1 + ":45:26"))(pab);
+  };
 }
 /**
  * Recovers from all errors.
  *
- * @tsplus fluent fncts.control.Z catchAll
+ * @tsplus pipeable fncts.control.Z catchAll
  */
-
-function catchAll_1(fa, onFailure) {
-  return matchZ_1(fa, onFailure, succeedNow_1);
+function catchAll_1(onFailure) {
+  return fa => {
+    return matchZ_1(onFailure, succeedNow_1)(fa);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z catchJust
+ * @tsplus pipeable fncts.control.Z catchJust
  */
-
-
-export function catchJust_(fa, f) {
-  return catchAll_1(fa, e => tsplus_module_2.getOrElse_(f(e), () => fa));
+export function catchJust(f) {
+  return fa => {
+    return catchAll_1(e => tsplus_module_2.getOrElse(() => fa)(f(e)))(fa);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z flatMap
+ * @tsplus pipeable fncts.control.Z flatMap
  */
-
-function flatMap_1(ma, f) {
-  return new Chain(ma, f);
+function flatMap_1(f) {
+  return ma => {
+    return new Chain(ma, f);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z contramapEnvironment
+ * @tsplus pipeable fncts.control.Z contramapEnvironment
  */
-
-
-export function contramapEnvironment_(ma, f) {
-  return environmentWithZ_1(r => provideEnvironment_1(ma, f(r)));
+export function contramapEnvironment(f) {
+  return ma => {
+    return environmentWithZ_1(r => provideEnvironment_1(f(r))(ma));
+  };
 }
 /**
  * Transforms the initial state of this computation` with the specified
  * function.
  *
- * @tsplus fluent fncts.control.Z contramapState
+ * @tsplus pipeable fncts.control.Z contramapState
  */
-
-export function contramapState_(fa, f) {
-  return flatMap_1(update_1(f), () => fa);
+export function contramapState(f) {
+  return fa => {
+    return flatMap_1(() => fa)(update_1(f));
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z cross
+ * @tsplus pipeable fncts.control.Z cross
  */
-
-export function cross_(fa, fb) {
-  return crossWith_1(fa, fb, tuple);
+export function cross(fb) {
+  return fa => {
+    return crossWith_1(fb, tuple)(fa);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z crossWith
+ * @tsplus pipeable fncts.control.Z crossWith
  */
-
-function crossWith_1(fa, fb, f) {
-  return flatMap_1(fa, a => map_1(fb, b => f(a, b)));
+function crossWith_1(fb, f) {
+  return fa => {
+    return flatMap_1(a => map_1(b => f(a, b))(fb))(fa);
+  };
 }
 /**
  * @tsplus static fncts.control.ZOps defer
  */
-
-
 function defer_1(ma, __tsplusTrace) {
   return new Defer(ma);
 }
@@ -143,29 +149,24 @@ function defer_1(ma, __tsplusTrace) {
  *
  * @tsplus getter fncts.control.Z either
  */
-
-
 export function either(fa) {
-  return match_1(fa, tsplus_module_3.left, tsplus_module_3.right);
+  return match_1(tsplus_module_3.left, tsplus_module_3.right)(fa);
 }
 /**
  * @tsplus static fncts.control.ZOps environment
  */
-
 export function environment() {
-  return new Access(r => succeedNow_1(r, fileName_1 + ":156:40"));
+  return new Access(r => succeedNow_1(r, fileName_1 + ":143:40"));
 }
 /**
  * @tsplus static fncts.control.ZOps environmentWith
  */
-
 export function environmentWith(f) {
-  return new Access(r => succeed_1(() => f(r), fileName_1 + ":163:35"));
+  return new Access(r => succeed_1(() => f(r), fileName_1 + ":150:35"));
 }
 /**
  * @tsplus static fncts.control.ZOps environmentWithZ
  */
-
 function environmentWithZ_1(f) {
   return new Access(f);
 }
@@ -174,174 +175,159 @@ function environmentWithZ_1(f) {
  *
  * @tsplus getter fncts.control.Z erase
  */
-
-
 export function erase(wa) {
-  return mapLog_1(wa, () => tsplus_module_4.empty());
+  return mapLog_1(() => tsplus_module_4.empty())(wa);
 }
 /**
  * @tsplus static fncts.control.ZOps fail
  */
-
 export function fail(e, __tsplusTrace) {
   return failCause_1(() => tsplus_module_5.fail(e()), __tsplusTrace);
 }
 /**
  * @tsplus static fncts.control.ZOps failNow
  */
-
 function failNow_1(e, __tsplusTrace) {
   return failCauseNow_1(tsplus_module_5.fail(e), __tsplusTrace);
 }
 /**
  * @tsplus static fncts.control.ZOps failCause
  */
-
-
 function failCause_1(cause, __tsplusTrace) {
   return defer_1(() => failCauseNow_1(cause(), __tsplusTrace), __tsplusTrace);
 }
 /**
  * @tsplus static fncts.control.ZOps failCauseNow
  */
-
-
 function failCauseNow_1(cause, __tsplusTrace) {
   return new Fail(cause);
 }
 /**
  * @tsplus getter fncts.control.Z flatten
  */
-
-
 export function flatten(mma) {
-  return flatMap_1(mma, identity);
+  return flatMap_1(identity)(mma);
 }
 /**
  * Constructs a computation that returns the initial state unchanged.
  *
  * @tsplus static fncts.control.ZOps get
  */
-
 function get_1() {
   return modify_1(s => [s, s]);
 }
 /**
  * @tsplus static fncts.control.ZOps gets
  */
-
-
 export function gets(f) {
   return modify_1(s => [f(s), s]);
 }
 /**
  * @tsplus static fncts.control.ZOps getsZ
  */
-
 export function getsZ(f) {
-  return flatMap_1(get_1(), f);
+  return flatMap_1(f)(get_1());
 }
 /**
  * @tsplus static fncts.control.ZOps halt
  */
-
 export function halt(defect, __tsplusTrace) {
   return failCause_1(() => tsplus_module_5.halt(defect()), __tsplusTrace);
 }
 /**
  * @tsplus static fncts.control.ZOps haltNow
  */
-
 export function haltNow(defect, __tsplusTrace) {
   return failCauseNow_1(tsplus_module_5.halt(defect), __tsplusTrace);
 }
 /**
  * @tsplus getter fncts.control.Z listen
  */
-
 function listen_1(wa) {
-  return matchLogCauseZ_1(wa, (_, e) => failCauseNow_1(e, fileName_1 + ":263:29"), (ws, a) => succeedNow_1([a, ws], fileName_1 + ":264:28"));
+  return matchLogCauseZ_1((_, e) => failCauseNow_1(e, fileName_1 + ":250:29"), (ws, a) => succeedNow_1([a, ws], fileName_1 + ":251:28"))(wa);
 }
 /**
- * @tsplus fluent fncts.control.Z listens
+ * @tsplus pipeable fncts.control.Z listens
  */
-
-
-export function listens_(wa, f) {
-  return map_1(listen_1(wa), ([a, ws]) => [a, f(ws)]);
+export function listens(f) {
+  return wa => {
+    return map_1(([a, ws]) => [a, f(ws)])(listen_1(wa));
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z map
+ * @tsplus pipeable fncts.control.Z map
  */
-
-function map_1(fa, f) {
-  return flatMap_1(fa, a => succeedNow_1(f(a), fileName_1 + ":282:40"));
+function map_1(f) {
+  return fa => {
+    return flatMap_1(a => succeedNow_1(f(a), fileName_1 + ":269:42"))(fa);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z mapError
+ * @tsplus pipeable fncts.control.Z mapError
  */
-
-
-export function mapError_(pab, f) {
-  return matchZ_1(pab, e => failNow_1(f(e), fileName_1 + ":289:37"), succeedNow_1);
+export function mapError(f) {
+  return pab => {
+    return matchZ_1(e => failNow_1(f(e), fileName_1 + ":278:39"), succeedNow_1)(pab);
+  };
 }
 /**
  * Modifies the current log with the specified function
  *
- * @tsplus fluent fncts.control.Z mapLog
+ * @tsplus pipeable fncts.control.Z mapLog
  */
-
-function mapLog_1(wa, f) {
-  return new MapLog(wa, f);
+function mapLog_1(f) {
+  return wa => {
+    return new MapLog(wa, f);
+  };
 }
 /**
  * Modifies the current state with the specified function
  *
- * @tsplus fluent fncts.control.Z mapState
+ * @tsplus pipeable fncts.control.Z mapState
  */
-
-
-function mapState_1(ma, f) {
-  return transform_1(ma, (s, a) => [a, f(s)]);
+function mapState_1(f) {
+  return ma => {
+    return transform_1((s, a) => [a, f(s)])(ma);
+  };
 }
 /**
  * Folds over the failed or successful results of this computation to yield
  * a computation that does not fail, but succeeds with the value of the left
  * or right function passed to `match`.
  *
- * @tsplus fluent fncts.control.Z match
+ * @tsplus pipeable fncts.control.Z match
  */
-
-
-function match_1(fa, onFailure, onSuccess) {
-  return matchZ_1(fa, e => succeedNow_1(onFailure(e), fileName_1 + ":326:24"), a => succeedNow_1(onSuccess(a), fileName_1 + ":327:24"));
+function match_1(onFailure, onSuccess) {
+  return fa => {
+    return matchZ_1(e => succeedNow_1(onFailure(e), fileName_1 + ":314:26"), a => succeedNow_1(onSuccess(a), fileName_1 + ":315:26"))(fa);
+  };
 }
 /**
  * Recovers from errors by accepting one computation to execute for the case
  * of an error, and one computation to execute for the case of success.
  *
- * @tsplus fluent fncts.control.Z matchZ
+ * @tsplus pipeable fncts.control.Z matchZ
  */
-
-
-function matchZ_1(fa, onFailure, onSuccess) {
-  return matchCauseZ_1(fa, cause => tsplus_module_1.match_(tsplus_module_5.failureOrCause(cause), onFailure, failCauseNow_1), onSuccess);
+function matchZ_1(onFailure, onSuccess) {
+  return fa => {
+    return matchCauseZ_1(cause => tsplus_module_1.match(onFailure, failCauseNow_1)(tsplus_module_5.failureOrCause(cause)), onSuccess)(fa);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z matchCauseZ
+ * @tsplus pipeable fncts.control.Z matchCauseZ
  */
-
-
-function matchCauseZ_1(fa, onFailure, onSuccess) {
-  return matchLogCauseZ_1(fa, (ws, e) => mapLog_1(onFailure(e), w1s => tsplus_module_6.concat_(ws, w1s)), (ws, a) => mapLog_1(onSuccess(a), w2s => tsplus_module_6.concat_(ws, w2s)));
+function matchCauseZ_1(onFailure, onSuccess) {
+  return fa => {
+    return matchLogCauseZ_1((ws, e) => mapLog_1(w1s => tsplus_module_6.concat(w1s)(ws))(onFailure(e)), (ws, a) => mapLog_1(w2s => tsplus_module_6.concat(w2s)(ws))(onSuccess(a)))(fa);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z matchLogZ
+ * @tsplus pipeable fncts.control.Z matchLogZ
  */
-
-
-export function matchLogZ_(fa, onFailure, onSuccess) {
-  return matchLogCauseZ_1(fa, (ws, cause) => tsplus_module_1.match_(tsplus_module_5.failureOrCause(cause), e => onFailure(ws, e), failCauseNow_1), onSuccess);
+export function matchLogZ(onFailure, onSuccess) {
+  return fa => {
+    return matchLogCauseZ_1((ws, cause) => tsplus_module_1.match(e => onFailure(ws, e), failCauseNow_1)(tsplus_module_5.failureOrCause(cause)), onSuccess)(fa);
+  };
 }
 /**
  * Recovers from errors by accepting one computation to execute for the case
@@ -351,19 +337,18 @@ export function matchLogZ_(fa, onFailure, onSuccess) {
  *
  * @note the log is cleared after being provided
  *
- * @tsplus fluent fncts.control.Z matchLogCauseZ
+ * @tsplus pipeable fncts.control.Z matchLogCauseZ
  */
-
-function matchLogCauseZ_1(fa, onFailure, onSuccess) {
-  return new Match(fa, onFailure, onSuccess);
+function matchLogCauseZ_1(onFailure, onSuccess) {
+  return fa => {
+    return new Match(fa, onFailure, onSuccess);
+  };
 }
 /**
  * Constructs a computation from the specified modify function
  *
  * @tsplus static fncts.control.ZOps modify
  */
-
-
 function modify_1(f) {
   return new Modify(f);
 }
@@ -372,42 +357,41 @@ function modify_1(f) {
  *
  * @tsplus static fncts.control.ZOps modifyEither
  */
-
-
 export function modifyEither(f) {
-  return flatMap_1(map_1(get_1(), f), r => tsplus_module_1.match_(r, failNow_1, ([a, s2]) => mapState_1(succeedNow_1(a, fileName_1 + ":410:65"), () => s2)));
+  return flatMap_1(r => tsplus_module_1.match(failNow_1, ([a, s2]) => mapState_1(() => s2)(succeedNow_1(a, fileName_1 + ":401:65")))(r))(map_1(f)(get_1()));
 }
 /**
- * @tsplus fluent fncts.control.Z orElse
+ * @tsplus pipeable fncts.control.Z orElse
  */
-
-export function orElse_(fa, fb) {
-  return matchZ_1(fa, () => fb(), succeedNow_1);
+export function orElse(fb) {
+  return fa => {
+    return matchZ_1(() => fb(), succeedNow_1)(fa);
+  };
 }
 /**
  * Executes this computation and returns its value, if it succeeds, but
  * otherwise executes the specified computation.
  *
- * @tsplus fluent fncts.control.Z orElseEither
+ * @tsplus pipeable fncts.control.Z orElseEither
  */
-
-export function orElseEither_(fa, that) {
-  return matchZ_1(fa, () => map_1(that(), tsplus_module_3.right), a => succeedNow_1(tsplus_module_3.left(a), fileName_1 + ":435:24"));
+export function orElseEither(that) {
+  return fa => {
+    return matchZ_1(() => map_1(tsplus_module_3.right)(that()), a => succeedNow_1(tsplus_module_3.left(a), fileName_1 + ":423:26"))(fa);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z provideEnvironment
+ * @tsplus pipeable fncts.control.Z provideEnvironment
  */
-
-function provideEnvironment_1(fa, r) {
-  return new Provide(fa, r);
+function provideEnvironment_1(r) {
+  return fa => {
+    return new Provide(fa, r);
+  };
 }
 /**
  * Constructs a computation that sets the state to the specified value.
  *
  * @tsplus static fncts.control.ZOps put
  */
-
-
 export function put(s) {
   return modify_1(() => [undefined, s]);
 }
@@ -415,128 +399,124 @@ export function put(s) {
  * Repeats this computation the specified number of times (or until the first failure)
  * passing the updated state to each successive repetition.
  *
- * @tsplus fluent fncts.control.Z repeatN
+ * @tsplus pipeable fncts.control.Z repeatN
  */
-
-function repeatN_1(ma, n) {
-  return flatMap_1(ma, a => n <= 0 ? succeedNow_1(a, fileName_1 + ":465:50") : repeatN_1(ma, n - 1));
+function repeatN_1(n) {
+  return ma => {
+    return flatMap_1(a => n <= 0 ? succeedNow_1(a, fileName_1 + ":454:52") : repeatN_1(n - 1)(ma))(ma);
+  };
 }
 /**
  * Repeats this computation until its value satisfies the specified predicate
  * (or until the first failure) passing the updated state to each successive repetition.
  *
- * @tsplus fluent fncts.control.Z repeatUntil
+ * @tsplus pipeable fncts.control.Z repeatUntil
  */
-
-
-function repeatUntil_1(ma, p) {
-  return flatMap_1(ma, a => p(a) ? succeedNow_1(a, fileName_1 + ":478:48") : repeatUntil_1(ma, p));
+function repeatUntil_1(p) {
+  return ma => {
+    return flatMap_1(a => p(a) ? succeedNow_1(a, fileName_1 + ":466:50") : repeatUntil_1(p)(ma))(ma);
+  };
 }
 /**
  * @tsplus static fncts.control.ZOps succeed
  */
-
-
 function succeed_1(effect, __tsplusTrace) {
   return new Succeed(effect);
 }
 /**
  * @tsplus static fncts.control.ZOps succeedNow
  */
-
-
 function succeedNow_1(a, __tsplusTrace) {
   return new SucceedNow(a);
 }
 /**
- * @tsplus fluent fncts.control.Z tap
+ * @tsplus pipeable fncts.control.Z tap
  */
-
-
-export function tap_(ma, f) {
-  return flatMap_1(ma, a => map_1(f(a), () => a));
+export function tap(f) {
+  return ma => {
+    return flatMap_1(a => map_1(() => a)(f(a)))(ma);
+  };
 }
 /**
  * @tsplus static fncts.control.ZOps tell
  */
-
 export function tell(w) {
   return tellAll_1(tsplus_module_7.single(w));
 }
 /**
  * @tsplus static fncts.control.ZOps tellAll
  */
-
 function tellAll_1(ws) {
   return new Tell(ws);
 }
 /**
  * Like `map`, but also allows the state to be modified.
  *
- * @tsplus fluent fncts.control.Z transform
+ * @tsplus pipeable fncts.control.Z transform
  */
-
-
-function transform_1(ma, f) {
-  return flatMap_1(ma, a => modify_1(s => f(s, a)));
+function transform_1(f) {
+  return ma => {
+    return flatMap_1(a => modify_1(s => f(s, a)))(ma);
+  };
 }
 /**
  * @tsplus static fncts.control.ZOps unit
  */
-
-
-export const unit = /*#__PURE__*/succeedNow_1(undefined, fileName_1 + ":540:79");
+export const unit = /*#__PURE__*/succeedNow_1(undefined, fileName_1 + ":527:79");
 /**
  * Constructs a computation from the specified update function.
  *
  * @tsplus static fncts.control.ZOps update
  */
-
 function update_1(f) {
   return modify_1(s => [undefined, f(s)]);
 }
 /**
- * @tsplus fluent fncts.control.Z write
+ * @tsplus pipeable fncts.control.Z write
  */
-
-
-export function write_(ma, w) {
-  return writeAll_1(ma, tsplus_module_7.single(w));
+export function write(w) {
+  return ma => {
+    return writeAll_1(tsplus_module_7.single(w))(ma);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z writeAll
+ * @tsplus pipeable fncts.control.Z writeAll
  */
-
-function writeAll_1(ma, log) {
-  return mapLog_1(ma, ws => tsplus_module_6.concat_(ws, log));
+function writeAll_1(log) {
+  return ma => {
+    return mapLog_1(ws => tsplus_module_6.concat(log)(ws))(ma);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z zip
+ * @tsplus pipeable fncts.control.Z zip
  */
-
-
-export function zip_(fa, fb) {
-  return zipWith_1(fa, fb, (a, b) => tsplus_module_8.make(a, b));
+export function zip(fb) {
+  return fa => {
+    return zipWith_1(fb, (a, b) => tsplus_module_8.make(a, b))(fa);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z zipFirst
+ * @tsplus pipeable fncts.control.Z zipFirst
  */
-
-export function zipFirst_(fa, fb) {
-  return zipWith_1(fa, fb, (a, _) => a);
+export function zipFirst(fb) {
+  return fa => {
+    return zipWith_1(fb, (a, _) => a)(fa);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z zipSecond
+ * @tsplus pipeable fncts.control.Z zipSecond
  */
-
-export function zipSecond_(fa, fb) {
-  return zipWith_1(fa, fb, (_, b) => b);
+export function zipSecond(fb) {
+  return fa => {
+    return zipWith_1(fb, (_, b) => b)(fa);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z zipWith
+ * @tsplus pipeable fncts.control.Z zipWith
  */
-
-function zipWith_1(fa, fb, f) {
-  return flatMap_1(fa, a => map_1(fb, b => f(a, b)));
+function zipWith_1(fb, f) {
+  return fa => {
+    return flatMap_1(a => map_1(b => f(a, b))(fb))(fa);
+  };
 }
 //# sourceMappingURL=api.mjs.map