25 lines
673 B
JavaScript
25 lines
673 B
JavaScript
|
/**
|
||
|
|
* Lift a computation from the `Reader` monad.
|
||
|
|
*
|
||
|
|
* @since 2.11.0
|
||
|
|
*/
|
||
|
|
import { chainFirst } from './Chain';
|
||
|
|
import { flow } from './function';
|
||
|
|
import * as R from './Reader';
|
||
|
|
export function ask(F) {
|
||
|
|
return function () { return F.fromReader(R.ask()); };
|
||
|
|
}
|
||
|
|
export function asks(F) {
|
||
|
|
return F.fromReader;
|
||
|
|
}
|
||
|
|
export function fromReaderK(F) {
|
||
|
|
return function (f) { return flow(f, F.fromReader); };
|
||
|
|
}
|
||
|
|
export function chainReaderK(F, M) {
|
||
|
|
var fromReaderKF = fromReaderK(F);
|
||
|
|
return function (f) { return function (ma) { return M.chain(ma, fromReaderKF(f)); }; };
|
||
|
|
}
|
||
|
|
export function chainFirstReaderK(F, M) {
|
||
|
|
return flow(fromReaderK(F), chainFirst(M));
|
||
|
|
}
|