git.iko.soy/rowtype-yoga/psfp
on fd4a42d help sign in
rowtype-yoga/psfp/client/dce-output/Control.Monad/index.js
23 lines 743 B history raw
1// Generated by purs version 0.13.6
2"use strict";
3var Control_Applicative = require("../Control.Applicative/index.js");
4var Control_Bind = require("../Control.Bind/index.js");
5var Monad = function (Applicative0, Bind1) {
6 this.Applicative0 = Applicative0;
7 this.Bind1 = Bind1;
8};
9var ap = function (dictMonad) {
10 return function (f) {
11 return function (a) {
12 return Control_Bind.bind(dictMonad.Bind1())(f)(function (f$prime) {
13 return Control_Bind.bind(dictMonad.Bind1())(a)(function (a$prime) {
14 return Control_Applicative.pure(dictMonad.Applicative0())(f$prime(a$prime));
15 });
16 });
17 };
18 };
19};
20module.exports = {
21 Monad: Monad,
22 ap: ap
23};