@fncts/base 0.0.20 → 0.0.22

package/_cjs/control/Z/api.cjs

@@ -4,24 +4,21 @@ Object.defineProperty(exports, "__esModule", {
   value: true
 });
 exports.absolve = absolve;
-exports.apFirst_ = apFirst_;
-exports.apSecond_ = apSecond_;
-exports.ap_ = ap_;
-exports.bimap_ = bimap_;
-exports.catchAll_ = void 0;
-exports.catchJust_ = catchJust_;
-exports.contramapEnvironment_ = contramapEnvironment_;
-exports.contramapState_ = contramapState_;
-exports.crossWith_ = void 0;
-exports.cross_ = cross_;
-exports.defer = void 0;
+exports.ap = ap;
+exports.bimap = bimap;
+exports.catchAll = void 0;
+exports.catchJust = catchJust;
+exports.contramapEnvironment = contramapEnvironment;
+exports.contramapState = contramapState;
+exports.cross = cross;
+exports.defer = exports.crossWith = void 0;
 exports.either = either;
 exports.environment = environment;
 exports.environmentWith = environmentWith;
 exports.environmentWithZ = void 0;
 exports.erase = erase;
 exports.fail = fail;
-exports.flatMap_ = exports.failNow = exports.failCauseNow = exports.failCause = void 0;
+exports.flatMap = exports.failNow = exports.failCauseNow = exports.failCause = void 0;
 exports.flatten = flatten;
 exports.get = void 0;
 exports.gets = gets;
@@ -29,57 +26,48 @@ exports.getsZ = getsZ;
 exports.halt = halt;
 exports.haltNow = haltNow;
 exports.listen = void 0;
-exports.listens_ = listens_;
-exports.mapError_ = mapError_;
-exports.matchLogCauseZ_ = exports.matchCauseZ_ = exports.map_ = exports.mapState_ = exports.mapLog_ = void 0;
-exports.matchLogZ_ = matchLogZ_;
-exports.modify = exports.match_ = exports.matchZ_ = void 0;
+exports.listens = listens;
+exports.map = void 0;
+exports.mapError = mapError;
+exports.matchLogCauseZ = exports.matchCauseZ = exports.match = exports.mapState = exports.mapLog = void 0;
+exports.matchLogZ = matchLogZ;
+exports.modify = exports.matchZ = void 0;
 exports.modifyEither = modifyEither;
-exports.orElseEither_ = orElseEither_;
-exports.orElse_ = orElse_;
-exports.provideEnvironment_ = void 0;
+exports.orElse = orElse;
+exports.orElseEither = orElseEither;
+exports.provideEnvironment = void 0;
 exports.put = put;
-exports.succeedNow = exports.succeed = exports.repeatUntil_ = exports.repeatN_ = void 0;
-exports.tap_ = tap_;
+exports.succeedNow = exports.succeed = exports.repeatUntil = exports.repeatN = void 0;
+exports.tap = tap;
 exports.tell = tell;
-exports.writeAll_ = exports.update = exports.unit = exports.transform_ = exports.tellAll = void 0;
-exports.write_ = write_;
-exports.zipFirst_ = zipFirst_;
-exports.zipSecond_ = zipSecond_;
-exports.zipWith_ = void 0;
-exports.zip_ = zip_;
-
+exports.update = exports.unit = exports.transform = exports.tellAll = void 0;
+exports.write = write;
+exports.writeAll = void 0;
+exports.zip = zip;
+exports.zipFirst = zipFirst;
+exports.zipLeft = zipLeft;
+exports.zipRight = zipRight;
+exports.zipSecond = zipSecond;
+exports.zipWith = void 0;
 var tsplus_module_1 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Either/destructors"));
-
 var tsplus_module_2 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Maybe/api"));
-
 var tsplus_module_3 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Either/constructors"));
-
 var tsplus_module_4 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/collection/immutable/Conc/api/empty"));
-
 var tsplus_module_5 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Cause/api"));
-
 var tsplus_module_6 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/collection/immutable/Conc/api"));
-
 var tsplus_module_7 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/collection/immutable/Conc/constructors"));
-
 var tsplus_module_8 = /*#__PURE__*/_interopRequireWildcard( /*#__PURE__*/require("@fncts/base/data/Zipped"));
