|
- "use strict";
- Object.defineProperty(exports, "__esModule", { value: true });
- exports.getStateM = exports.execute = exports.evaluate = exports.fromF = exports.fromState = exports.chain = exports.ap = exports.map = exports.of = void 0;
- var function_1 = require("./function");
- var ReadonlyTuple_1 = require("./ReadonlyTuple");
- function of(F) {
- return function (a) { return function (s) { return F.of([a, s]); }; };
- }
- exports.of = of;
- function map(F) {
- return function (f) { return function (fa) { return function (s) { return F.map(fa(s), function (_a) {
- var a = _a[0], s1 = _a[1];
- return [f(a), s1];
- }); }; }; };
- }
- exports.map = map;
- function ap(M) {
- return function (fa) { return function (fab) { return function (s) { return M.chain(fab(s), function (_a) {
- var f = _a[0], s = _a[1];
- return M.map(fa(s), function (_a) {
- var a = _a[0], s = _a[1];
- return [f(a), s];
- });
- }); }; }; };
- }
- exports.ap = ap;
- function chain(M) {
- return function (f) { return function (ma) { return function (s) { return M.chain(ma(s), function (_a) {
- var a = _a[0], s1 = _a[1];
- return f(a)(s1);
- }); }; }; };
- }
- exports.chain = chain;
- function fromState(F) {
- return function (sa) { return function (s) { return F.of(sa(s)); }; };
- }
- exports.fromState = fromState;
- function fromF(F) {
- return function (ma) { return function (s) { return F.map(ma, function (a) { return [a, s]; }); }; };
- }
- exports.fromF = fromF;
- function evaluate(F) {
- return function (s) { return function (ma) { return F.map(ma(s), function (_a) {
- var a = _a[0];
- return a;
- }); }; };
- }
- exports.evaluate = evaluate;
- function execute(F) {
- return function (s) { return function (ma) { return F.map(ma(s), ReadonlyTuple_1.snd); }; };
- }
- exports.execute = execute;
- /** @deprecated */
- /* istanbul ignore next */
- function getStateM(M) {
- var _ap = ap(M);
- var _map = map(M);
- var _chain = chain(M);
- var _evaluate = evaluate(M);
- var _execute = execute(M);
- return {
- map: function (fa, f) { return (0, function_1.pipe)(fa, _map(f)); },
- ap: function (fab, fa) { return (0, function_1.pipe)(fab, _ap(fa)); },
- of: of(M),
- chain: function (ma, f) { return (0, function_1.pipe)(ma, _chain(f)); },
- get: function () { return function (s) { return M.of([s, s]); }; },
- put: function (s) { return function () { return M.of([undefined, s]); }; },
- modify: function (f) { return function (s) { return M.of([undefined, f(s)]); }; },
- gets: function (f) { return function (s) { return M.of([f(s), s]); }; },
- fromState: fromState(M),
- fromM: fromF(M),
- evalState: function (fa, s) { return (0, function_1.pipe)(fa, _evaluate(s)); },
- execState: function (fa, s) { return (0, function_1.pipe)(fa, _execute(s)); }
- };
- }
- exports.getStateM = getStateM;
|