git.iko.soy/rowtype-yoga/psfp
on 21162af help sign in
190 lines 7.4 kB history raw
1// Generated by purs version 0.13.6
2"use strict";
3var $foreign = require("./foreign.js");
4var Control_Applicative = require("../Control.Applicative/index.js");
5var Control_Apply = require("../Control.Apply/index.js");
6var Control_Bind = require("../Control.Bind/index.js");
7var Control_Monad = require("../Control.Monad/index.js");
8var Control_Monad_Error_Class = require("../Control.Monad.Error.Class/index.js");
9var Control_Parallel = require("../Control.Parallel/index.js");
10var Control_Parallel_Class = require("../Control.Parallel.Class/index.js");
11var Data_Either = require("../Data.Either/index.js");
12var Data_Foldable = require("../Data.Foldable/index.js");
13var Data_Function = require("../Data.Function/index.js");
14var Data_Functor = require("../Data.Functor/index.js");
15var Data_Monoid = require("../Data.Monoid/index.js");
16var Data_Semigroup = require("../Data.Semigroup/index.js");
17var Data_Unit = require("../Data.Unit/index.js");
18var Effect = require("../Effect/index.js");
19var Effect_Class = require("../Effect.Class/index.js");
20var Partial_Unsafe = require("../Partial.Unsafe/index.js");
21var Unsafe_Coerce = require("../Unsafe.Coerce/index.js");
22var Fiber = function (x) {
23 return x;
24};
25var FFIUtil = function (x) {
26 return x;
27};
28var Canceler = function (x) {
29 return x;
30};
31var functorParAff = new Data_Functor.Functor($foreign["_parAffMap"]);
32var functorAff = new Data_Functor.Functor($foreign["_map"]);
33var ffiUtil = (function () {
34 var unsafeFromRight = function (v) {
35 if (v instanceof Data_Either.Right) {
36 return v.value0;
37 };
38 if (v instanceof Data_Either.Left) {
39 return Partial_Unsafe.unsafeCrashWith("unsafeFromRight: Left");
40 };
41 throw new Error("Failed pattern match at Effect.Aff (line 400, column 21 - line 402, column 54): " + [ v.constructor.name ]);
42 };
43 var unsafeFromLeft = function (v) {
44 if (v instanceof Data_Either.Left) {
45 return v.value0;
46 };
47 if (v instanceof Data_Either.Right) {
48 return Partial_Unsafe.unsafeCrashWith("unsafeFromLeft: Right");
49 };
50 throw new Error("Failed pattern match at Effect.Aff (line 395, column 20 - line 397, column 54): " + [ v.constructor.name ]);
51 };
52 var isLeft = function (v) {
53 if (v instanceof Data_Either.Left) {
54 return true;
55 };
56 if (v instanceof Data_Either.Right) {
57 return false;
58 };
59 throw new Error("Failed pattern match at Effect.Aff (line 390, column 12 - line 392, column 20): " + [ v.constructor.name ]);
60 };
61 return {
62 isLeft: isLeft,
63 fromLeft: unsafeFromLeft,
64 fromRight: unsafeFromRight,
65 left: Data_Either.Left.create,
66 right: Data_Either.Right.create
67 };
68})();
69var makeFiber = function (aff) {
70 return $foreign["_makeFiber"](ffiUtil, aff);
71};
72var launchAff = function (aff) {
73 return function __do() {
74 var fiber = makeFiber(aff)();
75 return Control_Bind.discard(Control_Bind.discardUnit)(Effect.bindEffect)(fiber.run)(function ($dollar__unused) {
76 return Control_Applicative.pure(Effect.applicativeEffect)(fiber);
77 })();
78 };
79};
80var launchAff_ = (function () {
81 var $319 = Data_Functor["void"](Effect.functorEffect);
82 return function ($320) {
83 return $319(launchAff($320));
84 };
85})();
86var applyParAff = new Control_Apply.Apply(function ($dollar__unused) {
87 return functorParAff;
88}, $foreign["_parAffApply"]);
89var monadAff = new Control_Monad.Monad(function ($dollar__unused) {
90 return applicativeAff;
91}, function ($dollar__unused) {
92 return bindAff;
93});
94var bindAff = new Control_Bind.Bind(function ($dollar__unused) {
95 return applyAff;
96}, $foreign["_bind"]);
97var applyAff = new Control_Apply.Apply(function ($dollar__unused) {
98 return functorAff;
99}, Control_Monad.ap(monadAff));
100var applicativeAff = new Control_Applicative.Applicative(function ($dollar__unused) {
101 return applyAff;
102}, $foreign["_pure"]);
103var monadEffectAff = new Effect_Class.MonadEffect(function ($dollar__unused) {
104 return monadAff;
105}, $foreign["_liftEffect"]);
106var effectCanceler = (function () {
107 var $321 = Effect_Class.liftEffect(monadEffectAff);
108 return function ($322) {
109 return Canceler(Data_Function["const"]($321($322)));
110 };
111})();
112var killFiber = function (e) {
113 return function (v) {
114 return Control_Bind.bind(bindAff)(Effect_Class.liftEffect(monadEffectAff)(v.isSuspended))(function (v1) {
115 if (v1) {
116 return Effect_Class.liftEffect(monadEffectAff)(Data_Functor["void"](Effect.functorEffect)(v.kill(e, Data_Function["const"](Control_Applicative.pure(Effect.applicativeEffect)(Data_Unit.unit)))));
117 };
118 return $foreign.makeAff(function (k) {
119 return Data_Functor.map(Effect.functorEffect)(effectCanceler)(v.kill(e, k));
120 });
121 });
122 };
123};
124var monadThrowAff = new Control_Monad_Error_Class.MonadThrow(function ($dollar__unused) {
125 return monadAff;
126}, $foreign["_throwError"]);
127var monadErrorAff = new Control_Monad_Error_Class.MonadError(function ($dollar__unused) {
128 return monadThrowAff;
129}, $foreign["_catchError"]);
130var attempt = Control_Monad_Error_Class["try"](monadErrorAff);
131var runAff = function (k) {
132 return function (aff) {
133 return launchAff(Control_Bind.bindFlipped(bindAff)((function () {
134 var $323 = Effect_Class.liftEffect(monadEffectAff);
135 return function ($324) {
136 return $323(k($324));
137 };
138 })())(Control_Monad_Error_Class["try"](monadErrorAff)(aff)));
139 };
140};
141var parallelAff = new Control_Parallel_Class.Parallel(function ($dollar__unused) {
142 return applicativeParAff;
143}, function ($dollar__unused) {
144 return monadAff;
145}, Unsafe_Coerce.unsafeCoerce, $foreign["_sequential"]);
146var applicativeParAff = new Control_Applicative.Applicative(function ($dollar__unused) {
147 return applyParAff;
148}, (function () {
149 var $325 = Control_Parallel_Class.parallel(parallelAff);
150 var $326 = Control_Applicative.pure(applicativeAff);
151 return function ($327) {
152 return $325($326($327));
153 };
154})());
155var semigroupCanceler = new Data_Semigroup.Semigroup(function (v) {
156 return function (v1) {
157 return function (err) {
158 return Control_Parallel.parSequence_(parallelAff)(Data_Foldable.foldableArray)([ v(err), v1(err) ]);
159 };
160 };
161});
162var nonCanceler = Data_Function["const"](Control_Applicative.pure(applicativeAff)(Data_Unit.unit));
163var monoidCanceler = new Data_Monoid.Monoid(function ($dollar__unused) {
164 return semigroupCanceler;
165}, nonCanceler);
166module.exports = {
167 Canceler: Canceler,
168 launchAff: launchAff,
169 launchAff_: launchAff_,
170 runAff: runAff,
171 attempt: attempt,
172 killFiber: killFiber,
173 nonCanceler: nonCanceler,
174 effectCanceler: effectCanceler,
175 functorAff: functorAff,
176 applyAff: applyAff,
177 applicativeAff: applicativeAff,
178 bindAff: bindAff,
179 monadAff: monadAff,
180 monadThrowAff: monadThrowAff,
181 monadErrorAff: monadErrorAff,
182 monadEffectAff: monadEffectAff,
183 functorParAff: functorParAff,
184 applyParAff: applyParAff,
185 applicativeParAff: applicativeParAff,
186 parallelAff: parallelAff,
187 semigroupCanceler: semigroupCanceler,
188 monoidCanceler: monoidCanceler,
189 makeAff: $foreign.makeAff
190};