-
 var _function = /*#__PURE__*/require("../../data/function.cjs");
-
 var _definition = /*#__PURE__*/require("./definition.cjs");
-
 function _getRequireWildcardCache(nodeInterop) { if (typeof WeakMap !== "function") return null; var cacheBabelInterop = new WeakMap(); var cacheNodeInterop = new WeakMap(); return (_getRequireWildcardCache = function (nodeInterop) { return nodeInterop ? cacheNodeInterop : cacheBabelInterop; })(nodeInterop); }
-
 function _interopRequireWildcard(obj, nodeInterop) { if (!nodeInterop && obj && obj.__esModule) { return obj; } if (obj === null || typeof obj !== "object" && typeof obj !== "function") { return { default: obj }; } var cache = _getRequireWildcardCache(nodeInterop); if (cache && cache.has(obj)) { return cache.get(obj); } var newObj = {}; var hasPropertyDescriptor = Object.defineProperty && Object.getOwnPropertyDescriptor; for (var key in obj) { if (key !== "default" && Object.prototype.hasOwnProperty.call(obj, key)) { var desc = hasPropertyDescriptor ? Object.getOwnPropertyDescriptor(obj, key) : null; if (desc && (desc.get || desc.set)) { Object.defineProperty(newObj, key, desc); } else { newObj[key] = obj[key]; } } } newObj.default = obj; if (cache) { cache.set(obj, newObj); } return newObj; }
-
 const fileName_1 = "(@fncts/base) src/control/Z/api.ts";
-const catchAll_ = catchAll_1;
-exports.catchAll_ = catchAll_;
-const flatMap_ = flatMap_1;
-exports.flatMap_ = flatMap_;
-const crossWith_ = crossWith_1;
-exports.crossWith_ = crossWith_;
+const catchAll = catchAll_1;
+exports.catchAll = catchAll;
+const flatMap = flatMap_1;
+exports.flatMap = flatMap;
+const crossWith = crossWith_1;
+exports.crossWith = crossWith;
 const defer = defer_1;
 exports.defer = defer;
 const environmentWithZ = environmentWithZ_1;
@@ -94,147 +82,144 @@ const get = get_1;
 exports.get = get;
 const listen = listen_1;
 exports.listen = listen;
-const map_ = map_1;
-exports.map_ = map_;
-const mapLog_ = mapLog_1;
-exports.mapLog_ = mapLog_;
-const mapState_ = mapState_1;
-exports.mapState_ = mapState_;
-const match_ = match_1;
-exports.match_ = match_;
-const matchZ_ = matchZ_1;
-exports.matchZ_ = matchZ_;
-const matchCauseZ_ = matchCauseZ_1;
-exports.matchCauseZ_ = matchCauseZ_;
-const matchLogCauseZ_ = matchLogCauseZ_1;
-exports.matchLogCauseZ_ = matchLogCauseZ_;
+const map = map_1;
+exports.map = map;
+const mapLog = mapLog_1;
+exports.mapLog = mapLog;
+const mapState = mapState_1;
+exports.mapState = mapState;
+const match = match_1;
+exports.match = match;
+const matchZ = matchZ_1;
+exports.matchZ = matchZ;
+const matchCauseZ = matchCauseZ_1;
+exports.matchCauseZ = matchCauseZ;
+const matchLogCauseZ = matchLogCauseZ_1;
+exports.matchLogCauseZ = matchLogCauseZ;
 const modify = modify_1;
 exports.modify = modify;
-const provideEnvironment_ = provideEnvironment_1;
-exports.provideEnvironment_ = provideEnvironment_;
-const repeatN_ = repeatN_1;
-exports.repeatN_ = repeatN_;
-const repeatUntil_ = repeatUntil_1;
-exports.repeatUntil_ = repeatUntil_;
+const provideEnvironment = provideEnvironment_1;
+exports.provideEnvironment = provideEnvironment;
+const repeatN = repeatN_1;
+exports.repeatN = repeatN;
+const repeatUntil = repeatUntil_1;
+exports.repeatUntil = repeatUntil;
 const succeed = succeed_1;
 exports.succeed = succeed;
 const succeedNow = succeedNow_1;
 exports.succeedNow = succeedNow;
 const tellAll = tellAll_1;
 exports.tellAll = tellAll;
