77 lines
2.8 KiB
JavaScript
77 lines
2.8 KiB
JavaScript
|
"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;
|