var __assign = (this && this.__assign) || function () {
    __assign = Object.assign || function(t) {
        for (var s, i = 1, n = arguments.length; i < n; i++) {
            s = arguments[i];
            for (var p in s) if (Object.prototype.hasOwnProperty.call(s, p))
                t[p] = s[p];
        }
        return t;
    };
    return __assign.apply(this, arguments);
};
import { identity } from './function';
import { left as eitherLeft, right as eitherRight } from './Either';
import { pipeable } from './pipeable';
export var URI = 'Reader';
/**
 * @since 1.0.0
 */
var Reader = /** @class */ (function () {
    function Reader(run) {
        this.run = run;
    }
    /** @obsolete */
    Reader.prototype.map = function (f) {
        var _this = this;
        return new Reader(function (e) { return f(_this.run(e)); });
    };
    /** @obsolete */
    Reader.prototype.ap = function (fab) {
        var _this = this;
        return new Reader(function (e) { return fab.run(e)(_this.run(e)); });
    };
    /**
     * Flipped version of `ap`
     * @obsolete
     */
    Reader.prototype.ap_ = function (fb) {
        return fb.ap(this);
    };
    /** @obsolete */
    Reader.prototype.chain = function (f) {
        var _this = this;
        return new Reader(function (e) { return f(_this.run(e)).run(e); });
    };
    /**
     * @since 1.6.1
     * @obsolete
     */
    Reader.prototype.local = function (f) {
        var _this = this;
        return new Reader(function (e) { return _this.run(f(e)); });
    };
    return Reader;
}());
export { Reader };
/**
 * reads the current context
 *
 * @since 1.0.0
 */
export var ask = function () {
    return new Reader(identity);
};
/**
 * Projects a value from the global context in a Reader
 *
 * @since 1.0.0
 */
export var asks = function (f) {
    return new Reader(f);
};
/**
 * changes the value of the local context during the execution of the action `fa`
 *
 * @since 1.0.0
 */
export var local = function (f) { return function (fa) {
    return fa.local(f);
}; };
/**
 * @since 1.14.0
 */
export var getSemigroup = function (S) {
    return {
        concat: function (x, y) { return new Reader(function (e) { return S.concat(x.run(e), y.run(e)); }); }
    };
};
/**
 * @since 1.14.0
 */
export var getMonoid = function (M) {
    return __assign({}, getSemigroup(M), { empty: reader.of(M.empty) });
};
/**
 * @since 1.0.0
 */
export var reader = {
    URI: URI,
    map: function (fa, f) { return fa.map(f); },
    of: function (a) { return new Reader(function () { return a; }); },
    ap: function (fab, fa) { return fa.ap(fab); },
    chain: function (fa, f) { return fa.chain(f); },
    promap: function (fbc, f, g) { return new Reader(function (a) { return g(fbc.run(f(a))); }); },
    compose: function (ab, la) { return new Reader(function (l) { return ab.run(la.run(l)); }); },
    id: function () { return new Reader(identity); },
    first: function (pab) { return new Reader(function (_a) {
        var a = _a[0], c = _a[1];
        return [pab.run(a), c];
    }); },
    second: function (pbc) { return new Reader(function (_a) {
        var a = _a[0], b = _a[1];
        return [a, pbc.run(b)];
    }); },
    left: function (pab) {
        return new Reader(function (e) { return e.fold(function (a) { return eitherLeft(pab.run(a)); }, eitherRight); });
    },
    right: function (pbc) {
        return new Reader(function (e) { return e.fold(eitherLeft, function (b) { return eitherRight(pbc.run(b)); }); });
    }
};
//
// backporting
//
/**
 * @since 1.19.0
 */
export var of = reader.of;
var _a = pipeable(reader), ap = _a.ap, apFirst = _a.apFirst, apSecond = _a.apSecond, chain = _a.chain, chainFirst = _a.chainFirst, compose = _a.compose, flatten = _a.flatten, map = _a.map, promap = _a.promap;
export { ap, apFirst, apSecond, chain, chainFirst, compose, flatten, map, promap };