init component
This commit is contained in:
25
node_modules/fp-ts/es6/FromTask.js
generated
vendored
Normal file
25
node_modules/fp-ts/es6/FromTask.js
generated
vendored
Normal file
@@ -0,0 +1,25 @@
|
||||
/**
|
||||
* Lift a computation from the `Task` monad
|
||||
*
|
||||
* @since 2.10.0
|
||||
*/
|
||||
import { tap } from './Chain';
|
||||
import { flow } from './function';
|
||||
export function fromTaskK(F) {
|
||||
return function (f) { return flow(f, F.fromTask); };
|
||||
}
|
||||
export function chainTaskK(F, M) {
|
||||
return function (f) {
|
||||
var g = flow(f, F.fromTask);
|
||||
return function (first) { return M.chain(first, g); };
|
||||
};
|
||||
}
|
||||
export function chainFirstTaskK(F, M) {
|
||||
var tapTaskM = tapTask(F, M);
|
||||
return function (f) { return function (first) { return tapTaskM(first, f); }; };
|
||||
}
|
||||
/** @internal */
|
||||
export function tapTask(F, M) {
|
||||
var tapM = tap(M);
|
||||
return function (self, f) { return tapM(self, flow(f, F.fromTask)); };
|
||||
}
|
||||
Reference in New Issue
Block a user