|
- import { identity } from './function';
- export function split(P, C) {
- return function (pab, pcd) { return C.compose(P.right(pcd), P.left(pab)); };
- }
- export function fanIn(P, C) {
- var splitPC = split(P, C);
- return function (pac, pbc) {
- return C.compose(P.promap(C.id(), function (cc) { return (cc._tag === 'Left' ? cc.left : cc.right); }, identity), splitPC(pac, pbc));
- };
- }
- export function splitChoice(F) {
- return split(F, F);
- }
- export function fanin(F) {
- return fanIn(F, F);
- }
|