git.iko.soy/rowtype-yoga/yoga-r3f
on main help sign in
rowtype-yoga/yoga-r3f/output/Control.Monad.Writer.Class/index.js
47 lines 1.4 kB history raw
1// Generated by purs version 0.15.16
2import * as Control_Applicative from "../Control.Applicative/index.js";
3import * as Control_Bind from "../Control.Bind/index.js";
4import * as Data_Tuple from "../Data.Tuple/index.js";
5var tell = function (dict) {
6 return dict.tell;
7};
8var pass = function (dict) {
9 return dict.pass;
10};
11var listen = function (dict) {
12 return dict.listen;
13};
14var listens = function (dictMonadWriter) {
15 var Monad1 = (dictMonadWriter.MonadTell1()).Monad1();
16 var bind = Control_Bind.bind(Monad1.Bind1());
17 var listen1 = listen(dictMonadWriter);
18 var pure = Control_Applicative.pure(Monad1.Applicative0());
19 return function (f) {
20 return function (m) {
21 return bind(listen1(m))(function (v) {
22 return pure(new Data_Tuple.Tuple(v.value0, f(v.value1)));
23 });
24 };
25 };
26};
27var censor = function (dictMonadWriter) {
28 var pass1 = pass(dictMonadWriter);
29 var Monad1 = (dictMonadWriter.MonadTell1()).Monad1();
30 var bind = Control_Bind.bind(Monad1.Bind1());
31 var pure = Control_Applicative.pure(Monad1.Applicative0());
32 return function (f) {
33 return function (m) {
34 return pass1(bind(m)(function (a) {
35 return pure(new Data_Tuple.Tuple(a, f));
36 }));
37 };
38 };
39};
40export {
41 listen,
42 pass,
43 tell,
44 listens,
45 censor
46};
47//# sourceMappingURL=index.js.map