-const transform_ = transform_1;
-exports.transform_ = transform_;
+const transform = transform_1;
+exports.transform = transform;
 const update = update_1;
 exports.update = update;
-const writeAll_ = writeAll_1;
-exports.writeAll_ = writeAll_;
-const zipWith_ = zipWith_1;
-exports.zipWith_ = zipWith_;
-
+const writeAll = writeAll_1;
+exports.writeAll = writeAll;
+const zipWith = zipWith_1;
+exports.zipWith = zipWith;
 /**
  * @tsplus getter fncts.control.Z absolve
  */
 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
  */
-
-
-function ap_(self, fb) {
-  return crossWith_1(self, fb, (f, a) => f(a));
+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
  */
-
-
-function apFirst_(fa, fb) {
-  return crossWith_1(fa, fb, (a, _) => a);
+function zipLeft(fb) {
+  return fa => {
+    return crossWith_1(fb, (a, _) => a)(fa);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z apSecond
+ * @tsplus pipeable fncts.control.Z zipRight
  */
-
-
-function apSecond_(fa, fb) {
-  return crossWith_1(fa, fb, (_, b) => b);
+function zipRight(fb) {
+  return fa => {
+    return crossWith_1(fb, (_, b) => b)(fa);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z bimap
+ * @tsplus pipeable fncts.control.Z bimap
  */
-
-
-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"));
+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
  */
-
-
-function catchJust_(fa, f) {
-  return catchAll_1(fa, e => tsplus_module_2.getOrElse_(f(e), () => fa));
+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 _definition.Chain(ma, f);
+function flatMap_1(f) {
+  return ma => {
+    return new _definition.Chain(ma, f);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z contramapEnvironment
+ * @tsplus pipeable fncts.control.Z contramapEnvironment
  */
-
-
-function contramapEnvironment_(ma, f) {
-  return environmentWithZ_1(r => provideEnvironment_1(ma, f(r)));
+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
  */
-
-
-function contramapState_(fa, f) {
-  return flatMap_1(update_1(f), () => fa);
+function contramapState(f) {
+  return fa => {
+    return flatMap_1(() => fa)(update_1(f));
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z cross
+ * @tsplus pipeable fncts.control.Z cross
  */
-
-
-function cross_(fa, fb) {
-  return crossWith_1(fa, fb, _function.tuple);
+function cross(fb) {
+  return fa => {
+    return crossWith_1(fb, _function.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 _definition.Defer(ma);
 }
@@ -245,32 +230,24 @@ function defer_1(ma, __tsplusTrace) {
  *
  * @tsplus getter fncts.control.Z either
  */
-
-
 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
  */
-
-
 function environment() {
-  return new _definition.Access(r => succeedNow_1(r, fileName_1 + ":156:40"));
+  return new _definition.Access(r => succeedNow_1(r, fileName_1 + ":143:40"));
 }
 /**
  * @tsplus static fncts.control.ZOps environmentWith
  */
-
-
 function environmentWith(f) {
-  return new _definition.Access(r => succeed_1(() => f(r), fileName_1 + ":163:35"));
+  return new _definition.Access(r => succeed_1(() => f(r), fileName_1 + ":150:35"));
 }
 /**
  * @tsplus static fncts.control.ZOps environmentWithZ
  */
-
-
 function environmentWithZ_1(f) {
   return new _definition.Access(f);
 }
@@ -279,183 +256,159 @@ function environmentWithZ_1(f) {
  *
  * @tsplus getter fncts.control.Z erase
  */
-
-
 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
  */
-
-
 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 _definition.Fail(cause);
 }
 /**
  * @tsplus getter fncts.control.Z flatten
  */
-
-
 function flatten(mma) {
-  return flatMap_1(mma, _function.identity);
+  return flatMap_1(_function.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
  */
-
-
 function gets(f) {
   return modify_1(s => [f(s), s]);
 }
 /**
  * @tsplus static fncts.control.ZOps getsZ
  */
-
-
 function getsZ(f) {
-  return flatMap_1(get_1(), f);
+  return flatMap_1(f)(get_1());
 }
 /**
  * @tsplus static fncts.control.ZOps halt
  */
-
-
 function halt(defect, __tsplusTrace) {
   return failCause_1(() => tsplus_module_5.halt(defect()), __tsplusTrace);
 }
 /**
  * @tsplus static fncts.control.ZOps haltNow
  */
-
-
 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
  */
-
-
-function listens_(wa, f) {
-  return map_1(listen_1(wa), ([a, ws]) => [a, f(ws)]);
+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
  */
-
-
-function mapError_(pab, f) {
-  return matchZ_1(pab, e => failNow_1(f(e), fileName_1 + ":289:37"), succeedNow_1);
+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 _definition.MapLog(wa, f);
+function mapLog_1(f) {
+  return wa => {
+    return new _definition.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
  */
-
-
-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);
+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
@@ -465,20 +418,18 @@ 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 _definition.Match(fa, onFailure, onSuccess);
+function matchLogCauseZ_1(onFailure, onSuccess) {
+  return fa => {
+    return new _definition.Match(fa, onFailure, onSuccess);
+  };
 }
 /**
  * Constructs a computation from the specified modify function
  *
  * @tsplus static fncts.control.ZOps modify
  */
-
-
 function modify_1(f) {
   return new _definition.Modify(f);
 }
@@ -487,45 +438,41 @@ function modify_1(f) {
  *
  * @tsplus static fncts.control.ZOps modifyEither
  */
-
-
 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
  */
-
-
-function orElse_(fa, fb) {
-  return matchZ_1(fa, () => fb(), succeedNow_1);
+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
  */
-
-
-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"));
+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 _definition.Provide(fa, r);
+function provideEnvironment_1(r) {
+  return fa => {
+    return new _definition.Provide(fa, r);
+  };
 }
 /**
  * Constructs a computation that sets the state to the specified value.
  *
  * @tsplus static fncts.control.ZOps put
  */
-
-
 function put(s) {
   return modify_1(() => [undefined, s]);
 }
@@ -533,137 +480,125 @@ 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 _definition.Succeed(effect);
 }
 /**
  * @tsplus static fncts.control.ZOps succeedNow
  */
-
-
 function succeedNow_1(a, __tsplusTrace) {
   return new _definition.SucceedNow(a);
 }
 /**
- * @tsplus fluent fncts.control.Z tap
+ * @tsplus pipeable fncts.control.Z tap
  */
-
-
-function tap_(ma, f) {
-  return flatMap_1(ma, a => map_1(f(a), () => a));
+function tap(f) {
+  return ma => {
+    return flatMap_1(a => map_1(() => a)(f(a)))(ma);
+  };
 }
 /**
  * @tsplus static fncts.control.ZOps tell
  */
-
-
 function tell(w) {
   return tellAll_1(tsplus_module_7.single(w));
 }
 /**
  * @tsplus static fncts.control.ZOps tellAll
  */
-
-
 function tellAll_1(ws) {
   return new _definition.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
  */
-
-
-const unit = /*#__PURE__*/succeedNow_1(undefined, fileName_1 + ":540:79");
+const unit = /*#__PURE__*/succeedNow_1(undefined, fileName_1 + ":527:79");
 /**
  * Constructs a computation from the specified update function.
  *
  * @tsplus static fncts.control.ZOps update
  */
-
 exports.unit = unit;
-
 function update_1(f) {
   return modify_1(s => [undefined, f(s)]);
 }
 /**
- * @tsplus fluent fncts.control.Z write
+ * @tsplus pipeable fncts.control.Z write
  */
-
-
-function write_(ma, w) {
-  return writeAll_1(ma, tsplus_module_7.single(w));
+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
  */
-
-
-function zip_(fa, fb) {
-  return zipWith_1(fa, fb, (a, b) => tsplus_module_8.make(a, b));
+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
  */
-
-
-function zipFirst_(fa, fb) {
-  return zipWith_1(fa, fb, (a, _) => a);
+function zipFirst(fb) {
+  return fa => {
+    return zipWith_1(fb, (a, _) => a)(fa);
+  };
 }
 /**
- * @tsplus fluent fncts.control.Z zipSecond
+ * @tsplus pipeable fncts.control.Z zipSecond
  */
-
-
-function zipSecond_(fa, fb) {
-  return zipWith_1(fa, fb, (_, b) => b);
+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.cjs.map