diff --git a/.gitignore b/.gitignore index 372264b..668a05d 100644 --- a/.gitignore +++ b/.gitignore @@ -6,3 +6,4 @@ /bower_components/ /tmp/ /node_modules/ +/examples/output/examples.js diff --git a/bower.json b/bower.json index db99b2a..7809b72 100644 --- a/bower.json +++ b/bower.json @@ -1,4 +1,3 @@ - { "name": "purescript-aff", "homepage": "https://github.com/slamdata/purescript-aff", @@ -23,16 +22,9 @@ "package.json" ], "dependencies": { - "purescript-prelude": "~0.1.0", - "purescript-console": "~0.1.0", - "purescript-tuples": "~0.4.0", - "purescript-either": "~0.2.0", - "purescript-monoid": "~0.3.0", - "purescript-exceptions": "~0.3.0", - "purescript-control": "~0.3.0", - "purescript-maybe": "~0.3.0", - "purescript-eff": "~0.1.0", - "purescript-transformers": "~0.6.0", - "purescript-functions": "~0.1.0" + "purescript-console": "^0.1.0", + "purescript-exceptions": "^0.3.0", + "purescript-functions": "^0.1.0", + "purescript-transformers": "^0.6.0" } } diff --git a/docs/Control.Monad.Aff.md b/docs/Control.Monad.Aff.md index 05e5a42..8ed8364 100644 --- a/docs/Control.Monad.Aff.md +++ b/docs/Control.Monad.Aff.md @@ -26,6 +26,7 @@ instance altAff :: Alt (Aff e) instance plusAff :: Plus (Aff e) instance alternativeAff :: Alternative (Aff e) instance monadPlusAff :: MonadPlus (Aff e) +instance monadRecAff :: MonadRec (Aff e) ``` #### `PureAff` diff --git a/output/examples.html b/examples/output/examples.html similarity index 100% rename from output/examples.html rename to examples/output/examples.html diff --git a/gulpfile.js b/gulpfile.js index 72e92a3..b9db129 100644 --- a/gulpfile.js +++ b/gulpfile.js @@ -4,10 +4,12 @@ var gulp = require('gulp') , purescript = require('gulp-purescript') , jsValidate = require('gulp-jsvalidate') , plumber = require("gulp-plumber") + , run = require("gulp-run") ; var sources = [ 'src/**/*.purs', + 'test/**/*.purs', 'examples/src/**/*.purs', 'bower_components/purescript-*/src/**/*.purs' ]; @@ -30,13 +32,6 @@ gulp.task('psc', function() { }) }); -gulp.task('pscBundle', function() { - return purescript.pscBundle({ - src: "output/**/*.js", - output: "output/examples.js" - }) -}); - gulp.task('pscDocs', function() { return purescript.pscDocs({ src: sources, @@ -59,6 +54,18 @@ gulp.task('dotPsci', function() { .pipe(gulp.dest('.')) }) +gulp.task('examples', ['psc'], function() { + return purescript.pscBundle({ + src: "output/**/*.js", + main: "Examples", + output: "examples/output/examples.js" + }) +}); + +gulp.task('test', ['psc'], function() { + return purescript.pscBundle({ src: "output/**/*.js", main: "Test.Main" }) + .pipe(run("node")); +}); + gulp.task('make', ['jsvalidate', 'psc', 'dotPsci', 'pscDocs']); -gulp.task('test', ['jsvalidate', 'psc', 'pscBundle', 'pscDocs']); -gulp.task('default', ['make']); +gulp.task('default', ['make', 'examples', 'test']); diff --git a/output/examples.js b/output/examples.js deleted file mode 100644 index d29e135..0000000 --- a/output/examples.js +++ /dev/null @@ -1,11948 +0,0 @@ -// Generated by psc version 0.7.0.0 -var PS = PS || {}; -PS.Prelude = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports */ -"use strict"; - -// module Prelude - -//- Functor -------------------------------------------------------------------- - -exports.arrayMap = function (f) { - return function (arr) { - var l = arr.length; - var result = new Array(l); - for (var i = 0; i < l; i++) { - result[i] = f(arr[i]); - } - return result; - }; -}; - -//- Bind ----------------------------------------------------------------------- - -exports.arrayBind = function (arr) { - return function (f) { - var result = []; - for (var i = 0, l = arr.length; i < l; i++) { - Array.prototype.push.apply(result, f(arr[i])); - } - return result; - }; -}; - -//- Monoid --------------------------------------------------------------------- - -exports.concatString = function (s1) { - return function (s2) { - return s1 + s2; - }; -}; - -exports.concatArray = function (xs) { - return function (ys) { - return xs.concat(ys); - }; -}; - -//- Semiring ------------------------------------------------------------------- - -exports.intAdd = function (x) { - return function (y) { - /* jshint bitwise: false */ - return x + y | 0; - }; -}; - -exports.intMul = function (x) { - return function (y) { - /* jshint bitwise: false */ - return x * y | 0; - }; -}; - -exports.numAdd = function (n1) { - return function (n2) { - return n1 + n2; - }; -}; - -exports.numMul = function (n1) { - return function (n2) { - return n1 * n2; - }; -}; - -//- ModuloSemiring ------------------------------------------------------------- - -exports.intDiv = function (x) { - return function (y) { - /* jshint bitwise: false */ - return x / y | 0; - }; -}; - -exports.intMod = function (x) { - return function (y) { - return x % y; - }; -}; - -exports.numDiv = function (n1) { - return function (n2) { - return n1 / n2; - }; -}; - -//- Ring ----------------------------------------------------------------------- - -exports.intSub = function (x) { - return function (y) { - /* jshint bitwise: false */ - return x - y | 0; - }; -}; - -exports.numSub = function (n1) { - return function (n2) { - return n1 - n2; - }; -}; - -//- Eq ------------------------------------------------------------------------- - -exports.refEq = function (r1) { - return function (r2) { - return r1 === r2; - }; -}; - -exports.refIneq = function (r1) { - return function (r2) { - return r1 !== r2; - }; -}; - -exports.eqArrayImpl = function (f) { - return function (xs) { - return function (ys) { - if (xs.length !== ys.length) return false; - for (var i = 0; i < xs.length; i++) { - if (!f(xs[i])(ys[i])) return false; - } - return true; - }; - }; -}; - -exports.ordArrayImpl = function (f) { - return function (xs) { - return function (ys) { - var i = 0; - var xlen = xs.length; - var ylen = ys.length; - while (i < xlen && i < ylen) { - var x = xs[i]; - var y = ys[i]; - var o = f(x)(y); - if (o !== 0) { - return o; - } - i++; - } - if (xlen === ylen) { - return 0; - } else if (xlen > ylen) { - return -1; - } else { - return 1; - } - }; - }; -}; - -//- Ord ------------------------------------------------------------------------ - -exports.unsafeCompareImpl = function (lt) { - return function (eq) { - return function (gt) { - return function (x) { - return function (y) { - return x < y ? lt : x > y ? gt : eq; - }; - }; - }; - }; -}; - -//- Lattice -------------------------------------------------------------------- - -exports.boolOr = function (b1) { - return function (b2) { - return b1 || b2; - }; -}; - -exports.boolAnd = function (b1) { - return function (b2) { - return b1 && b2; - }; -}; - -//- ComplementedLattice -------------------------------------------------------- - -exports.boolNot = function (b) { - return !b; -}; - -//- Show ----------------------------------------------------------------------- - -exports.showIntImpl = function (n) { - return n.toString(); -}; - -exports.showNumberImpl = function (n) { - /* jshint bitwise: false */ - return n === (n | 0) ? n + ".0" : n.toString(); -}; - -exports.showCharImpl = function (c) { - return c === "'" ? "'\\''" : "'" + c + "'"; -}; - -exports.showStringImpl = function (s) { - return JSON.stringify(s); -}; - -exports.showArrayImpl = function (f) { - return function (xs) { - var ss = []; - for (var i = 0, l = xs.length; i < l; i++) { - ss[i] = f(xs[i]); - } - return "[" + ss.join(",") + "]"; - }; -}; -; - return exports; - })(); - var Unit = function (x) { - return x; - }; - var LT = (function () { - function LT() { - - }; - LT.value = new LT(); - return LT; - })(); - var GT = (function () { - function GT() { - - }; - GT.value = new GT(); - return GT; - })(); - var EQ = (function () { - function EQ() { - - }; - EQ.value = new EQ(); - return EQ; - })(); - var Semigroupoid = function (compose) { - this.compose = compose; - }; - var Category = function (__superclass_Prelude$dotSemigroupoid_0, id) { - this["__superclass_Prelude.Semigroupoid_0"] = __superclass_Prelude$dotSemigroupoid_0; - this.id = id; - }; - var Functor = function (map) { - this.map = map; - }; - var Apply = function (__superclass_Prelude$dotFunctor_0, apply) { - this["__superclass_Prelude.Functor_0"] = __superclass_Prelude$dotFunctor_0; - this.apply = apply; - }; - var Applicative = function (__superclass_Prelude$dotApply_0, pure) { - this["__superclass_Prelude.Apply_0"] = __superclass_Prelude$dotApply_0; - this.pure = pure; - }; - var Bind = function (__superclass_Prelude$dotApply_0, bind) { - this["__superclass_Prelude.Apply_0"] = __superclass_Prelude$dotApply_0; - this.bind = bind; - }; - var Monad = function (__superclass_Prelude$dotApplicative_0, __superclass_Prelude$dotBind_1) { - this["__superclass_Prelude.Applicative_0"] = __superclass_Prelude$dotApplicative_0; - this["__superclass_Prelude.Bind_1"] = __superclass_Prelude$dotBind_1; - }; - var Semigroup = function (append) { - this.append = append; - }; - var Semiring = function (add, mul, one, zero) { - this.add = add; - this.mul = mul; - this.one = one; - this.zero = zero; - }; - var Ring = function (__superclass_Prelude$dotSemiring_0, sub) { - this["__superclass_Prelude.Semiring_0"] = __superclass_Prelude$dotSemiring_0; - this.sub = sub; - }; - var ModuloSemiring = function (__superclass_Prelude$dotSemiring_0, div, mod) { - this["__superclass_Prelude.Semiring_0"] = __superclass_Prelude$dotSemiring_0; - this.div = div; - this.mod = mod; - }; - var DivisionRing = function (__superclass_Prelude$dotModuloSemiring_1, __superclass_Prelude$dotRing_0) { - this["__superclass_Prelude.ModuloSemiring_1"] = __superclass_Prelude$dotModuloSemiring_1; - this["__superclass_Prelude.Ring_0"] = __superclass_Prelude$dotRing_0; - }; - var Num = function (__superclass_Prelude$dotDivisionRing_0) { - this["__superclass_Prelude.DivisionRing_0"] = __superclass_Prelude$dotDivisionRing_0; - }; - var Eq = function (eq) { - this.eq = eq; - }; - var Ord = function (__superclass_Prelude$dotEq_0, compare) { - this["__superclass_Prelude.Eq_0"] = __superclass_Prelude$dotEq_0; - this.compare = compare; - }; - var Bounded = function (bottom, top) { - this.bottom = bottom; - this.top = top; - }; - var BoundedOrd = function (__superclass_Prelude$dotBounded_0, __superclass_Prelude$dotOrd_1) { - this["__superclass_Prelude.Bounded_0"] = __superclass_Prelude$dotBounded_0; - this["__superclass_Prelude.Ord_1"] = __superclass_Prelude$dotOrd_1; - }; - var BooleanAlgebra = function (__superclass_Prelude$dotBounded_0, conj, disj, not) { - this["__superclass_Prelude.Bounded_0"] = __superclass_Prelude$dotBounded_0; - this.conj = conj; - this.disj = disj; - this.not = not; - }; - var Show = function (show) { - this.show = show; - }; - var $dollar = function (f) { - return function (x) { - return f(x); - }; - }; - var $hash = function (x) { - return function (f) { - return f(x); - }; - }; - var zero = function (dict) { - return dict.zero; - }; - var unsafeCompare = $foreign.unsafeCompareImpl(LT.value)(EQ.value)(GT.value); - var unit = {}; - var top = function (dict) { - return dict.top; - }; - var sub = function (dict) { - return dict.sub; - }; - var $minus = function (__dict_Ring_0) { - return sub(__dict_Ring_0); - }; - var showUnit = new Show(function (_116) { - return "unit"; - }); - var showString = new Show($foreign.showStringImpl); - var showOrdering = new Show(function (_117) { - if (_117 instanceof LT) { - return "LT"; - }; - if (_117 instanceof GT) { - return "GT"; - }; - if (_117 instanceof EQ) { - return "EQ"; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-prelude/src/Prelude.purs line 849, column 1 - line 854, column 1: " + [ _117.constructor.name ]); - }); - var showNumber = new Show($foreign.showNumberImpl); - var showInt = new Show($foreign.showIntImpl); - var showChar = new Show($foreign.showCharImpl); - var showBoolean = new Show(function (_115) { - if (_115) { - return "true"; - }; - if (!_115) { - return "false"; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-prelude/src/Prelude.purs line 827, column 1 - line 831, column 1: " + [ _115.constructor.name ]); - }); - var show = function (dict) { - return dict.show; - }; - var showArray = function (__dict_Show_1) { - return new Show($foreign.showArrayImpl(show(__dict_Show_1))); - }; - var semiringUnit = new Semiring(function (_88) { - return function (_89) { - return unit; - }; - }, function (_90) { - return function (_91) { - return unit; - }; - }, unit, unit); - var semiringNumber = new Semiring($foreign.numAdd, $foreign.numMul, 1.0, 0.0); - var semiringInt = new Semiring($foreign.intAdd, $foreign.intMul, 1, 0); - var semigroupoidFn = new Semigroupoid(function (f) { - return function (g) { - return function (x) { - return f(g(x)); - }; - }; - }); - var semigroupUnit = new Semigroup(function (_85) { - return function (_86) { - return unit; - }; - }); - var semigroupString = new Semigroup($foreign.concatString); - var semigroupOrdering = new Semigroup(function (_87) { - return function (y) { - if (_87 instanceof LT) { - return LT.value; - }; - if (_87 instanceof GT) { - return GT.value; - }; - if (_87 instanceof EQ) { - return y; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-prelude/src/Prelude.purs line 412, column 1 - line 417, column 1: " + [ _87.constructor.name, y.constructor.name ]); - }; - }); - var semigroupArray = new Semigroup($foreign.concatArray); - var ringUnit = new Ring(function () { - return semiringUnit; - }, function (_92) { - return function (_93) { - return unit; - }; - }); - var ringNumber = new Ring(function () { - return semiringNumber; - }, $foreign.numSub); - var ringInt = new Ring(function () { - return semiringInt; - }, $foreign.intSub); - var pure = function (dict) { - return dict.pure; - }; - var $$return = function (__dict_Applicative_2) { - return pure(__dict_Applicative_2); - }; - var otherwise = true; - var one = function (dict) { - return dict.one; - }; - var not = function (dict) { - return dict.not; - }; - var negate = function (__dict_Ring_3) { - return function (a) { - return $minus(__dict_Ring_3)(zero(__dict_Ring_3["__superclass_Prelude.Semiring_0"]()))(a); - }; - }; - var mul = function (dict) { - return dict.mul; - }; - var $times = function (__dict_Semiring_4) { - return mul(__dict_Semiring_4); - }; - var moduloSemiringUnit = new ModuloSemiring(function () { - return semiringUnit; - }, function (_96) { - return function (_97) { - return unit; - }; - }, function (_98) { - return function (_99) { - return unit; - }; - }); - var moduloSemiringNumber = new ModuloSemiring(function () { - return semiringNumber; - }, $foreign.numDiv, function (_94) { - return function (_95) { - return 0.0; - }; - }); - var moduloSemiringInt = new ModuloSemiring(function () { - return semiringInt; - }, $foreign.intDiv, $foreign.intMod); - var mod = function (dict) { - return dict.mod; - }; - var map = function (dict) { - return dict.map; - }; - var $less$dollar$greater = function (__dict_Functor_5) { - return map(__dict_Functor_5); - }; - var $less$hash$greater = function (__dict_Functor_6) { - return function (fa) { - return function (f) { - return $less$dollar$greater(__dict_Functor_6)(f)(fa); - }; - }; - }; - var id = function (dict) { - return dict.id; - }; - var functorArray = new Functor($foreign.arrayMap); - var flip = function (f) { - return function (b) { - return function (a) { - return f(a)(b); - }; - }; - }; - var eqUnit = new Eq(function (_100) { - return function (_101) { - return true; - }; - }); - var ordUnit = new Ord(function () { - return eqUnit; - }, function (_104) { - return function (_105) { - return EQ.value; - }; - }); - var eqString = new Eq($foreign.refEq); - var ordString = new Ord(function () { - return eqString; - }, unsafeCompare); - var eqOrdering = new Eq(function (_102) { - return function (_103) { - if (_102 instanceof LT && _103 instanceof LT) { - return true; - }; - if (_102 instanceof GT && _103 instanceof GT) { - return true; - }; - if (_102 instanceof EQ && _103 instanceof EQ) { - return true; - }; - return false; - }; - }); - var ordOrdering = new Ord(function () { - return eqOrdering; - }, function (_106) { - return function (_107) { - if (_106 instanceof LT && _107 instanceof LT) { - return EQ.value; - }; - if (_106 instanceof EQ && _107 instanceof EQ) { - return EQ.value; - }; - if (_106 instanceof GT && _107 instanceof GT) { - return EQ.value; - }; - if (_106 instanceof LT) { - return LT.value; - }; - if (_106 instanceof EQ && _107 instanceof LT) { - return GT.value; - }; - if (_106 instanceof EQ && _107 instanceof GT) { - return LT.value; - }; - if (_106 instanceof GT) { - return GT.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-prelude/src/Prelude.purs line 666, column 1 - line 675, column 1: " + [ _106.constructor.name, _107.constructor.name ]); - }; - }); - var eqNumber = new Eq($foreign.refEq); - var ordNumber = new Ord(function () { - return eqNumber; - }, unsafeCompare); - var eqInt = new Eq($foreign.refEq); - var ordInt = new Ord(function () { - return eqInt; - }, unsafeCompare); - var eqChar = new Eq($foreign.refEq); - var ordChar = new Ord(function () { - return eqChar; - }, unsafeCompare); - var eqBoolean = new Eq($foreign.refEq); - var ordBoolean = new Ord(function () { - return eqBoolean; - }, unsafeCompare); - var eq = function (dict) { - return dict.eq; - }; - var $eq$eq = function (__dict_Eq_7) { - return eq(__dict_Eq_7); - }; - var eqArray = function (__dict_Eq_8) { - return new Eq($foreign.eqArrayImpl($eq$eq(__dict_Eq_8))); - }; - var divisionRingUnit = new DivisionRing(function () { - return moduloSemiringUnit; - }, function () { - return ringUnit; - }); - var numUnit = new Num(function () { - return divisionRingUnit; - }); - var divisionRingNumber = new DivisionRing(function () { - return moduloSemiringNumber; - }, function () { - return ringNumber; - }); - var numNumber = new Num(function () { - return divisionRingNumber; - }); - var div = function (dict) { - return dict.div; - }; - var $div = function (__dict_ModuloSemiring_10) { - return div(__dict_ModuloSemiring_10); - }; - var disj = function (dict) { - return dict.disj; - }; - var $bar$bar = function (__dict_BooleanAlgebra_11) { - return disj(__dict_BooleanAlgebra_11); - }; - var $$const = function (a) { - return function (_83) { - return a; - }; - }; - var $$void = function (__dict_Functor_12) { - return function (fa) { - return $less$dollar$greater(__dict_Functor_12)($$const(unit))(fa); - }; - }; - var conj = function (dict) { - return dict.conj; - }; - var $amp$amp = function (__dict_BooleanAlgebra_13) { - return conj(__dict_BooleanAlgebra_13); - }; - var compose = function (dict) { - return dict.compose; - }; - var functorFn = new Functor(compose(semigroupoidFn)); - var $less$less$less = function (__dict_Semigroupoid_14) { - return compose(__dict_Semigroupoid_14); - }; - var $greater$greater$greater = function (__dict_Semigroupoid_15) { - return flip(compose(__dict_Semigroupoid_15)); - }; - var compare = function (dict) { - return dict.compare; - }; - var ordArray = function (__dict_Ord_16) { - return new Ord(function () { - return eqArray(__dict_Ord_16["__superclass_Prelude.Eq_0"]()); - }, function (xs) { - return function (ys) { - return $dollar(compare(ordInt)(0))($foreign.ordArrayImpl(function (x) { - return function (y) { - var _538 = compare(__dict_Ord_16)(x)(y); - if (_538 instanceof EQ) { - return 0; - }; - if (_538 instanceof LT) { - return 1; - }; - if (_538 instanceof GT) { - return negate(ringInt)(1); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-prelude/src/Prelude.purs line 658, column 1 - line 664, column 1: " + [ _538.constructor.name ]); - }; - })(xs)(ys)); - }; - }); - }; - var $less = function (__dict_Ord_17) { - return function (a1) { - return function (a2) { - var _539 = compare(__dict_Ord_17)(a1)(a2); - if (_539 instanceof LT) { - return true; - }; - return false; - }; - }; - }; - var $less$eq = function (__dict_Ord_18) { - return function (a1) { - return function (a2) { - var _540 = compare(__dict_Ord_18)(a1)(a2); - if (_540 instanceof GT) { - return false; - }; - return true; - }; - }; - }; - var $greater = function (__dict_Ord_19) { - return function (a1) { - return function (a2) { - var _541 = compare(__dict_Ord_19)(a1)(a2); - if (_541 instanceof GT) { - return true; - }; - return false; - }; - }; - }; - var $greater$eq = function (__dict_Ord_20) { - return function (a1) { - return function (a2) { - var _542 = compare(__dict_Ord_20)(a1)(a2); - if (_542 instanceof LT) { - return false; - }; - return true; - }; - }; - }; - var categoryFn = new Category(function () { - return semigroupoidFn; - }, function (x) { - return x; - }); - var boundedUnit = new Bounded(unit, unit); - var boundedOrdering = new Bounded(LT.value, GT.value); - var boundedOrdUnit = new BoundedOrd(function () { - return boundedUnit; - }, function () { - return ordUnit; - }); - var boundedOrdOrdering = new BoundedOrd(function () { - return boundedOrdering; - }, function () { - return ordOrdering; - }); - var boundedInt = new Bounded(negate(ringInt)(2147483648), 2147483647); - var boundedOrdInt = new BoundedOrd(function () { - return boundedInt; - }, function () { - return ordInt; - }); - var boundedBoolean = new Bounded(false, true); - var boundedOrdBoolean = new BoundedOrd(function () { - return boundedBoolean; - }, function () { - return ordBoolean; - }); - var bottom = function (dict) { - return dict.bottom; - }; - var boundedFn = function (__dict_Bounded_21) { - return new Bounded(function (_109) { - return bottom(__dict_Bounded_21); - }, function (_108) { - return top(__dict_Bounded_21); - }); - }; - var booleanAlgebraUnit = new BooleanAlgebra(function () { - return boundedUnit; - }, function (_110) { - return function (_111) { - return unit; - }; - }, function (_112) { - return function (_113) { - return unit; - }; - }, function (_114) { - return unit; - }); - var booleanAlgebraFn = function (__dict_BooleanAlgebra_22) { - return new BooleanAlgebra(function () { - return boundedFn(__dict_BooleanAlgebra_22["__superclass_Prelude.Bounded_0"]()); - }, function (fx) { - return function (fy) { - return function (a) { - return conj(__dict_BooleanAlgebra_22)(fx(a))(fy(a)); - }; - }; - }, function (fx) { - return function (fy) { - return function (a) { - return disj(__dict_BooleanAlgebra_22)(fx(a))(fy(a)); - }; - }; - }, function (fx) { - return function (a) { - return not(__dict_BooleanAlgebra_22)(fx(a)); - }; - }); - }; - var booleanAlgebraBoolean = new BooleanAlgebra(function () { - return boundedBoolean; - }, $foreign.boolAnd, $foreign.boolOr, $foreign.boolNot); - var $div$eq = function (__dict_Eq_9) { - return function (x) { - return function (y) { - return not(booleanAlgebraBoolean)($eq$eq(__dict_Eq_9)(x)(y)); - }; - }; - }; - var bind = function (dict) { - return dict.bind; - }; - var $greater$greater$eq = function (__dict_Bind_23) { - return bind(__dict_Bind_23); - }; - var liftM1 = function (__dict_Monad_24) { - return function (f) { - return function (a) { - return $greater$greater$eq(__dict_Monad_24["__superclass_Prelude.Bind_1"]())(a)(function (_7) { - return $$return(__dict_Monad_24["__superclass_Prelude.Applicative_0"]())(f(_7)); - }); - }; - }; - }; - var asTypeOf = function (x) { - return function (_84) { - return x; - }; - }; - var applyFn = new Apply(function () { - return functorFn; - }, function (f) { - return function (g) { - return function (x) { - return f(x)(g(x)); - }; - }; - }); - var bindFn = new Bind(function () { - return applyFn; - }, function (m) { - return function (f) { - return function (x) { - return f(m(x))(x); - }; - }; - }); - var apply = function (dict) { - return dict.apply; - }; - var $less$times$greater = function (__dict_Apply_25) { - return apply(__dict_Apply_25); - }; - var liftA1 = function (__dict_Applicative_26) { - return function (f) { - return function (a) { - return $less$times$greater(__dict_Applicative_26["__superclass_Prelude.Apply_0"]())(pure(__dict_Applicative_26)(f))(a); - }; - }; - }; - var applicativeFn = new Applicative(function () { - return applyFn; - }, $$const); - var monadFn = new Monad(function () { - return applicativeFn; - }, function () { - return bindFn; - }); - var append = function (dict) { - return dict.append; - }; - var $plus$plus = function (__dict_Semigroup_27) { - return append(__dict_Semigroup_27); - }; - var $less$greater = function (__dict_Semigroup_28) { - return append(__dict_Semigroup_28); - }; - var semigroupFn = function (__dict_Semigroup_29) { - return new Semigroup(function (f) { - return function (g) { - return function (x) { - return $less$greater(__dict_Semigroup_29)(f(x))(g(x)); - }; - }; - }); - }; - var ap = function (__dict_Monad_30) { - return function (f) { - return function (a) { - return $greater$greater$eq(__dict_Monad_30["__superclass_Prelude.Bind_1"]())(f)(function (_9) { - return $greater$greater$eq(__dict_Monad_30["__superclass_Prelude.Bind_1"]())(a)(function (_8) { - return $$return(__dict_Monad_30["__superclass_Prelude.Applicative_0"]())(_9(_8)); - }); - }); - }; - }; - }; - var monadArray = new Monad(function () { - return applicativeArray; - }, function () { - return bindArray; - }); - var bindArray = new Bind(function () { - return applyArray; - }, $foreign.arrayBind); - var applyArray = new Apply(function () { - return functorArray; - }, ap(monadArray)); - var applicativeArray = new Applicative(function () { - return applyArray; - }, function (x) { - return [ x ]; - }); - var add = function (dict) { - return dict.add; - }; - var $plus = function (__dict_Semiring_31) { - return add(__dict_Semiring_31); - }; - return { - LT: LT, - GT: GT, - EQ: EQ, - Show: Show, - BooleanAlgebra: BooleanAlgebra, - BoundedOrd: BoundedOrd, - Bounded: Bounded, - Ord: Ord, - Eq: Eq, - DivisionRing: DivisionRing, - Num: Num, - Ring: Ring, - ModuloSemiring: ModuloSemiring, - Semiring: Semiring, - Semigroup: Semigroup, - Monad: Monad, - Bind: Bind, - Applicative: Applicative, - Apply: Apply, - Functor: Functor, - Category: Category, - Semigroupoid: Semigroupoid, - show: show, - "||": $bar$bar, - "&&": $amp$amp, - not: not, - disj: disj, - conj: conj, - bottom: bottom, - top: top, - ">=": $greater$eq, - "<=": $less$eq, - ">": $greater, - "<": $less, - compare: compare, - "/=": $div$eq, - "==": $eq$eq, - eq: eq, - "-": $minus, - negate: negate, - sub: sub, - "/": $div, - mod: mod, - div: div, - "*": $times, - "+": $plus, - one: one, - mul: mul, - zero: zero, - add: add, - "++": $plus$plus, - "<>": $less$greater, - append: append, - ap: ap, - liftM1: liftM1, - "return": $$return, - ">>=": $greater$greater$eq, - bind: bind, - liftA1: liftA1, - pure: pure, - "<*>": $less$times$greater, - apply: apply, - "void": $$void, - "<#>": $less$hash$greater, - "<$>": $less$dollar$greater, - map: map, - id: id, - ">>>": $greater$greater$greater, - "<<<": $less$less$less, - compose: compose, - otherwise: otherwise, - asTypeOf: asTypeOf, - "const": $$const, - flip: flip, - "#": $hash, - "$": $dollar, - unit: unit, - semigroupoidFn: semigroupoidFn, - categoryFn: categoryFn, - functorFn: functorFn, - functorArray: functorArray, - applyFn: applyFn, - applyArray: applyArray, - applicativeFn: applicativeFn, - applicativeArray: applicativeArray, - bindFn: bindFn, - bindArray: bindArray, - monadFn: monadFn, - monadArray: monadArray, - semigroupString: semigroupString, - semigroupUnit: semigroupUnit, - semigroupFn: semigroupFn, - semigroupOrdering: semigroupOrdering, - semigroupArray: semigroupArray, - semiringInt: semiringInt, - semiringNumber: semiringNumber, - semiringUnit: semiringUnit, - ringInt: ringInt, - ringNumber: ringNumber, - ringUnit: ringUnit, - moduloSemiringInt: moduloSemiringInt, - moduloSemiringNumber: moduloSemiringNumber, - moduloSemiringUnit: moduloSemiringUnit, - divisionRingNumber: divisionRingNumber, - divisionRingUnit: divisionRingUnit, - numNumber: numNumber, - numUnit: numUnit, - eqBoolean: eqBoolean, - eqInt: eqInt, - eqNumber: eqNumber, - eqChar: eqChar, - eqString: eqString, - eqUnit: eqUnit, - eqArray: eqArray, - eqOrdering: eqOrdering, - ordBoolean: ordBoolean, - ordInt: ordInt, - ordNumber: ordNumber, - ordString: ordString, - ordChar: ordChar, - ordUnit: ordUnit, - ordArray: ordArray, - ordOrdering: ordOrdering, - boundedBoolean: boundedBoolean, - boundedUnit: boundedUnit, - boundedOrdering: boundedOrdering, - boundedInt: boundedInt, - boundedFn: boundedFn, - boundedOrdBoolean: boundedOrdBoolean, - boundedOrdUnit: boundedOrdUnit, - boundedOrdOrdering: boundedOrdOrdering, - boundedOrdInt: boundedOrdInt, - booleanAlgebraBoolean: booleanAlgebraBoolean, - booleanAlgebraUnit: booleanAlgebraUnit, - booleanAlgebraFn: booleanAlgebraFn, - showBoolean: showBoolean, - showInt: showInt, - showNumber: showNumber, - showChar: showChar, - showString: showString, - showUnit: showUnit, - showArray: showArray, - showOrdering: showOrdering - }; -})(); -var PS = PS || {}; -PS.Data_Monoid = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Monoid = function (__superclass_Prelude$dotSemigroup_0, mempty) { - this["__superclass_Prelude.Semigroup_0"] = __superclass_Prelude$dotSemigroup_0; - this.mempty = mempty; - }; - var monoidUnit = new Monoid(function () { - return Prelude.semigroupUnit; - }, Prelude.unit); - var monoidString = new Monoid(function () { - return Prelude.semigroupString; - }, ""); - var monoidArray = new Monoid(function () { - return Prelude.semigroupArray; - }, [ ]); - var mempty = function (dict) { - return dict.mempty; - }; - var monoidFn = function (__dict_Monoid_32) { - return new Monoid(function () { - return Prelude.semigroupFn(__dict_Monoid_32["__superclass_Prelude.Semigroup_0"]()); - }, Prelude["const"](mempty(__dict_Monoid_32))); - }; - return { - Monoid: Monoid, - mempty: mempty, - monoidUnit: monoidUnit, - monoidFn: monoidFn, - monoidString: monoidString, - monoidArray: monoidArray - }; -})(); -var PS = PS || {}; -PS.Data_Functor_Invariant = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Invariant = function (imap) { - this.imap = imap; - }; - var imapF = function (__dict_Functor_33) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Prelude["const"])(Prelude.map(__dict_Functor_33)); - }; - var invariantArray = new Invariant(imapF(Prelude.functorArray)); - var invariantFn = new Invariant(imapF(Prelude.functorFn)); - var imap = function (dict) { - return dict.imap; - }; - return { - Invariant: Invariant, - imapF: imapF, - imap: imap, - invariantFn: invariantFn, - invariantArray: invariantArray - }; -})(); -var PS = PS || {}; -PS.Data_Monoid_Endo = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Functor_Invariant = PS.Data_Functor_Invariant; - var Data_Monoid = PS.Data_Monoid; - var Endo = function (x) { - return x; - }; - var semigroupEndo = new Prelude.Semigroup(function (_120) { - return function (_121) { - return Prelude["<<<"](Prelude.semigroupoidFn)(_120)(_121); - }; - }); - var runEndo = function (_118) { - return _118; - }; - var monoidEndo = new Data_Monoid.Monoid(function () { - return semigroupEndo; - }, Prelude.id(Prelude.categoryFn)); - var invariantEndo = new Data_Functor_Invariant.Invariant(function (ab) { - return function (ba) { - return function (_119) { - return Prelude["<<<"](Prelude.semigroupoidFn)(ab)(Prelude["<<<"](Prelude.semigroupoidFn)(_119)(ba)); - }; - }; - }); - return { - Endo: Endo, - runEndo: runEndo, - invariantEndo: invariantEndo, - semigroupEndo: semigroupEndo, - monoidEndo: monoidEndo - }; -})(); -var PS = PS || {}; -PS.Data_Functor = (function () { - "use strict"; - var Prelude = PS.Prelude; - var $less$dollar = function (__dict_Functor_34) { - return function (x) { - return function (f) { - return Prelude["<$>"](__dict_Functor_34)(Prelude["const"](x))(f); - }; - }; - }; - var $dollar$greater = function (__dict_Functor_35) { - return function (f) { - return function (x) { - return Prelude["<$>"](__dict_Functor_35)(Prelude["const"](x))(f); - }; - }; - }; - return { - "$>": $dollar$greater, - "<$": $less$dollar - }; -})(); -var PS = PS || {}; -PS.Data_Function = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports */ -"use strict"; - -// module Data.Function - -exports.mkFn0 = function (fn) { - return function () { - return fn({}); - }; -}; - -exports.mkFn1 = function (fn) { - return function (a) { - return fn(a); - }; -}; - -exports.mkFn2 = function (fn) { - /* jshint maxparams: 2 */ - return function (a, b) { - return fn(a)(b); - }; -}; - -exports.mkFn3 = function (fn) { - /* jshint maxparams: 3 */ - return function (a, b, c) { - return fn(a)(b)(c); - }; -}; - -exports.mkFn4 = function (fn) { - /* jshint maxparams: 4 */ - return function (a, b, c, d) { - return fn(a)(b)(c)(d); - }; -}; - -exports.mkFn5 = function (fn) { - /* jshint maxparams: 5 */ - return function (a, b, c, d, e) { - return fn(a)(b)(c)(d)(e); - }; -}; - -exports.mkFn6 = function (fn) { - /* jshint maxparams: 6 */ - return function (a, b, c, d, e, f) { - return fn(a)(b)(c)(d)(e)(f); - }; -}; - -exports.mkFn7 = function (fn) { - /* jshint maxparams: 7 */ - return function (a, b, c, d, e, f, g) { - return fn(a)(b)(c)(d)(e)(f)(g); - }; -}; - -exports.mkFn8 = function (fn) { - /* jshint maxparams: 8 */ - return function (a, b, c, d, e, f, g, h) { - return fn(a)(b)(c)(d)(e)(f)(g)(h); - }; -}; - -exports.mkFn9 = function (fn) { - /* jshint maxparams: 9 */ - return function (a, b, c, d, e, f, g, h, i) { - return fn(a)(b)(c)(d)(e)(f)(g)(h)(i); - }; -}; - -exports.mkFn10 = function (fn) { - /* jshint maxparams: 10 */ - return function (a, b, c, d, e, f, g, h, i, j) { - return fn(a)(b)(c)(d)(e)(f)(g)(h)(i)(j); - }; -}; - -exports.runFn0 = function (fn) { - return fn(); -}; - -exports.runFn1 = function (fn) { - return function (a) { - return fn(a); - }; -}; - -exports.runFn2 = function (fn) { - return function (a) { - return function (b) { - return fn(a, b); - }; - }; -}; - -exports.runFn3 = function (fn) { - return function (a) { - return function (b) { - return function (c) { - return fn(a, b, c); - }; - }; - }; -}; - -exports.runFn4 = function (fn) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return fn(a, b, c, d); - }; - }; - }; - }; -}; - -exports.runFn5 = function (fn) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return fn(a, b, c, d, e); - }; - }; - }; - }; - }; -}; - -exports.runFn6 = function (fn) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return fn(a, b, c, d, e, f); - }; - }; - }; - }; - }; - }; -}; - -exports.runFn7 = function (fn) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (g) { - return fn(a, b, c, d, e, f, g); - }; - }; - }; - }; - }; - }; - }; -}; - -exports.runFn8 = function (fn) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (g) { - return function (h) { - return fn(a, b, c, d, e, f, g, h); - }; - }; - }; - }; - }; - }; - }; - }; -}; - -exports.runFn9 = function (fn) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (g) { - return function (h) { - return function (i) { - return fn(a, b, c, d, e, f, g, h, i); - }; - }; - }; - }; - }; - }; - }; - }; - }; -}; - -exports.runFn10 = function (fn) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (g) { - return function (h) { - return function (i) { - return function (j) { - return fn(a, b, c, d, e, f, g, h, i, j); - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; -}; -; - return exports; - })(); - var Prelude = PS.Prelude; - var on = function (f) { - return function (g) { - return function (x) { - return function (y) { - return f(g(x))(g(y)); - }; - }; - }; - }; - return { - on: on, - runFn10: $foreign.runFn10, - runFn9: $foreign.runFn9, - runFn8: $foreign.runFn8, - runFn7: $foreign.runFn7, - runFn6: $foreign.runFn6, - runFn5: $foreign.runFn5, - runFn4: $foreign.runFn4, - runFn3: $foreign.runFn3, - runFn2: $foreign.runFn2, - runFn1: $foreign.runFn1, - runFn0: $foreign.runFn0, - mkFn10: $foreign.mkFn10, - mkFn9: $foreign.mkFn9, - mkFn8: $foreign.mkFn8, - mkFn7: $foreign.mkFn7, - mkFn6: $foreign.mkFn6, - mkFn5: $foreign.mkFn5, - mkFn4: $foreign.mkFn4, - mkFn3: $foreign.mkFn3, - mkFn2: $foreign.mkFn2, - mkFn1: $foreign.mkFn1, - mkFn0: $foreign.mkFn0 - }; -})(); -var PS = PS || {}; -PS.Data_Bifunctor = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Bifunctor = function (bimap) { - this.bimap = bimap; - }; - var bimap = function (dict) { - return dict.bimap; - }; - var lmap = function (__dict_Bifunctor_36) { - return function (f) { - return bimap(__dict_Bifunctor_36)(f)(Prelude.id(Prelude.categoryFn)); - }; - }; - var rmap = function (__dict_Bifunctor_37) { - return bimap(__dict_Bifunctor_37)(Prelude.id(Prelude.categoryFn)); - }; - return { - Bifunctor: Bifunctor, - rmap: rmap, - lmap: lmap, - bimap: bimap - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Trans = (function () { - "use strict"; - var Prelude = PS.Prelude; - var MonadTrans = function (lift) { - this.lift = lift; - }; - var lift = function (dict) { - return dict.lift; - }; - return { - MonadTrans: MonadTrans, - lift: lift - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Error = (function () { - "use strict"; - var Prelude = PS.Prelude; - var $$Error = function (noMsg, strMsg) { - this.noMsg = noMsg; - this.strMsg = strMsg; - }; - var strMsg = function (dict) { - return dict.strMsg; - }; - var noMsg = function (dict) { - return dict.noMsg; - }; - var errorString = new $$Error("", Prelude.id(Prelude.categoryFn)); - return { - "Error": $$Error, - strMsg: strMsg, - noMsg: noMsg, - errorString: errorString - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Eff = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports */ -"use strict"; - -// module Control.Monad.Eff - -exports.returnE = function (a) { - return function () { - return a; - }; -}; - -exports.bindE = function (a) { - return function (f) { - return function () { - return f(a())(); - }; - }; -}; - -exports.runPure = function (f) { - return f(); -}; - -exports.untilE = function (f) { - return function () { - while (!f()); - return {}; - }; -}; - -exports.whileE = function (f) { - return function (a) { - return function () { - while (f()) { - a(); - } - return {}; - }; - }; -}; - -exports.forE = function (lo) { - return function (hi) { - return function (f) { - return function () { - for (var i = lo; i < hi; i++) { - f(i)(); - } - }; - }; - }; -}; - -exports.foreachE = function (as) { - return function (f) { - return function () { - for (var i = 0, l = as.length; i < l; i++) { - f(as[i])(); - } - }; - }; -}; -; - return exports; - })(); - var Prelude = PS.Prelude; - var monadEff = new Prelude.Monad(function () { - return applicativeEff; - }, function () { - return bindEff; - }); - var bindEff = new Prelude.Bind(function () { - return applyEff; - }, $foreign.bindE); - var applyEff = new Prelude.Apply(function () { - return functorEff; - }, Prelude.ap(monadEff)); - var applicativeEff = new Prelude.Applicative(function () { - return applyEff; - }, $foreign.returnE); - var functorEff = new Prelude.Functor(Prelude.liftA1(applicativeEff)); - return { - functorEff: functorEff, - applyEff: applyEff, - applicativeEff: applicativeEff, - bindEff: bindEff, - monadEff: monadEff, - foreachE: $foreign.foreachE, - forE: $foreign.forE, - whileE: $foreign.whileE, - untilE: $foreign.untilE, - runPure: $foreign.runPure - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Eff_Class = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Monad_Eff = PS.Control_Monad_Eff; - var MonadEff = function (__superclass_Prelude$dotMonad_0, liftEff) { - this["__superclass_Prelude.Monad_0"] = __superclass_Prelude$dotMonad_0; - this.liftEff = liftEff; - }; - var monadEffEff = new MonadEff(function () { - return Control_Monad_Eff.monadEff; - }, Prelude.id(Prelude.categoryFn)); - var liftEff = function (dict) { - return dict.liftEff; - }; - return { - MonadEff: MonadEff, - liftEff: liftEff, - monadEffEff: monadEffEff - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Eff_Console = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports, console */ -"use strict"; - -// module Control.Monad.Eff.Console - -exports.log = function (s) { - return function () { - console.log(s); - return {}; - }; -}; - -exports.error = function (s) { - return function () { - console.error(s); - return {}; - }; -}; -; - return exports; - })(); - var Prelude = PS.Prelude; - var Control_Monad_Eff = PS.Control_Monad_Eff; - var print = function (__dict_Show_38) { - return Prelude["<<<"](Prelude.semigroupoidFn)($foreign.log)(Prelude.show(__dict_Show_38)); - }; - return { - print: print, - error: $foreign.error, - log: $foreign.log - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Eff_Exception = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports */ -"use strict"; - -// module Control.Monad.Eff.Exception - -exports.showErrorImpl = function (err) { - return err.stack || err.toString(); -}; - -exports.error = function (msg) { - return new Error(msg); -}; - -exports.message = function (e) { - return e.message; -}; - -exports.throwException = function (e) { - return function () { - throw e; - }; -}; - -exports.catchException = function (c) { - return function (t) { - return function () { - try { - return t(); - } catch (e) { - if (e instanceof Error || Object.prototype.toString.call(e) === "[object Error]") { - return c(e)(); - } else { - return c(new Error(e.toString()))(); - } - } - }; - }; -}; -; - return exports; - })(); - var Prelude = PS.Prelude; - var Control_Monad_Eff = PS.Control_Monad_Eff; - var showError = new Prelude.Show($foreign.showErrorImpl); - return { - showError: showError, - catchException: $foreign.catchException, - throwException: $foreign.throwException, - message: $foreign.message, - error: $foreign.error - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Eff_Unsafe = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports */ -"use strict"; - -// module Control.Monad.Eff.Unsafe - -exports.unsafeInterleaveEff = function (f) { - return f; -}; -; - return exports; - })(); - var Prelude = PS.Prelude; - var Control_Monad_Eff = PS.Control_Monad_Eff; - return { - unsafeInterleaveEff: $foreign.unsafeInterleaveEff - }; -})(); -var PS = PS || {}; -PS.Control_Monad_ST = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports */ -"use strict"; - -// module Control.Monad.ST - -exports.newSTRef = function (val) { - return function () { - return { value: val }; - }; -}; - -exports.readSTRef = function (ref) { - return function () { - return ref.value; - }; -}; - -exports.modifySTRef = function (ref) { - return function (f) { - return function () { - /* jshint boss: true */ - return ref.value = f(ref.value); - }; - }; -}; - -exports.writeSTRef = function (ref) { - return function (a) { - return function () { - /* jshint boss: true */ - return ref.value = a; - }; - }; -}; - -exports.runST = function (f) { - return f; -}; -; - return exports; - })(); - var Control_Monad_Eff = PS.Control_Monad_Eff; - var Prelude = PS.Prelude; - var pureST = function (st) { - return Control_Monad_Eff.runPure($foreign.runST(st)); - }; - return { - pureST: pureST, - runST: $foreign.runST, - writeSTRef: $foreign.writeSTRef, - modifySTRef: $foreign.modifySTRef, - readSTRef: $foreign.readSTRef, - newSTRef: $foreign.newSTRef - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Cont_Trans = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Monad_Trans = PS.Control_Monad_Trans; - var Control_Monad_Eff_Class = PS.Control_Monad_Eff_Class; - var ContT = function (x) { - return x; - }; - var runContT = function (_123) { - return function (k) { - return _123(k); - }; - }; - var withContT = function (f) { - return function (m) { - return function (k) { - return runContT(m)(f(k)); - }; - }; - }; - var monadTransContT = new Control_Monad_Trans.MonadTrans(function (__dict_Monad_39) { - return function (m) { - return function (k) { - return Prelude[">>="](__dict_Monad_39["__superclass_Prelude.Bind_1"]())(m)(k); - }; - }; - }); - var mapContT = function (f) { - return function (m) { - return function (k) { - return f(runContT(m)(k)); - }; - }; - }; - var functorContT = function (__dict_Monad_43) { - return new Prelude.Functor(function (f) { - return function (m) { - return function (k) { - return runContT(m)(function (a) { - return k(f(a)); - }); - }; - }; - }); - }; - var callCC = function (f) { - return function (k) { - return runContT(f(function (a) { - return function (_122) { - return k(a); - }; - }))(k); - }; - }; - var applyContT = function (__dict_Functor_45) { - return function (__dict_Monad_46) { - return new Prelude.Apply(function () { - return functorContT(__dict_Monad_46); - }, function (f) { - return function (v) { - return function (k) { - return runContT(f)(function (g) { - return runContT(v)(function (a) { - return k(g(a)); - }); - }); - }; - }; - }); - }; - }; - var bindContT = function (__dict_Monad_44) { - return new Prelude.Bind(function () { - return applyContT(((__dict_Monad_44["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(__dict_Monad_44); - }, function (m) { - return function (k) { - return function (k$prime) { - return runContT(m)(function (a) { - return runContT(k(a))(k$prime); - }); - }; - }; - }); - }; - var applicativeContT = function (__dict_Functor_47) { - return function (__dict_Monad_48) { - return new Prelude.Applicative(function () { - return applyContT(__dict_Functor_47)(__dict_Monad_48); - }, function (a) { - return function (k) { - return k(a); - }; - }); - }; - }; - var monadContT = function (__dict_Monad_42) { - return new Prelude.Monad(function () { - return applicativeContT(((__dict_Monad_42["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(__dict_Monad_42); - }, function () { - return bindContT(__dict_Monad_42); - }); - }; - var monadEffContT = function (__dict_Monad_40) { - return function (__dict_MonadEff_41) { - return new Control_Monad_Eff_Class.MonadEff(function () { - return monadContT(__dict_Monad_40); - }, Prelude["<<<"](Prelude.semigroupoidFn)(Control_Monad_Trans.lift(monadTransContT)(__dict_Monad_40))(Control_Monad_Eff_Class.liftEff(__dict_MonadEff_41))); - }; - }; - return { - ContT: ContT, - callCC: callCC, - withContT: withContT, - mapContT: mapContT, - runContT: runContT, - functorContT: functorContT, - applyContT: applyContT, - applicativeContT: applicativeContT, - bindContT: bindContT, - monadContT: monadContT, - monadTransContT: monadTransContT, - monadEffContT: monadEffContT - }; -})(); -var PS = PS || {}; -PS.Control_Monad = (function () { - "use strict"; - var Prelude = PS.Prelude; - var when = function (__dict_Monad_49) { - return function (_124) { - return function (m) { - if (_124) { - return m; - }; - if (!_124) { - return Prelude["return"](__dict_Monad_49["__superclass_Prelude.Applicative_0"]())(Prelude.unit); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-control/src/Control/Monad.purs line 8, column 1 - line 9, column 1: " + [ _124.constructor.name, m.constructor.name ]); - }; - }; - }; - var unless = function (__dict_Monad_50) { - return function (_125) { - return function (m) { - if (!_125) { - return m; - }; - if (_125) { - return Prelude["return"](__dict_Monad_50["__superclass_Prelude.Applicative_0"]())(Prelude.unit); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-control/src/Control/Monad.purs line 13, column 1 - line 14, column 1: " + [ _125.constructor.name, m.constructor.name ]); - }; - }; - }; - return { - unless: unless, - when: when - }; -})(); -var PS = PS || {}; -PS.Control_Lazy = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Lazy = function (defer) { - this.defer = defer; - }; - var defer = function (dict) { - return dict.defer; - }; - var fix = function (__dict_Lazy_51) { - return function (f) { - return defer(__dict_Lazy_51)(function (_126) { - return f(fix(__dict_Lazy_51)(f)); - }); - }; - }; - return { - Lazy: Lazy, - fix: fix, - defer: defer - }; -})(); -var PS = PS || {}; -PS.Control_Extend = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Extend = function (__superclass_Prelude$dotFunctor_0, extend) { - this["__superclass_Prelude.Functor_0"] = __superclass_Prelude$dotFunctor_0; - this.extend = extend; - }; - var extendFn = function (__dict_Semigroup_52) { - return new Extend(function () { - return Prelude.functorFn; - }, function (f) { - return function (g) { - return function (w) { - return f(function (w$prime) { - return g(Prelude["<>"](__dict_Semigroup_52)(w)(w$prime)); - }); - }; - }; - }); - }; - var extend = function (dict) { - return dict.extend; - }; - var $less$less$eq = function (__dict_Extend_53) { - return extend(__dict_Extend_53); - }; - var $eq$less$eq = function (__dict_Extend_54) { - return function (f) { - return function (g) { - return function (w) { - return f($less$less$eq(__dict_Extend_54)(g)(w)); - }; - }; - }; - }; - var $eq$greater$eq = function (__dict_Extend_55) { - return function (f) { - return function (g) { - return function (w) { - return g($less$less$eq(__dict_Extend_55)(f)(w)); - }; - }; - }; - }; - var $eq$greater$greater = function (__dict_Extend_56) { - return function (w) { - return function (f) { - return $less$less$eq(__dict_Extend_56)(f)(w); - }; - }; - }; - var duplicate = function (__dict_Extend_57) { - return extend(__dict_Extend_57)(Prelude.id(Prelude.categoryFn)); - }; - return { - Extend: Extend, - duplicate: duplicate, - "=<=": $eq$less$eq, - "=>=": $eq$greater$eq, - "=>>": $eq$greater$greater, - "<<=": $less$less$eq, - extend: extend, - extendFn: extendFn - }; -})(); -var PS = PS || {}; -PS.Control_Comonad = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Extend = PS.Control_Extend; - var Comonad = function (__superclass_Control$dotExtend$dotExtend_0, extract) { - this["__superclass_Control.Extend.Extend_0"] = __superclass_Control$dotExtend$dotExtend_0; - this.extract = extract; - }; - var extract = function (dict) { - return dict.extract; - }; - return { - Comonad: Comonad, - extract: extract - }; -})(); -var PS = PS || {}; -PS.Control_Comonad_Trans = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Comonad = PS.Control_Comonad; - var ComonadTrans = function (lower) { - this.lower = lower; - }; - var lower = function (dict) { - return dict.lower; - }; - return { - ComonadTrans: ComonadTrans, - lower: lower - }; -})(); -var PS = PS || {}; -PS.Data_Lazy = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports */ -"use strict"; - -// module Data.Lazy - -exports.defer = function () { - - function Defer (thunk) { - if (this instanceof Defer) { - this.thunk = thunk; - return this; - } else { - return new Defer(thunk); - } - } - - Defer.prototype.force = function () { - var value = this.thunk(); - delete this.thunk; - this.force = function () { - return value; - }; - return value; - }; - - return Defer; - -}(); - -exports.force = function (l) { - return l.force(); -}; -; - return exports; - })(); - var Prelude = PS.Prelude; - var Data_Monoid = PS.Data_Monoid; - var Control_Comonad = PS.Control_Comonad; - var Control_Extend = PS.Control_Extend; - var Control_Lazy = PS.Control_Lazy; - var showLazy = function (__dict_Show_58) { - return new Prelude.Show(function (x) { - return "Lazy " + Prelude.show(__dict_Show_58)($foreign.force(x)); - }); - }; - var semiringLazy = function (__dict_Semiring_59) { - return new Prelude.Semiring(function (a) { - return function (b) { - return $foreign.defer(function (_127) { - return Prelude["+"](__dict_Semiring_59)($foreign.force(a))($foreign.force(b)); - }); - }; - }, function (a) { - return function (b) { - return $foreign.defer(function (_129) { - return Prelude["*"](__dict_Semiring_59)($foreign.force(a))($foreign.force(b)); - }); - }; - }, $foreign.defer(function (_130) { - return Prelude.one(__dict_Semiring_59); - }), $foreign.defer(function (_128) { - return Prelude.zero(__dict_Semiring_59); - })); - }; - var semigroupLazy = function (__dict_Semigroup_60) { - return new Prelude.Semigroup(function (a) { - return function (b) { - return $foreign.defer(function (_136) { - return Prelude["<>"](__dict_Semigroup_60)($foreign.force(a))($foreign.force(b)); - }); - }; - }); - }; - var ringLazy = function (__dict_Ring_61) { - return new Prelude.Ring(function () { - return semiringLazy(__dict_Ring_61["__superclass_Prelude.Semiring_0"]()); - }, function (a) { - return function (b) { - return $foreign.defer(function (_131) { - return Prelude["-"](__dict_Ring_61)($foreign.force(a))($foreign.force(b)); - }); - }; - }); - }; - var monoidLazy = function (__dict_Monoid_64) { - return new Data_Monoid.Monoid(function () { - return semigroupLazy(__dict_Monoid_64["__superclass_Prelude.Semigroup_0"]()); - }, $foreign.defer(function (_137) { - return Data_Monoid.mempty(__dict_Monoid_64); - })); - }; - var moduloSemiringLazy = function (__dict_ModuloSemiring_65) { - return new Prelude.ModuloSemiring(function () { - return semiringLazy(__dict_ModuloSemiring_65["__superclass_Prelude.Semiring_0"]()); - }, function (a) { - return function (b) { - return $foreign.defer(function (_132) { - return Prelude["/"](__dict_ModuloSemiring_65)($foreign.force(a))($foreign.force(b)); - }); - }; - }, function (a) { - return function (b) { - return $foreign.defer(function (_133) { - return Prelude.mod(__dict_ModuloSemiring_65)($foreign.force(a))($foreign.force(b)); - }); - }; - }); - }; - var lazyLazy = new Control_Lazy.Lazy(function (f) { - return $foreign.defer(function (_143) { - return $foreign.force(f(Prelude.unit)); - }); - }); - var functorLazy = new Prelude.Functor(function (f) { - return function (l) { - return $foreign.defer(function (_138) { - return f($foreign.force(l)); - }); - }; - }); - var extendLazy = new Control_Extend.Extend(function () { - return functorLazy; - }, function (f) { - return function (x) { - return $foreign.defer(function (_142) { - return f(x); - }); - }; - }); - var eqLazy = function (__dict_Eq_66) { - return new Prelude.Eq(function (x) { - return function (y) { - return Prelude["=="](__dict_Eq_66)($foreign.force(x))($foreign.force(y)); - }; - }); - }; - var ordLazy = function (__dict_Ord_62) { - return new Prelude.Ord(function () { - return eqLazy(__dict_Ord_62["__superclass_Prelude.Eq_0"]()); - }, function (x) { - return function (y) { - return Prelude.compare(__dict_Ord_62)($foreign.force(x))($foreign.force(y)); - }; - }); - }; - var divisionRingLazy = function (__dict_DivisionRing_67) { - return new Prelude.DivisionRing(function () { - return moduloSemiringLazy(__dict_DivisionRing_67["__superclass_Prelude.ModuloSemiring_1"]()); - }, function () { - return ringLazy(__dict_DivisionRing_67["__superclass_Prelude.Ring_0"]()); - }); - }; - var numLazy = function (__dict_Num_63) { - return new Prelude.Num(function () { - return divisionRingLazy(__dict_Num_63["__superclass_Prelude.DivisionRing_0"]()); - }); - }; - var comonadLazy = new Control_Comonad.Comonad(function () { - return extendLazy; - }, $foreign.force); - var boundedLazy = function (__dict_Bounded_69) { - return new Prelude.Bounded($foreign.defer(function (_135) { - return Prelude.bottom(__dict_Bounded_69); - }), $foreign.defer(function (_134) { - return Prelude.top(__dict_Bounded_69); - })); - }; - var boundedOrdLazy = function (__dict_BoundedOrd_68) { - return new Prelude.BoundedOrd(function () { - return boundedLazy(__dict_BoundedOrd_68["__superclass_Prelude.Bounded_0"]()); - }, function () { - return ordLazy(__dict_BoundedOrd_68["__superclass_Prelude.Ord_1"]()); - }); - }; - var applyLazy = new Prelude.Apply(function () { - return functorLazy; - }, function (f) { - return function (x) { - return $foreign.defer(function (_139) { - return $foreign.force(f)($foreign.force(x)); - }); - }; - }); - var bindLazy = new Prelude.Bind(function () { - return applyLazy; - }, function (l) { - return function (f) { - return $foreign.defer(function (_141) { - return Prelude["<<<"](Prelude.semigroupoidFn)($foreign.force)(Prelude["<<<"](Prelude.semigroupoidFn)(f)($foreign.force))(l); - }); - }; - }); - var booleanAlgebraLazy = function (__dict_BooleanAlgebra_70) { - return new Prelude.BooleanAlgebra(function () { - return boundedLazy(__dict_BooleanAlgebra_70["__superclass_Prelude.Bounded_0"]()); - }, function (a) { - return function (b) { - return Prelude["<*>"](applyLazy)(Prelude["<$>"](functorLazy)(Prelude.conj(__dict_BooleanAlgebra_70))(a))(b); - }; - }, function (a) { - return function (b) { - return Prelude["<*>"](applyLazy)(Prelude["<$>"](functorLazy)(Prelude.disj(__dict_BooleanAlgebra_70))(a))(b); - }; - }, function (a) { - return Prelude["<$>"](functorLazy)(Prelude.not(__dict_BooleanAlgebra_70))(a); - }); - }; - var applicativeLazy = new Prelude.Applicative(function () { - return applyLazy; - }, function (a) { - return $foreign.defer(function (_140) { - return a; - }); - }); - var monadLazy = new Prelude.Monad(function () { - return applicativeLazy; - }, function () { - return bindLazy; - }); - return { - semiringLazy: semiringLazy, - ringLazy: ringLazy, - moduloSemiringLazy: moduloSemiringLazy, - divisionRingLazy: divisionRingLazy, - numLazy: numLazy, - eqLazy: eqLazy, - ordLazy: ordLazy, - boundedLazy: boundedLazy, - boundedOrdLazy: boundedOrdLazy, - semigroupLazy: semigroupLazy, - monoidLazy: monoidLazy, - booleanAlgebraLazy: booleanAlgebraLazy, - functorLazy: functorLazy, - applyLazy: applyLazy, - applicativeLazy: applicativeLazy, - bindLazy: bindLazy, - monadLazy: monadLazy, - extendLazy: extendLazy, - comonadLazy: comonadLazy, - showLazy: showLazy, - lazyLazy: lazyLazy, - force: $foreign.force, - defer: $foreign.defer - }; -})(); -var PS = PS || {}; -PS.Data_Monoid_Additive = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Comonad = PS.Control_Comonad; - var Control_Extend = PS.Control_Extend; - var Data_Functor_Invariant = PS.Data_Functor_Invariant; - var Data_Monoid = PS.Data_Monoid; - var Additive = function (x) { - return x; - }; - var showAdditive = function (__dict_Show_71) { - return new Prelude.Show(function (_155) { - return "Additive (" + (Prelude.show(__dict_Show_71)(_155) + ")"); - }); - }; - var semigroupAdditive = function (__dict_Semiring_72) { - return new Prelude.Semigroup(function (_156) { - return function (_157) { - return Prelude["+"](__dict_Semiring_72)(_156)(_157); - }; - }); - }; - var runAdditive = function (_144) { - return _144; - }; - var monoidAdditive = function (__dict_Semiring_74) { - return new Data_Monoid.Monoid(function () { - return semigroupAdditive(__dict_Semiring_74); - }, Prelude.zero(__dict_Semiring_74)); - }; - var invariantAdditive = new Data_Functor_Invariant.Invariant(function (f) { - return function (_153) { - return function (_154) { - return f(_154); - }; - }; - }); - var functorAdditive = new Prelude.Functor(function (f) { - return function (_149) { - return f(_149); - }; - }); - var extendAdditive = new Control_Extend.Extend(function () { - return functorAdditive; - }, function (f) { - return function (x) { - return f(x); - }; - }); - var eqAdditive = function (__dict_Eq_75) { - return new Prelude.Eq(function (_145) { - return function (_146) { - return Prelude["=="](__dict_Eq_75)(_145)(_146); - }; - }); - }; - var ordAdditive = function (__dict_Ord_73) { - return new Prelude.Ord(function () { - return eqAdditive(__dict_Ord_73["__superclass_Prelude.Eq_0"]()); - }, function (_147) { - return function (_148) { - return Prelude.compare(__dict_Ord_73)(_147)(_148); - }; - }); - }; - var comonadAdditive = new Control_Comonad.Comonad(function () { - return extendAdditive; - }, runAdditive); - var applyAdditive = new Prelude.Apply(function () { - return functorAdditive; - }, function (_150) { - return function (_151) { - return _150(_151); - }; - }); - var bindAdditive = new Prelude.Bind(function () { - return applyAdditive; - }, function (_152) { - return function (f) { - return f(_152); - }; - }); - var applicativeAdditive = new Prelude.Applicative(function () { - return applyAdditive; - }, Additive); - var monadAdditive = new Prelude.Monad(function () { - return applicativeAdditive; - }, function () { - return bindAdditive; - }); - return { - Additive: Additive, - runAdditive: runAdditive, - eqAdditive: eqAdditive, - ordAdditive: ordAdditive, - functorAdditive: functorAdditive, - applyAdditive: applyAdditive, - applicativeAdditive: applicativeAdditive, - bindAdditive: bindAdditive, - monadAdditive: monadAdditive, - extendAdditive: extendAdditive, - comonadAdditive: comonadAdditive, - invariantAdditive: invariantAdditive, - showAdditive: showAdditive, - semigroupAdditive: semigroupAdditive, - monoidAdditive: monoidAdditive - }; -})(); -var PS = PS || {}; -PS.Data_Monoid_Conj = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Comonad = PS.Control_Comonad; - var Control_Extend = PS.Control_Extend; - var Data_Monoid = PS.Data_Monoid; - var Conj = function (x) { - return x; - }; - var showConj = function (__dict_Show_76) { - return new Prelude.Show(function (_167) { - return "Conj (" + (Prelude.show(__dict_Show_76)(_167) + ")"); - }); - }; - var semigroupConj = function (__dict_BooleanAlgebra_77) { - return new Prelude.Semigroup(function (_168) { - return function (_169) { - return Prelude.conj(__dict_BooleanAlgebra_77)(_168)(_169); - }; - }); - }; - var runConj = function (_158) { - return _158; - }; - var monoidConj = function (__dict_BooleanAlgebra_79) { - return new Data_Monoid.Monoid(function () { - return semigroupConj(__dict_BooleanAlgebra_79); - }, Prelude.top(__dict_BooleanAlgebra_79["__superclass_Prelude.Bounded_0"]())); - }; - var functorConj = new Prelude.Functor(function (f) { - return function (_163) { - return f(_163); - }; - }); - var extendConj = new Control_Extend.Extend(function () { - return functorConj; - }, function (f) { - return function (x) { - return f(x); - }; - }); - var eqConj = function (__dict_Eq_80) { - return new Prelude.Eq(function (_159) { - return function (_160) { - return Prelude["=="](__dict_Eq_80)(_159)(_160); - }; - }); - }; - var ordConj = function (__dict_Ord_78) { - return new Prelude.Ord(function () { - return eqConj(__dict_Ord_78["__superclass_Prelude.Eq_0"]()); - }, function (_161) { - return function (_162) { - return Prelude.compare(__dict_Ord_78)(_161)(_162); - }; - }); - }; - var comonadConj = new Control_Comonad.Comonad(function () { - return extendConj; - }, runConj); - var boundedConj = function (__dict_Bounded_81) { - return new Prelude.Bounded(Prelude.bottom(__dict_Bounded_81), Prelude.top(__dict_Bounded_81)); - }; - var applyConj = new Prelude.Apply(function () { - return functorConj; - }, function (_164) { - return function (_165) { - return _164(_165); - }; - }); - var bindConj = new Prelude.Bind(function () { - return applyConj; - }, function (_166) { - return function (f) { - return f(_166); - }; - }); - var applicativeConj = new Prelude.Applicative(function () { - return applyConj; - }, Conj); - var monadConj = new Prelude.Monad(function () { - return applicativeConj; - }, function () { - return bindConj; - }); - return { - Conj: Conj, - runConj: runConj, - eqConj: eqConj, - ordConj: ordConj, - boundedConj: boundedConj, - functorConj: functorConj, - applyConj: applyConj, - applicativeConj: applicativeConj, - bindConj: bindConj, - monadConj: monadConj, - extendConj: extendConj, - comonadConj: comonadConj, - showConj: showConj, - semigroupConj: semigroupConj, - monoidConj: monoidConj - }; -})(); -var PS = PS || {}; -PS.Data_Monoid_Disj = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Comonad = PS.Control_Comonad; - var Control_Extend = PS.Control_Extend; - var Data_Monoid = PS.Data_Monoid; - var Disj = function (x) { - return x; - }; - var showDisj = function (__dict_Show_82) { - return new Prelude.Show(function (_179) { - return "Disj (" + (Prelude.show(__dict_Show_82)(_179) + ")"); - }); - }; - var semigroupDisj = function (__dict_BooleanAlgebra_83) { - return new Prelude.Semigroup(function (_180) { - return function (_181) { - return Prelude.disj(__dict_BooleanAlgebra_83)(_180)(_181); - }; - }); - }; - var runDisj = function (_170) { - return _170; - }; - var monoidDisj = function (__dict_BooleanAlgebra_85) { - return new Data_Monoid.Monoid(function () { - return semigroupDisj(__dict_BooleanAlgebra_85); - }, Prelude.bottom(__dict_BooleanAlgebra_85["__superclass_Prelude.Bounded_0"]())); - }; - var functorDisj = new Prelude.Functor(function (f) { - return function (_175) { - return f(_175); - }; - }); - var extendDisj = new Control_Extend.Extend(function () { - return functorDisj; - }, function (f) { - return function (x) { - return f(x); - }; - }); - var eqDisj = function (__dict_Eq_86) { - return new Prelude.Eq(function (_171) { - return function (_172) { - return Prelude["=="](__dict_Eq_86)(_171)(_172); - }; - }); - }; - var ordDisj = function (__dict_Ord_84) { - return new Prelude.Ord(function () { - return eqDisj(__dict_Ord_84["__superclass_Prelude.Eq_0"]()); - }, function (_173) { - return function (_174) { - return Prelude.compare(__dict_Ord_84)(_173)(_174); - }; - }); - }; - var comonadDisj = new Control_Comonad.Comonad(function () { - return extendDisj; - }, runDisj); - var boundedDisj = function (__dict_Bounded_87) { - return new Prelude.Bounded(Prelude.bottom(__dict_Bounded_87), Prelude.top(__dict_Bounded_87)); - }; - var applyDisj = new Prelude.Apply(function () { - return functorDisj; - }, function (_176) { - return function (_177) { - return _176(_177); - }; - }); - var bindDisj = new Prelude.Bind(function () { - return applyDisj; - }, function (_178) { - return function (f) { - return f(_178); - }; - }); - var applicativeDisj = new Prelude.Applicative(function () { - return applyDisj; - }, Disj); - var monadDisj = new Prelude.Monad(function () { - return applicativeDisj; - }, function () { - return bindDisj; - }); - return { - Disj: Disj, - runDisj: runDisj, - eqDisj: eqDisj, - ordDisj: ordDisj, - boundedDisj: boundedDisj, - functorDisj: functorDisj, - applyDisj: applyDisj, - applicativeDisj: applicativeDisj, - bindDisj: bindDisj, - monadDisj: monadDisj, - extendDisj: extendDisj, - comonadDisj: comonadDisj, - showDisj: showDisj, - semigroupDisj: semigroupDisj, - monoidDisj: monoidDisj - }; -})(); -var PS = PS || {}; -PS.Data_Monoid_Dual = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Monoid = PS.Data_Monoid; - var Control_Comonad = PS.Control_Comonad; - var Control_Extend = PS.Control_Extend; - var Data_Functor_Invariant = PS.Data_Functor_Invariant; - var Dual = function (x) { - return x; - }; - var showDual = function (__dict_Show_88) { - return new Prelude.Show(function (_193) { - return "Dual (" + (Prelude.show(__dict_Show_88)(_193) + ")"); - }); - }; - var semigroupDual = function (__dict_Semigroup_89) { - return new Prelude.Semigroup(function (_194) { - return function (_195) { - return Prelude["<>"](__dict_Semigroup_89)(_195)(_194); - }; - }); - }; - var runDual = function (_182) { - return _182; - }; - var monoidDual = function (__dict_Monoid_91) { - return new Data_Monoid.Monoid(function () { - return semigroupDual(__dict_Monoid_91["__superclass_Prelude.Semigroup_0"]()); - }, Data_Monoid.mempty(__dict_Monoid_91)); - }; - var invariantDual = new Data_Functor_Invariant.Invariant(function (f) { - return function (_191) { - return function (_192) { - return f(_192); - }; - }; - }); - var functorDual = new Prelude.Functor(function (f) { - return function (_187) { - return f(_187); - }; - }); - var extendDual = new Control_Extend.Extend(function () { - return functorDual; - }, function (f) { - return function (x) { - return f(x); - }; - }); - var eqDual = function (__dict_Eq_92) { - return new Prelude.Eq(function (_183) { - return function (_184) { - return Prelude["=="](__dict_Eq_92)(_183)(_184); - }; - }); - }; - var ordDual = function (__dict_Ord_90) { - return new Prelude.Ord(function () { - return eqDual(__dict_Ord_90["__superclass_Prelude.Eq_0"]()); - }, function (_185) { - return function (_186) { - return Prelude.compare(__dict_Ord_90)(_185)(_186); - }; - }); - }; - var comonadDual = new Control_Comonad.Comonad(function () { - return extendDual; - }, runDual); - var applyDual = new Prelude.Apply(function () { - return functorDual; - }, function (_188) { - return function (_189) { - return _188(_189); - }; - }); - var bindDual = new Prelude.Bind(function () { - return applyDual; - }, function (_190) { - return function (f) { - return f(_190); - }; - }); - var applicativeDual = new Prelude.Applicative(function () { - return applyDual; - }, Dual); - var monadDual = new Prelude.Monad(function () { - return applicativeDual; - }, function () { - return bindDual; - }); - return { - Dual: Dual, - runDual: runDual, - eqDual: eqDual, - ordDual: ordDual, - functorDual: functorDual, - applyDual: applyDual, - applicativeDual: applicativeDual, - bindDual: bindDual, - monadDual: monadDual, - extendDual: extendDual, - comonadDual: comonadDual, - invariantDual: invariantDual, - showDual: showDual, - semigroupDual: semigroupDual, - monoidDual: monoidDual - }; -})(); -var PS = PS || {}; -PS.Data_Monoid_Multiplicative = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Comonad = PS.Control_Comonad; - var Control_Extend = PS.Control_Extend; - var Data_Functor_Invariant = PS.Data_Functor_Invariant; - var Data_Monoid = PS.Data_Monoid; - var Multiplicative = function (x) { - return x; - }; - var showMultiplicative = function (__dict_Show_93) { - return new Prelude.Show(function (_207) { - return "Multiplicative (" + (Prelude.show(__dict_Show_93)(_207) + ")"); - }); - }; - var semigroupMultiplicative = function (__dict_Semiring_94) { - return new Prelude.Semigroup(function (_208) { - return function (_209) { - return Prelude["*"](__dict_Semiring_94)(_208)(_209); - }; - }); - }; - var runMultiplicative = function (_196) { - return _196; - }; - var monoidMultiplicative = function (__dict_Semiring_96) { - return new Data_Monoid.Monoid(function () { - return semigroupMultiplicative(__dict_Semiring_96); - }, Prelude.one(__dict_Semiring_96)); - }; - var invariantMultiplicative = new Data_Functor_Invariant.Invariant(function (f) { - return function (_205) { - return function (_206) { - return f(_206); - }; - }; - }); - var functorMultiplicative = new Prelude.Functor(function (f) { - return function (_201) { - return f(_201); - }; - }); - var extendMultiplicative = new Control_Extend.Extend(function () { - return functorMultiplicative; - }, function (f) { - return function (x) { - return f(x); - }; - }); - var eqMultiplicative = function (__dict_Eq_97) { - return new Prelude.Eq(function (_197) { - return function (_198) { - return Prelude["=="](__dict_Eq_97)(_197)(_198); - }; - }); - }; - var ordMultiplicative = function (__dict_Ord_95) { - return new Prelude.Ord(function () { - return eqMultiplicative(__dict_Ord_95["__superclass_Prelude.Eq_0"]()); - }, function (_199) { - return function (_200) { - return Prelude.compare(__dict_Ord_95)(_199)(_200); - }; - }); - }; - var comonadMultiplicative = new Control_Comonad.Comonad(function () { - return extendMultiplicative; - }, runMultiplicative); - var applyMultiplicative = new Prelude.Apply(function () { - return functorMultiplicative; - }, function (_202) { - return function (_203) { - return _202(_203); - }; - }); - var bindMultiplicative = new Prelude.Bind(function () { - return applyMultiplicative; - }, function (_204) { - return function (f) { - return f(_204); - }; - }); - var applicativeMultiplicative = new Prelude.Applicative(function () { - return applyMultiplicative; - }, Multiplicative); - var monadMultiplicative = new Prelude.Monad(function () { - return applicativeMultiplicative; - }, function () { - return bindMultiplicative; - }); - return { - Multiplicative: Multiplicative, - runMultiplicative: runMultiplicative, - eqMultiplicative: eqMultiplicative, - ordMultiplicative: ordMultiplicative, - functorMultiplicative: functorMultiplicative, - applyMultiplicative: applyMultiplicative, - applicativeMultiplicative: applicativeMultiplicative, - bindMultiplicative: bindMultiplicative, - monadMultiplicative: monadMultiplicative, - extendMultiplicative: extendMultiplicative, - comonadMultiplicative: comonadMultiplicative, - invariantMultiplicative: invariantMultiplicative, - showMultiplicative: showMultiplicative, - semigroupMultiplicative: semigroupMultiplicative, - monoidMultiplicative: monoidMultiplicative - }; -})(); -var PS = PS || {}; -PS.Control_Bind = (function () { - "use strict"; - var Prelude = PS.Prelude; - var $greater$eq$greater = function (__dict_Bind_98) { - return function (f) { - return function (g) { - return function (a) { - return Prelude[">>="](__dict_Bind_98)(f(a))(g); - }; - }; - }; - }; - var $eq$less$less = function (__dict_Bind_99) { - return function (f) { - return function (m) { - return Prelude[">>="](__dict_Bind_99)(m)(f); - }; - }; - }; - var $less$eq$less = function (__dict_Bind_100) { - return function (f) { - return function (g) { - return function (a) { - return $eq$less$less(__dict_Bind_100)(f)(g(a)); - }; - }; - }; - }; - var join = function (__dict_Bind_101) { - return function (m) { - return Prelude[">>="](__dict_Bind_101)(m)(Prelude.id(Prelude.categoryFn)); - }; - }; - var ifM = function (__dict_Bind_102) { - return function (cond) { - return function (t) { - return function (f) { - return Prelude[">>="](__dict_Bind_102)(cond)(function (cond$prime) { - if (cond$prime) { - return t; - }; - if (!cond$prime) { - return f; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-control/src/Control/Bind.purs line 44, column 1 - line 45, column 1: " + [ cond$prime.constructor.name ]); - }); - }; - }; - }; - }; - return { - ifM: ifM, - join: join, - "<=<": $less$eq$less, - ">=>": $greater$eq$greater, - "=<<": $eq$less$less - }; -})(); -var PS = PS || {}; -PS.Control_Biapply = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Bifunctor = PS.Data_Bifunctor; - var Biapply = function (__superclass_Data$dotBifunctor$dotBifunctor_0, biapply) { - this["__superclass_Data.Bifunctor.Bifunctor_0"] = __superclass_Data$dotBifunctor$dotBifunctor_0; - this.biapply = biapply; - }; - var $less$less$dollar$greater$greater = Prelude.id(Prelude.categoryFn); - var biapply = function (dict) { - return dict.biapply; - }; - var $less$less$times$greater$greater = function (__dict_Biapply_103) { - return biapply(__dict_Biapply_103); - }; - var bilift2 = function (__dict_Biapply_104) { - return function (f) { - return function (g) { - return function (a) { - return function (b) { - return $less$less$times$greater$greater(__dict_Biapply_104)($less$less$dollar$greater$greater(Data_Bifunctor.bimap(__dict_Biapply_104["__superclass_Data.Bifunctor.Bifunctor_0"]())(f)(g))(a))(b); - }; - }; - }; - }; - }; - var bilift3 = function (__dict_Biapply_105) { - return function (f) { - return function (g) { - return function (a) { - return function (b) { - return function (c) { - return $less$less$times$greater$greater(__dict_Biapply_105)($less$less$times$greater$greater(__dict_Biapply_105)($less$less$dollar$greater$greater(Data_Bifunctor.bimap(__dict_Biapply_105["__superclass_Data.Bifunctor.Bifunctor_0"]())(f)(g))(a))(b))(c); - }; - }; - }; - }; - }; - }; - var $times$greater$greater = function (__dict_Biapply_106) { - return function (a) { - return function (b) { - return $less$less$times$greater$greater(__dict_Biapply_106)($less$less$dollar$greater$greater(Data_Bifunctor.bimap(__dict_Biapply_106["__superclass_Data.Bifunctor.Bifunctor_0"]())(Prelude["const"](Prelude.id(Prelude.categoryFn)))(Prelude["const"](Prelude.id(Prelude.categoryFn))))(a))(b); - }; - }; - }; - var $less$less$times = function (__dict_Biapply_107) { - return function (a) { - return function (b) { - return $less$less$times$greater$greater(__dict_Biapply_107)($less$less$dollar$greater$greater(Data_Bifunctor.bimap(__dict_Biapply_107["__superclass_Data.Bifunctor.Bifunctor_0"]())(Prelude["const"])(Prelude["const"]))(a))(b); - }; - }; - }; - return { - Biapply: Biapply, - bilift3: bilift3, - bilift2: bilift2, - "<<*": $less$less$times, - "*>>": $times$greater$greater, - "<<*>>": $less$less$times$greater$greater, - biapply: biapply, - "<<$>>": $less$less$dollar$greater$greater - }; -})(); -var PS = PS || {}; -PS.Control_Biapplicative = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Biapply = PS.Control_Biapply; - var Biapplicative = function (__superclass_Control$dotBiapply$dotBiapply_0, bipure) { - this["__superclass_Control.Biapply.Biapply_0"] = __superclass_Control$dotBiapply$dotBiapply_0; - this.bipure = bipure; - }; - var bipure = function (dict) { - return dict.bipure; - }; - return { - Biapplicative: Biapplicative, - bipure: bipure - }; -})(); -var PS = PS || {}; -PS.Data_Bifunctor_Clown = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Biapplicative = PS.Control_Biapplicative; - var Control_Biapply = PS.Control_Biapply; - var Data_Bifunctor = PS.Data_Bifunctor; - var Clown = (function () { - function Clown(value0) { - this.value0 = value0; - }; - Clown.create = function (value0) { - return new Clown(value0); - }; - return Clown; - })(); - var runClown = function (_210) { - return _210.value0; - }; - var clownFunctor = new Prelude.Functor(function (_212) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Clown.create)(runClown); - }); - var clownBifunctor = function (__dict_Functor_108) { - return new Data_Bifunctor.Bifunctor(function (f) { - return function (_211) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Clown.create)(Prelude["<<<"](Prelude.semigroupoidFn)(Prelude.map(__dict_Functor_108)(f))(runClown)); - }; - }); - }; - var clownBiapply = function (__dict_Apply_109) { - return new Control_Biapply.Biapply(function () { - return clownBifunctor(__dict_Apply_109["__superclass_Prelude.Functor_0"]()); - }, function (_213) { - return function (_214) { - return new Clown(Prelude["<*>"](__dict_Apply_109)(_213.value0)(_214.value0)); - }; - }); - }; - var clownBiapplicative = function (__dict_Applicative_110) { - return new Control_Biapplicative.Biapplicative(function () { - return clownBiapply(__dict_Applicative_110["__superclass_Prelude.Apply_0"]()); - }, function (a) { - return function (_215) { - return new Clown(Prelude.pure(__dict_Applicative_110)(a)); - }; - }); - }; - return { - Clown: Clown, - runClown: runClown, - clownBifunctor: clownBifunctor, - clownFunctor: clownFunctor, - clownBiapply: clownBiapply, - clownBiapplicative: clownBiapplicative - }; -})(); -var PS = PS || {}; -PS.Data_Bifunctor_Flip = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Bifunctor = PS.Data_Bifunctor; - var Control_Biapply = PS.Control_Biapply; - var Control_Biapplicative = PS.Control_Biapplicative; - var Flip = (function () { - function Flip(value0) { - this.value0 = value0; - }; - Flip.create = function (value0) { - return new Flip(value0); - }; - return Flip; - })(); - var runFlip = function (_216) { - return _216.value0; - }; - var flipFunctor = function (__dict_Bifunctor_111) { - return new Prelude.Functor(function (f) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Flip.create)(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Bifunctor.lmap(__dict_Bifunctor_111)(f))(runFlip)); - }); - }; - var flipBifunctor = function (__dict_Bifunctor_112) { - return new Data_Bifunctor.Bifunctor(function (f) { - return function (g) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Flip.create)(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Bifunctor.bimap(__dict_Bifunctor_112)(g)(f))(runFlip)); - }; - }); - }; - var flipBiapply = function (__dict_Biapply_113) { - return new Control_Biapply.Biapply(function () { - return flipBifunctor(__dict_Biapply_113["__superclass_Data.Bifunctor.Bifunctor_0"]()); - }, function (_217) { - return function (_218) { - return new Flip(Control_Biapply["<<*>>"](__dict_Biapply_113)(_217.value0)(_218.value0)); - }; - }); - }; - var flipBiapplicative = function (__dict_Biapplicative_114) { - return new Control_Biapplicative.Biapplicative(function () { - return flipBiapply(__dict_Biapplicative_114["__superclass_Control.Biapply.Biapply_0"]()); - }, function (a) { - return function (b) { - return new Flip(Control_Biapplicative.bipure(__dict_Biapplicative_114)(b)(a)); - }; - }); - }; - return { - Flip: Flip, - runFlip: runFlip, - flipBifunctor: flipBifunctor, - flipFunctor: flipFunctor, - flipBiapply: flipBiapply, - flipBiapplicative: flipBiapplicative - }; -})(); -var PS = PS || {}; -PS.Data_Bifunctor_Join = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Bifunctor = PS.Data_Bifunctor; - var Control_Biapply = PS.Control_Biapply; - var Control_Biapplicative = PS.Control_Biapplicative; - var Join = (function () { - function Join(value0) { - this.value0 = value0; - }; - Join.create = function (value0) { - return new Join(value0); - }; - return Join; - })(); - var runJoin = function (_219) { - return _219.value0; - }; - var joinFunctor = function (__dict_Bifunctor_115) { - return new Prelude.Functor(function (f) { - return Prelude["<$>"](Prelude.functorFn)(Join.create)(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Bifunctor.bimap(__dict_Bifunctor_115)(f)(f))(runJoin)); - }); - }; - var joinApply = function (__dict_Biapply_116) { - return new Prelude.Apply(function () { - return joinFunctor(__dict_Biapply_116["__superclass_Data.Bifunctor.Bifunctor_0"]()); - }, function (_220) { - return function (_221) { - return new Join(Control_Biapply["<<*>>"](__dict_Biapply_116)(_220.value0)(_221.value0)); - }; - }); - }; - var joinApplicative = function (__dict_Biapplicative_117) { - return new Prelude.Applicative(function () { - return joinApply(__dict_Biapplicative_117["__superclass_Control.Biapply.Biapply_0"]()); - }, function (a) { - return new Join(Control_Biapplicative.bipure(__dict_Biapplicative_117)(a)(a)); - }); - }; - return { - Join: Join, - runJoin: runJoin, - joinFunctor: joinFunctor, - joinApply: joinApply, - joinApplicative: joinApplicative - }; -})(); -var PS = PS || {}; -PS.Data_Bifunctor_Joker = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Biapplicative = PS.Control_Biapplicative; - var Control_Biapply = PS.Control_Biapply; - var Data_Bifunctor = PS.Data_Bifunctor; - var Joker = (function () { - function Joker(value0) { - this.value0 = value0; - }; - Joker.create = function (value0) { - return new Joker(value0); - }; - return Joker; - })(); - var runJoker = function (_222) { - return _222.value0; - }; - var jokerFunctor = function (__dict_Functor_118) { - return new Prelude.Functor(function (g) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Joker.create)(Prelude["<<<"](Prelude.semigroupoidFn)(Prelude.map(__dict_Functor_118)(g))(runJoker)); - }); - }; - var jokerBifunctor = function (__dict_Functor_119) { - return new Data_Bifunctor.Bifunctor(function (_223) { - return function (g) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Joker.create)(Prelude["<<<"](Prelude.semigroupoidFn)(Prelude.map(__dict_Functor_119)(g))(runJoker)); - }; - }); - }; - var jokerBiapply = function (__dict_Apply_120) { - return new Control_Biapply.Biapply(function () { - return jokerBifunctor(__dict_Apply_120["__superclass_Prelude.Functor_0"]()); - }, function (_224) { - return function (_225) { - return new Joker(Prelude["<*>"](__dict_Apply_120)(_224.value0)(_225.value0)); - }; - }); - }; - var jokerBiapplicative = function (__dict_Applicative_121) { - return new Control_Biapplicative.Biapplicative(function () { - return jokerBiapply(__dict_Applicative_121["__superclass_Prelude.Apply_0"]()); - }, function (_226) { - return function (b) { - return new Joker(Prelude.pure(__dict_Applicative_121)(b)); - }; - }); - }; - return { - Joker: Joker, - runJoker: runJoker, - jokerBifunctor: jokerBifunctor, - jokerFunctor: jokerFunctor, - jokerBiapply: jokerBiapply, - jokerBiapplicative: jokerBiapplicative - }; -})(); -var PS = PS || {}; -PS.Data_Bifunctor_Product = (function () { - "use strict"; - var Data_Bifunctor = PS.Data_Bifunctor; - var Control_Biapply = PS.Control_Biapply; - var Control_Biapplicative = PS.Control_Biapplicative; - var Prelude = PS.Prelude; - var Pair = (function () { - function Pair(value0, value1) { - this.value0 = value0; - this.value1 = value1; - }; - Pair.create = function (value0) { - return function (value1) { - return new Pair(value0, value1); - }; - }; - return Pair; - })(); - var productBifunctor = function (__dict_Bifunctor_122) { - return function (__dict_Bifunctor_123) { - return new Data_Bifunctor.Bifunctor(function (f) { - return function (g) { - return function (_227) { - return new Pair(Data_Bifunctor.bimap(__dict_Bifunctor_122)(f)(g)(_227.value0), Data_Bifunctor.bimap(__dict_Bifunctor_123)(f)(g)(_227.value1)); - }; - }; - }); - }; - }; - var productBiapply = function (__dict_Biapply_124) { - return function (__dict_Biapply_125) { - return new Control_Biapply.Biapply(function () { - return productBifunctor(__dict_Biapply_124["__superclass_Data.Bifunctor.Bifunctor_0"]())(__dict_Biapply_125["__superclass_Data.Bifunctor.Bifunctor_0"]()); - }, function (_228) { - return function (_229) { - return new Pair(Control_Biapply.biapply(__dict_Biapply_124)(_228.value0)(_229.value0), Control_Biapply.biapply(__dict_Biapply_125)(_228.value1)(_229.value1)); - }; - }); - }; - }; - var productBiapplicative = function (__dict_Biapplicative_126) { - return function (__dict_Biapplicative_127) { - return new Control_Biapplicative.Biapplicative(function () { - return productBiapply(__dict_Biapplicative_126["__superclass_Control.Biapply.Biapply_0"]())(__dict_Biapplicative_127["__superclass_Control.Biapply.Biapply_0"]()); - }, function (a) { - return function (b) { - return new Pair(Control_Biapplicative.bipure(__dict_Biapplicative_126)(a)(b), Control_Biapplicative.bipure(__dict_Biapplicative_127)(a)(b)); - }; - }); - }; - }; - return { - Pair: Pair, - productBifunctor: productBifunctor, - productBiapply: productBiapply, - productBiapplicative: productBiapplicative - }; -})(); -var PS = PS || {}; -PS.Data_Bifunctor_Wrap = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Bifunctor = PS.Data_Bifunctor; - var Control_Biapply = PS.Control_Biapply; - var Control_Biapplicative = PS.Control_Biapplicative; - var Wrap = (function () { - function Wrap(value0) { - this.value0 = value0; - }; - Wrap.create = function (value0) { - return new Wrap(value0); - }; - return Wrap; - })(); - var unwrap = function (_230) { - return _230.value0; - }; - var wrapBifunctor = function (__dict_Bifunctor_130) { - return new Data_Bifunctor.Bifunctor(function (f) { - return function (g) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Wrap.create)(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Bifunctor.bimap(__dict_Bifunctor_130)(f)(g))(unwrap)); - }; - }); - }; - var wrapBiapply = function (__dict_Biapply_128) { - return new Control_Biapply.Biapply(function () { - return wrapBifunctor(__dict_Biapply_128["__superclass_Data.Bifunctor.Bifunctor_0"]()); - }, function (_231) { - return function (_232) { - return new Wrap(Control_Biapply["<<*>>"](__dict_Biapply_128)(_231.value0)(_232.value0)); - }; - }); - }; - var wrapBiapplicative = function (__dict_Biapplicative_129) { - return new Control_Biapplicative.Biapplicative(function () { - return wrapBiapply(__dict_Biapplicative_129["__superclass_Control.Biapply.Biapply_0"]()); - }, function (a) { - return function (b) { - return new Wrap(Control_Biapplicative.bipure(__dict_Biapplicative_129)(a)(b)); - }; - }); - }; - var wrapFunctor = function (__dict_Bifunctor_131) { - return new Prelude.Functor(function (f) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Wrap.create)(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Bifunctor.rmap(__dict_Bifunctor_131)(f))(unwrap)); - }); - }; - return { - Wrap: Wrap, - unwrap: unwrap, - wrapBifunctor: wrapBifunctor, - wrapFunctor: wrapFunctor, - wrapBiapply: wrapBiapply, - wrapBiapplicative: wrapBiapplicative - }; -})(); -var PS = PS || {}; -PS.Control_Apply = (function () { - "use strict"; - var Prelude = PS.Prelude; - var $less$times = function (__dict_Apply_132) { - return function (a) { - return function (b) { - return Prelude["<*>"](__dict_Apply_132)(Prelude["<$>"](__dict_Apply_132["__superclass_Prelude.Functor_0"]())(Prelude["const"])(a))(b); - }; - }; - }; - var $times$greater = function (__dict_Apply_133) { - return function (a) { - return function (b) { - return Prelude["<*>"](__dict_Apply_133)(Prelude["<$>"](__dict_Apply_133["__superclass_Prelude.Functor_0"]())(Prelude["const"](Prelude.id(Prelude.categoryFn)))(a))(b); - }; - }; - }; - var lift5 = function (__dict_Apply_134) { - return function (f) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return Prelude["<*>"](__dict_Apply_134)(Prelude["<*>"](__dict_Apply_134)(Prelude["<*>"](__dict_Apply_134)(Prelude["<*>"](__dict_Apply_134)(Prelude["<$>"](__dict_Apply_134["__superclass_Prelude.Functor_0"]())(f)(a))(b))(c))(d))(e); - }; - }; - }; - }; - }; - }; - }; - var lift4 = function (__dict_Apply_135) { - return function (f) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return Prelude["<*>"](__dict_Apply_135)(Prelude["<*>"](__dict_Apply_135)(Prelude["<*>"](__dict_Apply_135)(Prelude["<$>"](__dict_Apply_135["__superclass_Prelude.Functor_0"]())(f)(a))(b))(c))(d); - }; - }; - }; - }; - }; - }; - var lift3 = function (__dict_Apply_136) { - return function (f) { - return function (a) { - return function (b) { - return function (c) { - return Prelude["<*>"](__dict_Apply_136)(Prelude["<*>"](__dict_Apply_136)(Prelude["<$>"](__dict_Apply_136["__superclass_Prelude.Functor_0"]())(f)(a))(b))(c); - }; - }; - }; - }; - }; - var lift2 = function (__dict_Apply_137) { - return function (f) { - return function (a) { - return function (b) { - return Prelude["<*>"](__dict_Apply_137)(Prelude["<$>"](__dict_Apply_137["__superclass_Prelude.Functor_0"]())(f)(a))(b); - }; - }; - }; - }; - return { - lift5: lift5, - lift4: lift4, - lift3: lift3, - lift2: lift2, - "*>": $times$greater, - "<*": $less$times - }; -})(); -var PS = PS || {}; -PS.Data_Bifoldable = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Apply = PS.Control_Apply; - var Data_Monoid_Disj = PS.Data_Monoid_Disj; - var Data_Monoid_Conj = PS.Data_Monoid_Conj; - var Data_Monoid = PS.Data_Monoid; - var Bifoldable = function (bifoldMap, bifoldl, bifoldr) { - this.bifoldMap = bifoldMap; - this.bifoldl = bifoldl; - this.bifoldr = bifoldr; - }; - var bifoldr = function (dict) { - return dict.bifoldr; - }; - var bitraverse_ = function (__dict_Bifoldable_138) { - return function (__dict_Applicative_139) { - return function (f) { - return function (g) { - return bifoldr(__dict_Bifoldable_138)(Prelude["<<<"](Prelude.semigroupoidFn)(Control_Apply["*>"](__dict_Applicative_139["__superclass_Prelude.Apply_0"]()))(f))(Prelude["<<<"](Prelude.semigroupoidFn)(Control_Apply["*>"](__dict_Applicative_139["__superclass_Prelude.Apply_0"]()))(g))(Prelude.pure(__dict_Applicative_139)(Prelude.unit)); - }; - }; - }; - }; - var bifor_ = function (__dict_Bifoldable_140) { - return function (__dict_Applicative_141) { - return function (t) { - return function (f) { - return function (g) { - return bitraverse_(__dict_Bifoldable_140)(__dict_Applicative_141)(f)(g)(t); - }; - }; - }; - }; - }; - var bisequence_ = function (__dict_Bifoldable_142) { - return function (__dict_Applicative_143) { - return bitraverse_(__dict_Bifoldable_142)(__dict_Applicative_143)(Prelude.id(Prelude.categoryFn))(Prelude.id(Prelude.categoryFn)); - }; - }; - var bifoldl = function (dict) { - return dict.bifoldl; - }; - var bifoldMap = function (dict) { - return dict.bifoldMap; - }; - var bifold = function (__dict_Bifoldable_144) { - return function (__dict_Monoid_145) { - return bifoldMap(__dict_Bifoldable_144)(__dict_Monoid_145)(Prelude.id(Prelude.categoryFn))(Prelude.id(Prelude.categoryFn)); - }; - }; - var biany = function (__dict_Bifoldable_146) { - return function (__dict_BooleanAlgebra_147) { - return function (p) { - return function (q) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Data_Monoid_Disj.runDisj)(bifoldMap(__dict_Bifoldable_146)(Data_Monoid_Disj.monoidDisj(__dict_BooleanAlgebra_147))(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Monoid_Disj.Disj)(p))(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Monoid_Disj.Disj)(q))); - }; - }; - }; - }; - var biall = function (__dict_Bifoldable_148) { - return function (__dict_BooleanAlgebra_149) { - return function (p) { - return function (q) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Data_Monoid_Conj.runConj)(bifoldMap(__dict_Bifoldable_148)(Data_Monoid_Conj.monoidConj(__dict_BooleanAlgebra_149))(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Monoid_Conj.Conj)(p))(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Monoid_Conj.Conj)(q))); - }; - }; - }; - }; - return { - Bifoldable: Bifoldable, - biall: biall, - biany: biany, - bisequence_: bisequence_, - bifor_: bifor_, - bitraverse_: bitraverse_, - bifold: bifold, - bifoldMap: bifoldMap, - bifoldl: bifoldl, - bifoldr: bifoldr - }; -})(); -var PS = PS || {}; -PS.Data_Bitraversable = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Bifoldable = PS.Data_Bifoldable; - var Data_Bifunctor = PS.Data_Bifunctor; - var Bitraversable = function (__superclass_Data$dotBifoldable$dotBifoldable_1, __superclass_Data$dotBifunctor$dotBifunctor_0, bisequence, bitraverse) { - this["__superclass_Data.Bifoldable.Bifoldable_1"] = __superclass_Data$dotBifoldable$dotBifoldable_1; - this["__superclass_Data.Bifunctor.Bifunctor_0"] = __superclass_Data$dotBifunctor$dotBifunctor_0; - this.bisequence = bisequence; - this.bitraverse = bitraverse; - }; - var bitraverse = function (dict) { - return dict.bitraverse; - }; - var bisequence = function (dict) { - return dict.bisequence; - }; - var bifor = function (__dict_Bitraversable_150) { - return function (__dict_Applicative_151) { - return function (t) { - return function (f) { - return function (g) { - return bitraverse(__dict_Bitraversable_150)(__dict_Applicative_151)(f)(g)(t); - }; - }; - }; - }; - }; - return { - Bitraversable: Bitraversable, - bifor: bifor, - bisequence: bisequence, - bitraverse: bitraverse - }; -})(); -var PS = PS || {}; -PS.Control_Alt = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Alt = function (__superclass_Prelude$dotFunctor_0, alt) { - this["__superclass_Prelude.Functor_0"] = __superclass_Prelude$dotFunctor_0; - this.alt = alt; - }; - var altArray = new Alt(function () { - return Prelude.functorArray; - }, Prelude.append(Prelude.semigroupArray)); - var alt = function (dict) { - return dict.alt; - }; - var $less$bar$greater = function (__dict_Alt_152) { - return alt(__dict_Alt_152); - }; - return { - Alt: Alt, - "<|>": $less$bar$greater, - alt: alt, - altArray: altArray - }; -})(); -var PS = PS || {}; -PS.Control_Plus = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Alt = PS.Control_Alt; - var Plus = function (__superclass_Control$dotAlt$dotAlt_0, empty) { - this["__superclass_Control.Alt.Alt_0"] = __superclass_Control$dotAlt$dotAlt_0; - this.empty = empty; - }; - var plusArray = new Plus(function () { - return Control_Alt.altArray; - }, [ ]); - var empty = function (dict) { - return dict.empty; - }; - return { - Plus: Plus, - empty: empty, - plusArray: plusArray - }; -})(); -var PS = PS || {}; -PS.Control_Alternative = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Alt = PS.Control_Alt; - var Control_Lazy = PS.Control_Lazy; - var Control_Plus = PS.Control_Plus; - var Alternative = function (__superclass_Control$dotPlus$dotPlus_1, __superclass_Prelude$dotApplicative_0) { - this["__superclass_Control.Plus.Plus_1"] = __superclass_Control$dotPlus$dotPlus_1; - this["__superclass_Prelude.Applicative_0"] = __superclass_Prelude$dotApplicative_0; - }; - var alternativeArray = new Alternative(function () { - return Control_Plus.plusArray; - }, function () { - return Prelude.applicativeArray; - }); - return { - Alternative: Alternative, - alternativeArray: alternativeArray - }; -})(); -var PS = PS || {}; -PS.Control_MonadPlus = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Plus = PS.Control_Plus; - var Control_Alternative = PS.Control_Alternative; - var MonadPlus = function (__superclass_Control$dotAlternative$dotAlternative_1, __superclass_Prelude$dotMonad_0) { - this["__superclass_Control.Alternative.Alternative_1"] = __superclass_Control$dotAlternative$dotAlternative_1; - this["__superclass_Prelude.Monad_0"] = __superclass_Prelude$dotMonad_0; - }; - var monadPlusArray = new MonadPlus(function () { - return Control_Alternative.alternativeArray; - }, function () { - return Prelude.monadArray; - }); - var guard = function (__dict_MonadPlus_153) { - return function (_233) { - if (_233) { - return Prelude["return"]((__dict_MonadPlus_153["__superclass_Control.Alternative.Alternative_1"]())["__superclass_Prelude.Applicative_0"]())(Prelude.unit); - }; - if (!_233) { - return Control_Plus.empty((__dict_MonadPlus_153["__superclass_Control.Alternative.Alternative_1"]())["__superclass_Control.Plus.Plus_1"]()); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-control/src/Control/MonadPlus.purs line 35, column 1 - line 36, column 1: " + [ _233.constructor.name ]); - }; - }; - return { - MonadPlus: MonadPlus, - guard: guard, - monadPlusArray: monadPlusArray - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Reader_Trans = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Alt = PS.Control_Alt; - var Control_Plus = PS.Control_Plus; - var Control_Monad_Trans = PS.Control_Monad_Trans; - var Control_Monad_Eff_Class = PS.Control_Monad_Eff_Class; - var Control_Alternative = PS.Control_Alternative; - var Control_MonadPlus = PS.Control_MonadPlus; - var ReaderT = function (x) { - return x; - }; - var runReaderT = function (_234) { - return _234; - }; - var withReaderT = function (f) { - return function (m) { - return ReaderT(Prelude["<<<"](Prelude.semigroupoidFn)(runReaderT(m))(f)); - }; - }; - var mapReaderT = function (f) { - return function (m) { - return ReaderT(Prelude["<<<"](Prelude.semigroupoidFn)(f)(runReaderT(m))); - }; - }; - var liftReaderT = function (m) { - return Prelude["const"](m); - }; - var monadTransReaderT = new Control_Monad_Trans.MonadTrans(function (__dict_Monad_158) { - return liftReaderT; - }); - var liftCatchReader = function ($$catch) { - return function (m) { - return function (h) { - return ReaderT(function (r) { - return $$catch(runReaderT(m)(r))(function (e) { - return runReaderT(h(e))(r); - }); - }); - }; - }; - }; - var liftCallCCReader = function (callCC) { - return function (f) { - return ReaderT(function (r) { - return callCC(function (c) { - return runReaderT(f(function (a) { - return ReaderT(Prelude["const"](c(a))); - }))(r); - }); - }); - }; - }; - var functorReaderT = function (__dict_Functor_160) { - return new Prelude.Functor(function (f) { - return mapReaderT(Prelude["<$>"](__dict_Functor_160)(f)); - }); - }; - var applyReaderT = function (__dict_Applicative_162) { - return new Prelude.Apply(function () { - return functorReaderT((__dict_Applicative_162["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]()); - }, function (f) { - return function (v) { - return function (r) { - return Prelude["<*>"](__dict_Applicative_162["__superclass_Prelude.Apply_0"]())(runReaderT(f)(r))(runReaderT(v)(r)); - }; - }; - }); - }; - var bindReaderT = function (__dict_Monad_161) { - return new Prelude.Bind(function () { - return applyReaderT(__dict_Monad_161["__superclass_Prelude.Applicative_0"]()); - }, function (m) { - return function (k) { - return function (r) { - return Prelude[">>="](__dict_Monad_161["__superclass_Prelude.Bind_1"]())(runReaderT(m)(r))(function (_10) { - return runReaderT(k(_10))(r); - }); - }; - }; - }); - }; - var applicativeReaderT = function (__dict_Applicative_163) { - return new Prelude.Applicative(function () { - return applyReaderT(__dict_Applicative_163); - }, Prelude["<<<"](Prelude.semigroupoidFn)(liftReaderT)(Prelude.pure(__dict_Applicative_163))); - }; - var monadReaderT = function (__dict_Monad_154) { - return new Prelude.Monad(function () { - return applicativeReaderT(__dict_Monad_154["__superclass_Prelude.Applicative_0"]()); - }, function () { - return bindReaderT(__dict_Monad_154); - }); - }; - var monadEffReader = function (__dict_Monad_156) { - return function (__dict_MonadEff_157) { - return new Control_Monad_Eff_Class.MonadEff(function () { - return monadReaderT(__dict_Monad_156); - }, Prelude["<<<"](Prelude.semigroupoidFn)(Control_Monad_Trans.lift(monadTransReaderT)(__dict_Monad_156))(Control_Monad_Eff_Class.liftEff(__dict_MonadEff_157))); - }; - }; - var altReaderT = function (__dict_Alt_165) { - return new Control_Alt.Alt(function () { - return functorReaderT(__dict_Alt_165["__superclass_Prelude.Functor_0"]()); - }, function (m) { - return function (n) { - return function (r) { - return Control_Alt["<|>"](__dict_Alt_165)(runReaderT(m)(r))(runReaderT(n)(r)); - }; - }; - }); - }; - var plusReaderT = function (__dict_Plus_159) { - return new Control_Plus.Plus(function () { - return altReaderT(__dict_Plus_159["__superclass_Control.Alt.Alt_0"]()); - }, liftReaderT(Control_Plus.empty(__dict_Plus_159))); - }; - var alternativeReaderT = function (__dict_Alternative_164) { - return new Control_Alternative.Alternative(function () { - return plusReaderT(__dict_Alternative_164["__superclass_Control.Plus.Plus_1"]()); - }, function () { - return applicativeReaderT(__dict_Alternative_164["__superclass_Prelude.Applicative_0"]()); - }); - }; - var monadPlusReaderT = function (__dict_MonadPlus_155) { - return new Control_MonadPlus.MonadPlus(function () { - return alternativeReaderT(__dict_MonadPlus_155["__superclass_Control.Alternative.Alternative_1"]()); - }, function () { - return monadReaderT(__dict_MonadPlus_155["__superclass_Prelude.Monad_0"]()); - }); - }; - return { - ReaderT: ReaderT, - liftCallCCReader: liftCallCCReader, - liftCatchReader: liftCatchReader, - liftReaderT: liftReaderT, - mapReaderT: mapReaderT, - withReaderT: withReaderT, - runReaderT: runReaderT, - functorReaderT: functorReaderT, - applyReaderT: applyReaderT, - applicativeReaderT: applicativeReaderT, - altReaderT: altReaderT, - plusReaderT: plusReaderT, - alternativeReaderT: alternativeReaderT, - bindReaderT: bindReaderT, - monadReaderT: monadReaderT, - monadPlusReaderT: monadPlusReaderT, - monadTransReaderT: monadTransReaderT, - monadEffReader: monadEffReader - }; -})(); -var PS = PS || {}; -PS.Data_Maybe = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Functor_Invariant = PS.Data_Functor_Invariant; - var Control_Alt = PS.Control_Alt; - var Control_Alternative = PS.Control_Alternative; - var Control_Extend = PS.Control_Extend; - var Control_MonadPlus = PS.Control_MonadPlus; - var Control_Plus = PS.Control_Plus; - var Data_Monoid = PS.Data_Monoid; - var Nothing = (function () { - function Nothing() { - - }; - Nothing.value = new Nothing(); - return Nothing; - })(); - var Just = (function () { - function Just(value0) { - this.value0 = value0; - }; - Just.create = function (value0) { - return new Just(value0); - }; - return Just; - })(); - var showMaybe = function (__dict_Show_166) { - return new Prelude.Show(function (_245) { - if (_245 instanceof Just) { - return "Just (" + (Prelude.show(__dict_Show_166)(_245.value0) + ")"); - }; - if (_245 instanceof Nothing) { - return "Nothing"; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-maybe/src/Data/Maybe.purs line 262, column 1 - line 264, column 19: " + [ _245.constructor.name ]); - }); - }; - var maybe = function (b) { - return function (f) { - return function (_235) { - if (_235 instanceof Nothing) { - return b; - }; - if (_235 instanceof Just) { - return f(_235.value0); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-maybe/src/Data/Maybe.purs line 26, column 1 - line 27, column 1: " + [ b.constructor.name, f.constructor.name, _235.constructor.name ]); - }; - }; - }; - var isNothing = maybe(true)(Prelude["const"](false)); - var isJust = maybe(false)(Prelude["const"](true)); - var functorMaybe = new Prelude.Functor(function (fn) { - return function (_236) { - if (_236 instanceof Just) { - return new Just(fn(_236.value0)); - }; - return Nothing.value; - }; - }); - var invariantFirst = new Data_Functor_Invariant.Invariant(Data_Functor_Invariant.imapF(functorMaybe)); - var fromMaybe = function (a) { - return maybe(a)(Prelude.id(Prelude.categoryFn)); - }; - var extendMaybe = new Control_Extend.Extend(function () { - return functorMaybe; - }, function (f) { - return function (_240) { - if (_240 instanceof Nothing) { - return Nothing.value; - }; - return new Just(f(_240)); - }; - }); - var eqMaybe = function (__dict_Eq_174) { - return new Prelude.Eq(function (_241) { - return function (_242) { - if (_241 instanceof Nothing && _242 instanceof Nothing) { - return true; - }; - if (_241 instanceof Just && _242 instanceof Just) { - return Prelude["=="](__dict_Eq_174)(_241.value0)(_242.value0); - }; - return false; - }; - }); - }; - var ordMaybe = function (__dict_Ord_170) { - return new Prelude.Ord(function () { - return eqMaybe(__dict_Ord_170["__superclass_Prelude.Eq_0"]()); - }, function (_243) { - return function (_244) { - if (_243 instanceof Just && _244 instanceof Just) { - return Prelude.compare(__dict_Ord_170)(_243.value0)(_244.value0); - }; - if (_243 instanceof Nothing && _244 instanceof Nothing) { - return Prelude.EQ.value; - }; - if (_243 instanceof Nothing) { - return Prelude.LT.value; - }; - if (_244 instanceof Nothing) { - return Prelude.GT.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-maybe/src/Data/Maybe.purs line 242, column 1 - line 248, column 1: " + [ _243.constructor.name, _244.constructor.name ]); - }; - }); - }; - var boundedMaybe = function (__dict_Bounded_177) { - return new Prelude.Bounded(Nothing.value, new Just(Prelude.top(__dict_Bounded_177))); - }; - var boundedOrdMaybe = function (__dict_BoundedOrd_176) { - return new Prelude.BoundedOrd(function () { - return boundedMaybe(__dict_BoundedOrd_176["__superclass_Prelude.Bounded_0"]()); - }, function () { - return ordMaybe(__dict_BoundedOrd_176["__superclass_Prelude.Ord_1"]()); - }); - }; - var applyMaybe = new Prelude.Apply(function () { - return functorMaybe; - }, function (_237) { - return function (x) { - if (_237 instanceof Just) { - return Prelude["<$>"](functorMaybe)(_237.value0)(x); - }; - if (_237 instanceof Nothing) { - return Nothing.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-maybe/src/Data/Maybe.purs line 96, column 1 - line 120, column 1: " + [ _237.constructor.name, x.constructor.name ]); - }; - }); - var bindMaybe = new Prelude.Bind(function () { - return applyMaybe; - }, function (_239) { - return function (k) { - if (_239 instanceof Just) { - return k(_239.value0); - }; - if (_239 instanceof Nothing) { - return Nothing.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-maybe/src/Data/Maybe.purs line 155, column 1 - line 174, column 1: " + [ _239.constructor.name, k.constructor.name ]); - }; - }); - var booleanAlgebraMaybe = function (__dict_BooleanAlgebra_178) { - return new Prelude.BooleanAlgebra(function () { - return boundedMaybe(__dict_BooleanAlgebra_178["__superclass_Prelude.Bounded_0"]()); - }, function (x) { - return function (y) { - return Prelude["<*>"](applyMaybe)(Prelude["<$>"](functorMaybe)(Prelude.conj(__dict_BooleanAlgebra_178))(x))(y); - }; - }, function (x) { - return function (y) { - return Prelude["<*>"](applyMaybe)(Prelude["<$>"](functorMaybe)(Prelude.disj(__dict_BooleanAlgebra_178))(x))(y); - }; - }, Prelude.map(functorMaybe)(Prelude.not(__dict_BooleanAlgebra_178))); - }; - var semigroupMaybe = function (__dict_Semigroup_168) { - return new Prelude.Semigroup(function (x) { - return function (y) { - return Prelude["<*>"](applyMaybe)(Prelude["<$>"](functorMaybe)(Prelude.append(__dict_Semigroup_168))(x))(y); - }; - }); - }; - var monoidMaybe = function (__dict_Semigroup_172) { - return new Data_Monoid.Monoid(function () { - return semigroupMaybe(__dict_Semigroup_172); - }, Nothing.value); - }; - var semiringMaybe = function (__dict_Semiring_167) { - return new Prelude.Semiring(function (x) { - return function (y) { - return Prelude["<*>"](applyMaybe)(Prelude["<$>"](functorMaybe)(Prelude.add(__dict_Semiring_167))(x))(y); - }; - }, function (x) { - return function (y) { - return Prelude["<*>"](applyMaybe)(Prelude["<$>"](functorMaybe)(Prelude.mul(__dict_Semiring_167))(x))(y); - }; - }, new Just(Prelude.one(__dict_Semiring_167)), new Just(Prelude.zero(__dict_Semiring_167))); - }; - var moduloSemiringMaybe = function (__dict_ModuloSemiring_173) { - return new Prelude.ModuloSemiring(function () { - return semiringMaybe(__dict_ModuloSemiring_173["__superclass_Prelude.Semiring_0"]()); - }, function (x) { - return function (y) { - return Prelude["<*>"](applyMaybe)(Prelude["<$>"](functorMaybe)(Prelude.div(__dict_ModuloSemiring_173))(x))(y); - }; - }, function (x) { - return function (y) { - return Prelude["<*>"](applyMaybe)(Prelude["<$>"](functorMaybe)(Prelude.mod(__dict_ModuloSemiring_173))(x))(y); - }; - }); - }; - var ringMaybe = function (__dict_Ring_169) { - return new Prelude.Ring(function () { - return semiringMaybe(__dict_Ring_169["__superclass_Prelude.Semiring_0"]()); - }, function (x) { - return function (y) { - return Prelude["<*>"](applyMaybe)(Prelude["<$>"](functorMaybe)(Prelude.sub(__dict_Ring_169))(x))(y); - }; - }); - }; - var divisionRingMaybe = function (__dict_DivisionRing_175) { - return new Prelude.DivisionRing(function () { - return moduloSemiringMaybe(__dict_DivisionRing_175["__superclass_Prelude.ModuloSemiring_1"]()); - }, function () { - return ringMaybe(__dict_DivisionRing_175["__superclass_Prelude.Ring_0"]()); - }); - }; - var numMaybe = function (__dict_Num_171) { - return new Prelude.Num(function () { - return divisionRingMaybe(__dict_Num_171["__superclass_Prelude.DivisionRing_0"]()); - }); - }; - var applicativeMaybe = new Prelude.Applicative(function () { - return applyMaybe; - }, Just.create); - var monadMaybe = new Prelude.Monad(function () { - return applicativeMaybe; - }, function () { - return bindMaybe; - }); - var altMaybe = new Control_Alt.Alt(function () { - return functorMaybe; - }, function (_238) { - return function (r) { - if (_238 instanceof Nothing) { - return r; - }; - return _238; - }; - }); - var plusMaybe = new Control_Plus.Plus(function () { - return altMaybe; - }, Nothing.value); - var alternativeMaybe = new Control_Alternative.Alternative(function () { - return plusMaybe; - }, function () { - return applicativeMaybe; - }); - var monadPlusMaybe = new Control_MonadPlus.MonadPlus(function () { - return alternativeMaybe; - }, function () { - return monadMaybe; - }); - return { - Nothing: Nothing, - Just: Just, - isNothing: isNothing, - isJust: isJust, - fromMaybe: fromMaybe, - maybe: maybe, - functorMaybe: functorMaybe, - applyMaybe: applyMaybe, - applicativeMaybe: applicativeMaybe, - altMaybe: altMaybe, - plusMaybe: plusMaybe, - alternativeMaybe: alternativeMaybe, - bindMaybe: bindMaybe, - monadMaybe: monadMaybe, - monadPlusMaybe: monadPlusMaybe, - extendMaybe: extendMaybe, - invariantFirst: invariantFirst, - semigroupMaybe: semigroupMaybe, - monoidMaybe: monoidMaybe, - semiringMaybe: semiringMaybe, - moduloSemiringMaybe: moduloSemiringMaybe, - ringMaybe: ringMaybe, - divisionRingMaybe: divisionRingMaybe, - numMaybe: numMaybe, - eqMaybe: eqMaybe, - ordMaybe: ordMaybe, - boundedMaybe: boundedMaybe, - boundedOrdMaybe: boundedOrdMaybe, - booleanAlgebraMaybe: booleanAlgebraMaybe, - showMaybe: showMaybe - }; -})(); -var PS = PS || {}; -PS.Data_Array_ST = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports */ -"use strict"; - -// module Data.Array.ST - -exports.runSTArray = function (f) { - return f; -}; - -exports.emptySTArray = function () { - return []; -}; - -exports.peekSTArrayImpl = function (just) { - return function (nothing) { - return function (xs) { - return function (i) { - return function () { - return i >= 0 && i < xs.length ? just(xs[i]) : nothing; - }; - }; - }; - }; -}; - -exports.pokeSTArray = function (xs) { - return function (i) { - return function (a) { - return function () { - var ret = i >= 0 && i < xs.length; - if (ret) xs[i] = a; - return ret; - }; - }; - }; -}; - -exports.pushAllSTArray = function (xs) { - return function (as) { - return function () { - return xs.push.apply(xs, as); - }; - }; -}; - -exports.spliceSTArray = function (xs) { - return function (i) { - return function (howMany) { - return function (bs) { - return function () { - return xs.splice.apply(xs, [i, howMany].concat(bs)); - }; - }; - }; - }; -}; - -exports.copyImpl = function (xs) { - return function () { - return xs.slice(); - }; -}; - -exports.toAssocArray = function (xs) { - return function () { - var n = xs.length; - var as = new Array(n); - for (var i = 0; i < n; i++) as[i] = { value: xs[i], index: i }; - return as; - }; -}; -; - return exports; - })(); - var Prelude = PS.Prelude; - var Control_Monad_Eff = PS.Control_Monad_Eff; - var Control_Monad_ST = PS.Control_Monad_ST; - var Data_Maybe = PS.Data_Maybe; - var thaw = $foreign.copyImpl; - var pushSTArray = function (arr) { - return function (a) { - return $foreign.pushAllSTArray(arr)([ a ]); - }; - }; - var peekSTArray = $foreign.peekSTArrayImpl(Data_Maybe.Just.create)(Data_Maybe.Nothing.value); - var freeze = $foreign.copyImpl; - return { - thaw: thaw, - freeze: freeze, - pushSTArray: pushSTArray, - peekSTArray: peekSTArray, - toAssocArray: $foreign.toAssocArray, - spliceSTArray: $foreign.spliceSTArray, - pushAllSTArray: $foreign.pushAllSTArray, - pokeSTArray: $foreign.pokeSTArray, - emptySTArray: $foreign.emptySTArray, - runSTArray: $foreign.runSTArray - }; -})(); -var PS = PS || {}; -PS.Data_Maybe_First = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Extend = PS.Control_Extend; - var Data_Functor_Invariant = PS.Data_Functor_Invariant; - var Control_Comonad = PS.Control_Comonad; - var Data_Maybe = PS.Data_Maybe; - var Data_Monoid = PS.Data_Monoid; - var First = function (x) { - return x; - }; - var showFirst = function (__dict_Show_179) { - return new Prelude.Show(function (_256) { - return "First (" + (Prelude.show(Data_Maybe.showMaybe(__dict_Show_179))(_256) + ")"); - }); - }; - var semigroupFirst = new Prelude.Semigroup(function (_257) { - return function (second) { - if (_257 instanceof Data_Maybe.Just) { - return _257; - }; - return second; - }; - }); - var runFirst = function (_246) { - return _246; - }; - var monoidFirst = new Data_Monoid.Monoid(function () { - return semigroupFirst; - }, Data_Maybe.Nothing.value); - var functorFirst = new Prelude.Functor(function (f) { - return function (_251) { - return Prelude["<$>"](Data_Maybe.functorMaybe)(f)(_251); - }; - }); - var invariantFirst = new Data_Functor_Invariant.Invariant(Data_Functor_Invariant.imapF(functorFirst)); - var extendFirst = new Control_Extend.Extend(function () { - return functorFirst; - }, function (f) { - return function (_255) { - return Control_Extend.extend(Data_Maybe.extendMaybe)(Prelude["<<<"](Prelude.semigroupoidFn)(f)(First))(_255); - }; - }); - var eqFirst = function (__dict_Eq_181) { - return new Prelude.Eq(function (_247) { - return function (_248) { - return Prelude["=="](Data_Maybe.eqMaybe(__dict_Eq_181))(_247)(_248); - }; - }); - }; - var ordFirst = function (__dict_Ord_180) { - return new Prelude.Ord(function () { - return eqFirst(__dict_Ord_180["__superclass_Prelude.Eq_0"]()); - }, function (_249) { - return function (_250) { - return Prelude.compare(Data_Maybe.ordMaybe(__dict_Ord_180))(_249)(_250); - }; - }); - }; - var boundedFirst = function (__dict_Bounded_182) { - return new Prelude.Bounded(Prelude.bottom(Data_Maybe.boundedMaybe(__dict_Bounded_182)), Prelude.top(Data_Maybe.boundedMaybe(__dict_Bounded_182))); - }; - var applyFirst = new Prelude.Apply(function () { - return functorFirst; - }, function (_252) { - return function (_253) { - return Prelude["<*>"](Data_Maybe.applyMaybe)(_252)(_253); - }; - }); - var bindFirst = new Prelude.Bind(function () { - return applyFirst; - }, function (_254) { - return function (f) { - return Prelude.bind(Data_Maybe.bindMaybe)(_254)(Prelude["<<<"](Prelude.semigroupoidFn)(runFirst)(f)); - }; - }); - var applicativeFirst = new Prelude.Applicative(function () { - return applyFirst; - }, Prelude["<<<"](Prelude.semigroupoidFn)(First)(Prelude.pure(Data_Maybe.applicativeMaybe))); - var monadFirst = new Prelude.Monad(function () { - return applicativeFirst; - }, function () { - return bindFirst; - }); - return { - First: First, - runFirst: runFirst, - eqFirst: eqFirst, - ordFirst: ordFirst, - boundedFirst: boundedFirst, - functorFirst: functorFirst, - applyFirst: applyFirst, - applicativeFirst: applicativeFirst, - bindFirst: bindFirst, - monadFirst: monadFirst, - extendFirst: extendFirst, - invariantFirst: invariantFirst, - showFirst: showFirst, - semigroupFirst: semigroupFirst, - monoidFirst: monoidFirst - }; -})(); -var PS = PS || {}; -PS.Data_Maybe_Last = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Extend = PS.Control_Extend; - var Data_Functor_Invariant = PS.Data_Functor_Invariant; - var Control_Comonad = PS.Control_Comonad; - var Data_Maybe = PS.Data_Maybe; - var Data_Monoid = PS.Data_Monoid; - var Last = function (x) { - return x; - }; - var showLast = function (__dict_Show_183) { - return new Prelude.Show(function (_268) { - return "Last (" + (Prelude.show(Data_Maybe.showMaybe(__dict_Show_183))(_268) + ")"); - }); - }; - var semigroupLast = new Prelude.Semigroup(function (last) { - return function (_269) { - if (_269 instanceof Data_Maybe.Just) { - return _269; - }; - if (_269 instanceof Data_Maybe.Nothing) { - return last; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-maybe/src/Data/Maybe/Last.purs line 57, column 1 - line 61, column 1: " + [ last.constructor.name, _269.constructor.name ]); - }; - }); - var runLast = function (_258) { - return _258; - }; - var monoidLast = new Data_Monoid.Monoid(function () { - return semigroupLast; - }, Data_Maybe.Nothing.value); - var functorLast = new Prelude.Functor(function (f) { - return function (_263) { - return Prelude["<$>"](Data_Maybe.functorMaybe)(f)(_263); - }; - }); - var invariantLast = new Data_Functor_Invariant.Invariant(Data_Functor_Invariant.imapF(functorLast)); - var extendLast = new Control_Extend.Extend(function () { - return functorLast; - }, function (f) { - return function (_267) { - return Control_Extend.extend(Data_Maybe.extendMaybe)(Prelude["<<<"](Prelude.semigroupoidFn)(f)(Last))(_267); - }; - }); - var eqLast = function (__dict_Eq_185) { - return new Prelude.Eq(function (_259) { - return function (_260) { - return Prelude["=="](Data_Maybe.eqMaybe(__dict_Eq_185))(_259)(_260); - }; - }); - }; - var ordLast = function (__dict_Ord_184) { - return new Prelude.Ord(function () { - return eqLast(__dict_Ord_184["__superclass_Prelude.Eq_0"]()); - }, function (_261) { - return function (_262) { - return Prelude.compare(Data_Maybe.ordMaybe(__dict_Ord_184))(_261)(_262); - }; - }); - }; - var boundedLast = function (__dict_Bounded_186) { - return new Prelude.Bounded(Prelude.bottom(Data_Maybe.boundedMaybe(__dict_Bounded_186)), Prelude.top(Data_Maybe.boundedMaybe(__dict_Bounded_186))); - }; - var applyLast = new Prelude.Apply(function () { - return functorLast; - }, function (_264) { - return function (_265) { - return Prelude["<*>"](Data_Maybe.applyMaybe)(_264)(_265); - }; - }); - var bindLast = new Prelude.Bind(function () { - return applyLast; - }, function (_266) { - return function (f) { - return Prelude.bind(Data_Maybe.bindMaybe)(_266)(Prelude["<<<"](Prelude.semigroupoidFn)(runLast)(f)); - }; - }); - var applicativeLast = new Prelude.Applicative(function () { - return applyLast; - }, Prelude["<<<"](Prelude.semigroupoidFn)(Last)(Prelude.pure(Data_Maybe.applicativeMaybe))); - var monadLast = new Prelude.Monad(function () { - return applicativeLast; - }, function () { - return bindLast; - }); - return { - Last: Last, - runLast: runLast, - eqLast: eqLast, - ordLast: ordLast, - boundedLast: boundedLast, - functorLast: functorLast, - applyLast: applyLast, - applicativeLast: applicativeLast, - bindLast: bindLast, - monadLast: monadLast, - extendLast: extendLast, - invariantLast: invariantLast, - showLast: showLast, - semigroupLast: semigroupLast, - monoidLast: monoidLast - }; -})(); -var PS = PS || {}; -PS.Data_Foldable = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports */ -"use strict"; - -// module Data.Foldable - -exports.foldrArray = function (f) { - return function (init) { - return function (xs) { - var acc = init; - var len = xs.length; - for (var i = len - 1; i >= 0; i--) { - acc = f(xs[i])(acc); - } - return acc; - }; - }; -}; - -exports.foldlArray = function (f) { - return function (init) { - return function (xs) { - var acc = init; - var len = xs.length; - for (var i = 0; i < len; i++) { - acc = f(acc)(xs[i]); - } - return acc; - }; - }; -}; -; - return exports; - })(); - var Prelude = PS.Prelude; - var Data_Monoid = PS.Data_Monoid; - var Control_Apply = PS.Control_Apply; - var Data_Monoid_Disj = PS.Data_Monoid_Disj; - var Data_Monoid_Conj = PS.Data_Monoid_Conj; - var Data_Maybe = PS.Data_Maybe; - var Data_Maybe_First = PS.Data_Maybe_First; - var Data_Maybe_Last = PS.Data_Maybe_Last; - var Data_Monoid_Additive = PS.Data_Monoid_Additive; - var Data_Monoid_Dual = PS.Data_Monoid_Dual; - var Data_Monoid_Multiplicative = PS.Data_Monoid_Multiplicative; - var Foldable = function (foldMap, foldl, foldr) { - this.foldMap = foldMap; - this.foldl = foldl; - this.foldr = foldr; - }; - var foldr = function (dict) { - return dict.foldr; - }; - var traverse_ = function (__dict_Applicative_187) { - return function (__dict_Foldable_188) { - return function (f) { - return foldr(__dict_Foldable_188)(Prelude["<<<"](Prelude.semigroupoidFn)(Control_Apply["*>"](__dict_Applicative_187["__superclass_Prelude.Apply_0"]()))(f))(Prelude.pure(__dict_Applicative_187)(Prelude.unit)); - }; - }; - }; - var for_ = function (__dict_Applicative_189) { - return function (__dict_Foldable_190) { - return Prelude.flip(traverse_(__dict_Applicative_189)(__dict_Foldable_190)); - }; - }; - var sequence_ = function (__dict_Applicative_191) { - return function (__dict_Foldable_192) { - return traverse_(__dict_Applicative_191)(__dict_Foldable_192)(Prelude.id(Prelude.categoryFn)); - }; - }; - var foldl = function (dict) { - return dict.foldl; - }; - var intercalate = function (__dict_Foldable_193) { - return function (__dict_Monoid_194) { - return function (sep) { - return function (xs) { - var go = function (_294) { - return function (x) { - if (_294.init) { - return { - init: false, - acc: x - }; - }; - return { - init: false, - acc: Prelude["<>"](__dict_Monoid_194["__superclass_Prelude.Semigroup_0"]())(_294.acc)(Prelude["<>"](__dict_Monoid_194["__superclass_Prelude.Semigroup_0"]())(sep)(x)) - }; - }; - }; - return (foldl(__dict_Foldable_193)(go)({ - init: true, - acc: Data_Monoid.mempty(__dict_Monoid_194) - })(xs)).acc; - }; - }; - }; - }; - var mconcat = function (__dict_Foldable_195) { - return function (__dict_Monoid_196) { - return foldl(__dict_Foldable_195)(Prelude["<>"](__dict_Monoid_196["__superclass_Prelude.Semigroup_0"]()))(Data_Monoid.mempty(__dict_Monoid_196)); - }; - }; - var product = function (__dict_Foldable_197) { - return function (__dict_Semiring_198) { - return foldl(__dict_Foldable_197)(Prelude["*"](__dict_Semiring_198))(Prelude.one(__dict_Semiring_198)); - }; - }; - var sum = function (__dict_Foldable_199) { - return function (__dict_Semiring_200) { - return foldl(__dict_Foldable_199)(Prelude["+"](__dict_Semiring_200))(Prelude.zero(__dict_Semiring_200)); - }; - }; - var foldableMultiplicative = new Foldable(function (__dict_Monoid_201) { - return function (f) { - return function (_293) { - return f(_293); - }; - }; - }, function (f) { - return function (z) { - return function (_292) { - return f(z)(_292); - }; - }; - }, function (f) { - return function (z) { - return function (_291) { - return f(_291)(z); - }; - }; - }); - var foldableMaybe = new Foldable(function (__dict_Monoid_202) { - return function (f) { - return function (_272) { - if (_272 instanceof Data_Maybe.Nothing) { - return Data_Monoid.mempty(__dict_Monoid_202); - }; - if (_272 instanceof Data_Maybe.Just) { - return f(_272.value0); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-foldable-traversable/src/Data/Foldable.purs line 51, column 1 - line 59, column 1: " + [ f.constructor.name, _272.constructor.name ]); - }; - }; - }, function (f) { - return function (z) { - return function (_271) { - if (_271 instanceof Data_Maybe.Nothing) { - return z; - }; - if (_271 instanceof Data_Maybe.Just) { - return f(z)(_271.value0); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-foldable-traversable/src/Data/Foldable.purs line 51, column 1 - line 59, column 1: " + [ f.constructor.name, z.constructor.name, _271.constructor.name ]); - }; - }; - }, function (f) { - return function (z) { - return function (_270) { - if (_270 instanceof Data_Maybe.Nothing) { - return z; - }; - if (_270 instanceof Data_Maybe.Just) { - return f(_270.value0)(z); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-foldable-traversable/src/Data/Foldable.purs line 51, column 1 - line 59, column 1: " + [ f.constructor.name, z.constructor.name, _270.constructor.name ]); - }; - }; - }); - var foldableDual = new Foldable(function (__dict_Monoid_203) { - return function (f) { - return function (_284) { - return f(_284); - }; - }; - }, function (f) { - return function (z) { - return function (_283) { - return f(z)(_283); - }; - }; - }, function (f) { - return function (z) { - return function (_282) { - return f(_282)(z); - }; - }; - }); - var foldableDisj = new Foldable(function (__dict_Monoid_204) { - return function (f) { - return function (_287) { - return f(_287); - }; - }; - }, function (f) { - return function (z) { - return function (_286) { - return f(z)(_286); - }; - }; - }, function (f) { - return function (z) { - return function (_285) { - return f(_285)(z); - }; - }; - }); - var foldableConj = new Foldable(function (__dict_Monoid_205) { - return function (f) { - return function (_290) { - return f(_290); - }; - }; - }, function (f) { - return function (z) { - return function (_289) { - return f(z)(_289); - }; - }; - }, function (f) { - return function (z) { - return function (_288) { - return f(_288)(z); - }; - }; - }); - var foldableArray = new Foldable(function (__dict_Monoid_206) { - return function (f) { - return function (xs) { - return foldr(foldableArray)(function (x) { - return function (acc) { - return Prelude["<>"](__dict_Monoid_206["__superclass_Prelude.Semigroup_0"]())(f(x))(acc); - }; - })(Data_Monoid.mempty(__dict_Monoid_206))(xs); - }; - }; - }, $foreign.foldlArray, $foreign.foldrArray); - var foldableAdditive = new Foldable(function (__dict_Monoid_207) { - return function (f) { - return function (_281) { - return f(_281); - }; - }; - }, function (f) { - return function (z) { - return function (_280) { - return f(z)(_280); - }; - }; - }, function (f) { - return function (z) { - return function (_279) { - return f(_279)(z); - }; - }; - }); - var foldMap = function (dict) { - return dict.foldMap; - }; - var foldableFirst = new Foldable(function (__dict_Monoid_208) { - return function (f) { - return function (_275) { - return foldMap(foldableMaybe)(__dict_Monoid_208)(f)(_275); - }; - }; - }, function (f) { - return function (z) { - return function (_274) { - return foldl(foldableMaybe)(f)(z)(_274); - }; - }; - }, function (f) { - return function (z) { - return function (_273) { - return foldr(foldableMaybe)(f)(z)(_273); - }; - }; - }); - var foldableLast = new Foldable(function (__dict_Monoid_209) { - return function (f) { - return function (_278) { - return foldMap(foldableMaybe)(__dict_Monoid_209)(f)(_278); - }; - }; - }, function (f) { - return function (z) { - return function (_277) { - return foldl(foldableMaybe)(f)(z)(_277); - }; - }; - }, function (f) { - return function (z) { - return function (_276) { - return foldr(foldableMaybe)(f)(z)(_276); - }; - }; - }); - var fold = function (__dict_Foldable_210) { - return function (__dict_Monoid_211) { - return foldMap(__dict_Foldable_210)(__dict_Monoid_211)(Prelude.id(Prelude.categoryFn)); - }; - }; - var find = function (__dict_Foldable_212) { - return function (p) { - return foldl(__dict_Foldable_212)(function (r) { - return function (x) { - var _833 = p(x); - if (_833) { - return new Data_Maybe.Just(x); - }; - if (!_833) { - return r; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-foldable-traversable/src/Data/Foldable.purs line 181, column 1 - line 182, column 1: " + [ _833.constructor.name ]); - }; - })(Data_Maybe.Nothing.value); - }; - }; - var any = function (__dict_Foldable_213) { - return function (__dict_BooleanAlgebra_214) { - return function (p) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Data_Monoid_Disj.runDisj)(foldMap(__dict_Foldable_213)(Data_Monoid_Disj.monoidDisj(__dict_BooleanAlgebra_214))(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Monoid_Disj.Disj)(p))); - }; - }; - }; - var elem = function (__dict_Foldable_215) { - return function (__dict_Eq_216) { - return Prelude["<<<"](Prelude.semigroupoidFn)(any(__dict_Foldable_215)(Prelude.booleanAlgebraBoolean))(Prelude["=="](__dict_Eq_216)); - }; - }; - var notElem = function (__dict_Foldable_217) { - return function (__dict_Eq_218) { - return function (x) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Prelude.not(Prelude.booleanAlgebraBoolean))(elem(__dict_Foldable_217)(__dict_Eq_218)(x)); - }; - }; - }; - var or = function (__dict_Foldable_219) { - return function (__dict_BooleanAlgebra_220) { - return any(__dict_Foldable_219)(__dict_BooleanAlgebra_220)(Prelude.id(Prelude.categoryFn)); - }; - }; - var all = function (__dict_Foldable_221) { - return function (__dict_BooleanAlgebra_222) { - return function (p) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Data_Monoid_Conj.runConj)(foldMap(__dict_Foldable_221)(Data_Monoid_Conj.monoidConj(__dict_BooleanAlgebra_222))(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Monoid_Conj.Conj)(p))); - }; - }; - }; - var and = function (__dict_Foldable_223) { - return function (__dict_BooleanAlgebra_224) { - return all(__dict_Foldable_223)(__dict_BooleanAlgebra_224)(Prelude.id(Prelude.categoryFn)); - }; - }; - return { - Foldable: Foldable, - find: find, - notElem: notElem, - elem: elem, - product: product, - sum: sum, - all: all, - any: any, - or: or, - and: and, - intercalate: intercalate, - mconcat: mconcat, - sequence_: sequence_, - for_: for_, - traverse_: traverse_, - fold: fold, - foldMap: foldMap, - foldl: foldl, - foldr: foldr, - foldableArray: foldableArray, - foldableMaybe: foldableMaybe, - foldableFirst: foldableFirst, - foldableLast: foldableLast, - foldableAdditive: foldableAdditive, - foldableDual: foldableDual, - foldableDisj: foldableDisj, - foldableConj: foldableConj, - foldableMultiplicative: foldableMultiplicative - }; -})(); -var PS = PS || {}; -PS.Data_Maybe_Unsafe = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Maybe = PS.Data_Maybe; - var fromJust = function (_295) { - if (_295 instanceof Data_Maybe.Just) { - return _295.value0; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-maybe/src/Data/Maybe/Unsafe.purs line 10, column 1 - line 11, column 1: " + [ _295.constructor.name ]); - }; - return { - fromJust: fromJust - }; -})(); -var PS = PS || {}; -PS.Data_Traversable = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports */ -"use strict"; - -// module Data.Traversable - -exports.traverseArrayImpl = function () { - function Cont (fn) { - this.fn = fn; - } - - var emptyList = {}; - - function consList (x) { - return function (xs) { - return { head: x, tail: xs }; - }; - } - - function listToArray (list) { - var arr = []; - while (list !== emptyList) { - arr.push(list.head); - list = list.tail; - } - return arr; - } - - return function (apply) { - return function (map) { - return function (pure) { - return function (f) { - /* jshint maxparams: 2 */ - var buildFrom = function (x, ys) { - return apply(map(consList)(f(x)))(ys); - }; - - /* jshint maxparams: 3 */ - var go = function (acc, currentLen, xs) { - if (currentLen === 0) { - return acc; - } else { - var last = xs[currentLen - 1]; - return new Cont(function () { - return go(buildFrom(last, acc), currentLen - 1, xs); - }); - } - }; - - return function (array) { - var result = go(pure(emptyList), array.length, array); - while (result instanceof Cont) { - result = result.fn(); - } - - return map(listToArray)(result); - }; - }; - }; - }; - }; -}(); -; - return exports; - })(); - var Prelude = PS.Prelude; - var Data_Foldable = PS.Data_Foldable; - var Data_Maybe = PS.Data_Maybe; - var Data_Maybe_First = PS.Data_Maybe_First; - var Data_Maybe_Last = PS.Data_Maybe_Last; - var Data_Monoid_Additive = PS.Data_Monoid_Additive; - var Data_Monoid_Dual = PS.Data_Monoid_Dual; - var Data_Monoid_Multiplicative = PS.Data_Monoid_Multiplicative; - var Data_Monoid_Disj = PS.Data_Monoid_Disj; - var Data_Monoid_Conj = PS.Data_Monoid_Conj; - var StateL = function (x) { - return x; - }; - var StateR = function (x) { - return x; - }; - var Traversable = function (__superclass_Data$dotFoldable$dotFoldable_1, __superclass_Prelude$dotFunctor_0, sequence, traverse) { - this["__superclass_Data.Foldable.Foldable_1"] = __superclass_Data$dotFoldable$dotFoldable_1; - this["__superclass_Prelude.Functor_0"] = __superclass_Prelude$dotFunctor_0; - this.sequence = sequence; - this.traverse = traverse; - }; - var traverse = function (dict) { - return dict.traverse; - }; - var traversableMultiplicative = new Traversable(function () { - return Data_Foldable.foldableMultiplicative; - }, function () { - return Data_Monoid_Multiplicative.functorMultiplicative; - }, function (__dict_Applicative_226) { - return function (_313) { - return Prelude["<$>"]((__dict_Applicative_226["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Monoid_Multiplicative.Multiplicative)(_313); - }; - }, function (__dict_Applicative_225) { - return function (f) { - return function (_312) { - return Prelude["<$>"]((__dict_Applicative_225["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Monoid_Multiplicative.Multiplicative)(f(_312)); - }; - }; - }); - var traversableMaybe = new Traversable(function () { - return Data_Foldable.foldableMaybe; - }, function () { - return Data_Maybe.functorMaybe; - }, function (__dict_Applicative_228) { - return function (_299) { - if (_299 instanceof Data_Maybe.Nothing) { - return Prelude.pure(__dict_Applicative_228)(Data_Maybe.Nothing.value); - }; - if (_299 instanceof Data_Maybe.Just) { - return Prelude["<$>"]((__dict_Applicative_228["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Maybe.Just.create)(_299.value0); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-foldable-traversable/src/Data/Traversable.purs line 59, column 1 - line 65, column 1: " + [ _299.constructor.name ]); - }; - }, function (__dict_Applicative_227) { - return function (f) { - return function (_298) { - if (_298 instanceof Data_Maybe.Nothing) { - return Prelude.pure(__dict_Applicative_227)(Data_Maybe.Nothing.value); - }; - if (_298 instanceof Data_Maybe.Just) { - return Prelude["<$>"]((__dict_Applicative_227["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Maybe.Just.create)(f(_298.value0)); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-foldable-traversable/src/Data/Traversable.purs line 59, column 1 - line 65, column 1: " + [ f.constructor.name, _298.constructor.name ]); - }; - }; - }); - var traversableDual = new Traversable(function () { - return Data_Foldable.foldableDual; - }, function () { - return Data_Monoid_Dual.functorDual; - }, function (__dict_Applicative_230) { - return function (_307) { - return Prelude["<$>"]((__dict_Applicative_230["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Monoid_Dual.Dual)(_307); - }; - }, function (__dict_Applicative_229) { - return function (f) { - return function (_306) { - return Prelude["<$>"]((__dict_Applicative_229["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Monoid_Dual.Dual)(f(_306)); - }; - }; - }); - var traversableDisj = new Traversable(function () { - return Data_Foldable.foldableDisj; - }, function () { - return Data_Monoid_Disj.functorDisj; - }, function (__dict_Applicative_232) { - return function (_311) { - return Prelude["<$>"]((__dict_Applicative_232["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Monoid_Disj.Disj)(_311); - }; - }, function (__dict_Applicative_231) { - return function (f) { - return function (_310) { - return Prelude["<$>"]((__dict_Applicative_231["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Monoid_Disj.Disj)(f(_310)); - }; - }; - }); - var traversableConj = new Traversable(function () { - return Data_Foldable.foldableConj; - }, function () { - return Data_Monoid_Conj.functorConj; - }, function (__dict_Applicative_234) { - return function (_309) { - return Prelude["<$>"]((__dict_Applicative_234["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Monoid_Conj.Conj)(_309); - }; - }, function (__dict_Applicative_233) { - return function (f) { - return function (_308) { - return Prelude["<$>"]((__dict_Applicative_233["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Monoid_Conj.Conj)(f(_308)); - }; - }; - }); - var traversableArray = new Traversable(function () { - return Data_Foldable.foldableArray; - }, function () { - return Prelude.functorArray; - }, function (__dict_Applicative_236) { - return traverse(traversableArray)(__dict_Applicative_236)(Prelude.id(Prelude.categoryFn)); - }, function (__dict_Applicative_235) { - return $foreign.traverseArrayImpl(Prelude.apply(__dict_Applicative_235["__superclass_Prelude.Apply_0"]()))(Prelude.map((__dict_Applicative_235["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]()))(Prelude.pure(__dict_Applicative_235)); - }); - var traversableAdditive = new Traversable(function () { - return Data_Foldable.foldableAdditive; - }, function () { - return Data_Monoid_Additive.functorAdditive; - }, function (__dict_Applicative_238) { - return function (_305) { - return Prelude["<$>"]((__dict_Applicative_238["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Monoid_Additive.Additive)(_305); - }; - }, function (__dict_Applicative_237) { - return function (f) { - return function (_304) { - return Prelude["<$>"]((__dict_Applicative_237["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Monoid_Additive.Additive)(f(_304)); - }; - }; - }); - var stateR = function (_297) { - return _297; - }; - var stateL = function (_296) { - return _296; - }; - var sequence = function (dict) { - return dict.sequence; - }; - var traversableFirst = new Traversable(function () { - return Data_Foldable.foldableFirst; - }, function () { - return Data_Maybe_First.functorFirst; - }, function (__dict_Applicative_240) { - return function (_301) { - return Prelude["<$>"]((__dict_Applicative_240["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Maybe_First.First)(sequence(traversableMaybe)(__dict_Applicative_240)(_301)); - }; - }, function (__dict_Applicative_239) { - return function (f) { - return function (_300) { - return Prelude["<$>"]((__dict_Applicative_239["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Maybe_First.First)(traverse(traversableMaybe)(__dict_Applicative_239)(f)(_300)); - }; - }; - }); - var traversableLast = new Traversable(function () { - return Data_Foldable.foldableLast; - }, function () { - return Data_Maybe_Last.functorLast; - }, function (__dict_Applicative_242) { - return function (_303) { - return Prelude["<$>"]((__dict_Applicative_242["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Maybe_Last.Last)(sequence(traversableMaybe)(__dict_Applicative_242)(_303)); - }; - }, function (__dict_Applicative_241) { - return function (f) { - return function (_302) { - return Prelude["<$>"]((__dict_Applicative_241["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Data_Maybe_Last.Last)(traverse(traversableMaybe)(__dict_Applicative_241)(f)(_302)); - }; - }; - }); - var functorStateR = new Prelude.Functor(function (f) { - return function (k) { - return function (s) { - var _864 = stateR(k)(s); - return { - accum: _864.accum, - value: f(_864.value) - }; - }; - }; - }); - var functorStateL = new Prelude.Functor(function (f) { - return function (k) { - return function (s) { - var _867 = stateL(k)(s); - return { - accum: _867.accum, - value: f(_867.value) - }; - }; - }; - }); - var $$for = function (__dict_Applicative_247) { - return function (__dict_Traversable_248) { - return function (x) { - return function (f) { - return traverse(__dict_Traversable_248)(__dict_Applicative_247)(f)(x); - }; - }; - }; - }; - var applyStateR = new Prelude.Apply(function () { - return functorStateR; - }, function (f) { - return function (x) { - return function (s) { - var _870 = stateR(x)(s); - var _871 = stateR(f)(_870.accum); - return { - accum: _871.accum, - value: _871.value(_870.value) - }; - }; - }; - }); - var applyStateL = new Prelude.Apply(function () { - return functorStateL; - }, function (f) { - return function (x) { - return function (s) { - var _876 = stateL(f)(s); - var _877 = stateL(x)(_876.accum); - return { - accum: _877.accum, - value: _876.value(_877.value) - }; - }; - }; - }); - var applicativeStateR = new Prelude.Applicative(function () { - return applyStateR; - }, function (a) { - return function (s) { - return { - accum: s, - value: a - }; - }; - }); - var mapAccumR = function (__dict_Traversable_243) { - return function (f) { - return function (s0) { - return function (xs) { - return stateR(traverse(__dict_Traversable_243)(applicativeStateR)(function (a) { - return function (s) { - return f(s)(a); - }; - })(xs))(s0); - }; - }; - }; - }; - var scanr = function (__dict_Traversable_244) { - return function (f) { - return function (b0) { - return function (xs) { - return (mapAccumR(__dict_Traversable_244)(function (b) { - return function (a) { - var b$prime = f(a)(b); - return { - accum: b$prime, - value: b$prime - }; - }; - })(b0)(xs)).value; - }; - }; - }; - }; - var applicativeStateL = new Prelude.Applicative(function () { - return applyStateL; - }, function (a) { - return function (s) { - return { - accum: s, - value: a - }; - }; - }); - var mapAccumL = function (__dict_Traversable_245) { - return function (f) { - return function (s0) { - return function (xs) { - return stateL(traverse(__dict_Traversable_245)(applicativeStateL)(function (a) { - return function (s) { - return f(s)(a); - }; - })(xs))(s0); - }; - }; - }; - }; - var scanl = function (__dict_Traversable_246) { - return function (f) { - return function (b0) { - return function (xs) { - return (mapAccumL(__dict_Traversable_246)(function (b) { - return function (a) { - var b$prime = f(b)(a); - return { - accum: b$prime, - value: b$prime - }; - }; - })(b0)(xs)).value; - }; - }; - }; - }; - return { - Traversable: Traversable, - mapAccumR: mapAccumR, - mapAccumL: mapAccumL, - scanr: scanr, - scanl: scanl, - "for": $$for, - sequence: sequence, - traverse: traverse, - traversableArray: traversableArray, - traversableMaybe: traversableMaybe, - traversableFirst: traversableFirst, - traversableLast: traversableLast, - traversableAdditive: traversableAdditive, - traversableDual: traversableDual, - traversableConj: traversableConj, - traversableDisj: traversableDisj, - traversableMultiplicative: traversableMultiplicative - }; -})(); -var PS = PS || {}; -PS.Data_Either = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Monoid = PS.Data_Monoid; - var Control_Alt = PS.Control_Alt; - var Control_Extend = PS.Control_Extend; - var Data_Bifoldable = PS.Data_Bifoldable; - var Data_Bifunctor = PS.Data_Bifunctor; - var Data_Bitraversable = PS.Data_Bitraversable; - var Data_Foldable = PS.Data_Foldable; - var Data_Traversable = PS.Data_Traversable; - var Left = (function () { - function Left(value0) { - this.value0 = value0; - }; - Left.create = function (value0) { - return new Left(value0); - }; - return Left; - })(); - var Right = (function () { - function Right(value0) { - this.value0 = value0; - }; - Right.create = function (value0) { - return new Right(value0); - }; - return Right; - })(); - var showEither = function (__dict_Show_251) { - return function (__dict_Show_252) { - return new Prelude.Show(function (_321) { - if (_321 instanceof Left) { - return "Left (" + (Prelude.show(__dict_Show_251)(_321.value0) + ")"); - }; - if (_321 instanceof Right) { - return "Right (" + (Prelude.show(__dict_Show_252)(_321.value0) + ")"); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 174, column 1 - line 181, column 1: " + [ _321.constructor.name ]); - }); - }; - }; - var functorEither = new Prelude.Functor(function (f) { - return function (_316) { - if (_316 instanceof Left) { - return new Left(_316.value0); - }; - if (_316 instanceof Right) { - return new Right(f(_316.value0)); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 52, column 1 - line 56, column 1: " + [ f.constructor.name, _316.constructor.name ]); - }; - }); - var foldableEither = new Data_Foldable.Foldable(function (__dict_Monoid_255) { - return function (f) { - return function (_328) { - if (_328 instanceof Left) { - return Data_Monoid.mempty(__dict_Monoid_255); - }; - if (_328 instanceof Right) { - return f(_328.value0); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 201, column 1 - line 209, column 1: " + [ f.constructor.name, _328.constructor.name ]); - }; - }; - }, function (f) { - return function (z) { - return function (_327) { - if (_327 instanceof Left) { - return z; - }; - if (_327 instanceof Right) { - return f(z)(_327.value0); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 201, column 1 - line 209, column 1: " + [ f.constructor.name, z.constructor.name, _327.constructor.name ]); - }; - }; - }, function (f) { - return function (z) { - return function (_326) { - if (_326 instanceof Left) { - return z; - }; - if (_326 instanceof Right) { - return f(_326.value0)(z); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 201, column 1 - line 209, column 1: " + [ f.constructor.name, z.constructor.name, _326.constructor.name ]); - }; - }; - }); - var traversableEither = new Data_Traversable.Traversable(function () { - return foldableEither; - }, function () { - return functorEither; - }, function (__dict_Applicative_250) { - return function (_333) { - if (_333 instanceof Left) { - return Prelude.pure(__dict_Applicative_250)(new Left(_333.value0)); - }; - if (_333 instanceof Right) { - return Prelude["<$>"]((__dict_Applicative_250["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Right.create)(_333.value0); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 217, column 1 - line 223, column 1: " + [ _333.constructor.name ]); - }; - }, function (__dict_Applicative_249) { - return function (f) { - return function (_332) { - if (_332 instanceof Left) { - return Prelude.pure(__dict_Applicative_249)(new Left(_332.value0)); - }; - if (_332 instanceof Right) { - return Prelude["<$>"]((__dict_Applicative_249["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Right.create)(f(_332.value0)); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 217, column 1 - line 223, column 1: " + [ f.constructor.name, _332.constructor.name ]); - }; - }; - }); - var extendEither = new Control_Extend.Extend(function () { - return functorEither; - }, function (f) { - return function (_320) { - if (_320 instanceof Left) { - return new Left(_320.value0); - }; - return new Right(f(_320)); - }; - }); - var eqEither = function (__dict_Eq_256) { - return function (__dict_Eq_257) { - return new Prelude.Eq(function (_322) { - return function (_323) { - if (_322 instanceof Left && _323 instanceof Left) { - return Prelude["=="](__dict_Eq_256)(_322.value0)(_323.value0); - }; - if (_322 instanceof Right && _323 instanceof Right) { - return Prelude["=="](__dict_Eq_257)(_322.value0)(_323.value0); - }; - return false; - }; - }); - }; - }; - var ordEither = function (__dict_Ord_253) { - return function (__dict_Ord_254) { - return new Prelude.Ord(function () { - return eqEither(__dict_Ord_253["__superclass_Prelude.Eq_0"]())(__dict_Ord_254["__superclass_Prelude.Eq_0"]()); - }, function (_324) { - return function (_325) { - if (_324 instanceof Left && _325 instanceof Left) { - return Prelude.compare(__dict_Ord_253)(_324.value0)(_325.value0); - }; - if (_324 instanceof Right && _325 instanceof Right) { - return Prelude.compare(__dict_Ord_254)(_324.value0)(_325.value0); - }; - if (_324 instanceof Left) { - return Prelude.LT.value; - }; - if (_325 instanceof Left) { - return Prelude.GT.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 191, column 1 - line 197, column 1: " + [ _324.constructor.name, _325.constructor.name ]); - }; - }); - }; - }; - var either = function (f) { - return function (g) { - return function (_315) { - if (_315 instanceof Left) { - return f(_315.value0); - }; - if (_315 instanceof Right) { - return g(_315.value0); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 28, column 1 - line 29, column 1: " + [ f.constructor.name, g.constructor.name, _315.constructor.name ]); - }; - }; - }; - var isLeft = either(Prelude["const"](true))(Prelude["const"](false)); - var isRight = either(Prelude["const"](false))(Prelude["const"](true)); - var boundedEither = function (__dict_Bounded_258) { - return function (__dict_Bounded_259) { - return new Prelude.Bounded(new Left(Prelude.bottom(__dict_Bounded_258)), new Right(Prelude.top(__dict_Bounded_259))); - }; - }; - var bifunctorEither = new Data_Bifunctor.Bifunctor(function (f) { - return function (g) { - return function (_317) { - if (_317 instanceof Left) { - return new Left(f(_317.value0)); - }; - if (_317 instanceof Right) { - return new Right(g(_317.value0)); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 56, column 1 - line 92, column 1: " + [ f.constructor.name, g.constructor.name, _317.constructor.name ]); - }; - }; - }); - var bifoldableEither = new Data_Bifoldable.Bifoldable(function (__dict_Monoid_262) { - return function (f) { - return function (g) { - return function (_331) { - if (_331 instanceof Left) { - return f(_331.value0); - }; - if (_331 instanceof Right) { - return g(_331.value0); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 209, column 1 - line 217, column 1: " + [ f.constructor.name, g.constructor.name, _331.constructor.name ]); - }; - }; - }; - }, function (f) { - return function (g) { - return function (z) { - return function (_330) { - if (_330 instanceof Left) { - return f(z)(_330.value0); - }; - if (_330 instanceof Right) { - return g(z)(_330.value0); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 209, column 1 - line 217, column 1: " + [ f.constructor.name, g.constructor.name, z.constructor.name, _330.constructor.name ]); - }; - }; - }; - }, function (f) { - return function (g) { - return function (z) { - return function (_329) { - if (_329 instanceof Left) { - return f(_329.value0)(z); - }; - if (_329 instanceof Right) { - return g(_329.value0)(z); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 209, column 1 - line 217, column 1: " + [ f.constructor.name, g.constructor.name, z.constructor.name, _329.constructor.name ]); - }; - }; - }; - }); - var bitraversableEither = new Data_Bitraversable.Bitraversable(function () { - return bifoldableEither; - }, function () { - return bifunctorEither; - }, function (__dict_Applicative_261) { - return function (_335) { - if (_335 instanceof Left) { - return Prelude["<$>"]((__dict_Applicative_261["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Left.create)(_335.value0); - }; - if (_335 instanceof Right) { - return Prelude["<$>"]((__dict_Applicative_261["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Right.create)(_335.value0); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 223, column 1 - line 227, column 36: " + [ _335.constructor.name ]); - }; - }, function (__dict_Applicative_260) { - return function (f) { - return function (g) { - return function (_334) { - if (_334 instanceof Left) { - return Prelude["<$>"]((__dict_Applicative_260["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Left.create)(f(_334.value0)); - }; - if (_334 instanceof Right) { - return Prelude["<$>"]((__dict_Applicative_260["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Right.create)(g(_334.value0)); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 223, column 1 - line 227, column 36: " + [ f.constructor.name, g.constructor.name, _334.constructor.name ]); - }; - }; - }; - }); - var applyEither = new Prelude.Apply(function () { - return functorEither; - }, function (_318) { - return function (r) { - if (_318 instanceof Left) { - return new Left(_318.value0); - }; - if (_318 instanceof Right) { - return Prelude["<$>"](functorEither)(_318.value0)(r); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either.purs line 92, column 1 - line 116, column 1: " + [ _318.constructor.name, r.constructor.name ]); - }; - }); - var bindEither = new Prelude.Bind(function () { - return applyEither; - }, either(function (e) { - return function (_314) { - return new Left(e); - }; - })(function (a) { - return function (f) { - return f(a); - }; - })); - var applicativeEither = new Prelude.Applicative(function () { - return applyEither; - }, Right.create); - var monadEither = new Prelude.Monad(function () { - return applicativeEither; - }, function () { - return bindEither; - }); - var altEither = new Control_Alt.Alt(function () { - return functorEither; - }, function (_319) { - return function (r) { - if (_319 instanceof Left) { - return r; - }; - return _319; - }; - }); - return { - Left: Left, - Right: Right, - isRight: isRight, - isLeft: isLeft, - either: either, - functorEither: functorEither, - bifunctorEither: bifunctorEither, - applyEither: applyEither, - applicativeEither: applicativeEither, - altEither: altEither, - bindEither: bindEither, - monadEither: monadEither, - extendEither: extendEither, - showEither: showEither, - eqEither: eqEither, - ordEither: ordEither, - boundedEither: boundedEither, - foldableEither: foldableEither, - bifoldableEither: bifoldableEither, - traversableEither: traversableEither, - bitraversableEither: bitraversableEither - }; -})(); -var PS = PS || {}; -PS.Data_Either_Nested = (function () { - "use strict"; - var Data_Either = PS.Data_Either; - var Prelude = PS.Prelude; - var either9of9 = function (v) { - return new Data_Either.Right(v); - }; - var either9of10 = function (v) { - return new Data_Either.Left(new Data_Either.Right(v)); - }; - var either8of9 = function (v) { - return new Data_Either.Left(new Data_Either.Right(v)); - }; - var either8of8 = function (v) { - return new Data_Either.Right(v); - }; - var either8of10 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))); - }; - var either7of9 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))); - }; - var either7of8 = function (v) { - return new Data_Either.Left(new Data_Either.Right(v)); - }; - var either7of7 = function (v) { - return new Data_Either.Right(v); - }; - var either7of10 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v)))); - }; - var either6of9 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v)))); - }; - var either6of8 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))); - }; - var either6of7 = function (v) { - return new Data_Either.Left(new Data_Either.Right(v)); - }; - var either6of6 = function (v) { - return new Data_Either.Right(v); - }; - var either6of10 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))))); - }; - var either5of9 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))))); - }; - var either5of8 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v)))); - }; - var either5of7 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))); - }; - var either5of6 = function (v) { - return new Data_Either.Left(new Data_Either.Right(v)); - }; - var either5of5 = function (v) { - return new Data_Either.Right(v); - }; - var either5of10 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v)))))); - }; - var either4of9 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v)))))); - }; - var either4of8 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))))); - }; - var either4of7 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v)))); - }; - var either4of6 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))); - }; - var either4of5 = function (v) { - return new Data_Either.Left(new Data_Either.Right(v)); - }; - var either4of4 = function (v) { - return new Data_Either.Right(v); - }; - var either4of10 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))))))); - }; - var either3of9 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))))))); - }; - var either3of8 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v)))))); - }; - var either3of7 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))))); - }; - var either3of6 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v)))); - }; - var either3of5 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))); - }; - var either3of4 = function (v) { - return new Data_Either.Left(new Data_Either.Right(v)); - }; - var either3of3 = function (v) { - return new Data_Either.Right(v); - }; - var either3of10 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v)))))))); - }; - var either2of9 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v)))))))); - }; - var either2of8 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))))))); - }; - var either2of7 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v)))))); - }; - var either2of6 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))))); - }; - var either2of5 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v)))); - }; - var either2of4 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))); - }; - var either2of3 = function (v) { - return new Data_Either.Left(new Data_Either.Right(v)); - }; - var either2of2 = Data_Either.Right.create; - var either2of10 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Right(v))))))))); - }; - var either2 = Data_Either.either; - var either3 = function (a) { - return function (b) { - return function (z) { - return Data_Either.either(either2(a)(b))(z); - }; - }; - }; - var either4 = function (a) { - return function (b) { - return function (c) { - return function (z) { - return Data_Either.either(either3(a)(b)(c))(z); - }; - }; - }; - }; - var either5 = function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (z) { - return Data_Either.either(either4(a)(b)(c)(d))(z); - }; - }; - }; - }; - }; - var either6 = function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (z) { - return Data_Either.either(either5(a)(b)(c)(d)(e))(z); - }; - }; - }; - }; - }; - }; - var either7 = function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (z) { - return Data_Either.either(either6(a)(b)(c)(d)(e)(f))(z); - }; - }; - }; - }; - }; - }; - }; - var either8 = function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (g) { - return function (z) { - return Data_Either.either(either7(a)(b)(c)(d)(e)(f)(g))(z); - }; - }; - }; - }; - }; - }; - }; - }; - var either9 = function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (g) { - return function (h) { - return function (z) { - return Data_Either.either(either8(a)(b)(c)(d)(e)(f)(g)(h))(z); - }; - }; - }; - }; - }; - }; - }; - }; - }; - var either1of9 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(v)))))))); - }; - var either1of8 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(v))))))); - }; - var either1of7 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(v)))))); - }; - var either1of6 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(v))))); - }; - var either1of5 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(v)))); - }; - var either1of4 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(v))); - }; - var either1of3 = function (v) { - return new Data_Either.Left(new Data_Either.Left(v)); - }; - var either1of2 = Data_Either.Left.create; - var either1of10 = function (v) { - return new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(new Data_Either.Left(v))))))))); - }; - var either10of10 = function (v) { - return new Data_Either.Right(v); - }; - var either10 = function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (g) { - return function (h) { - return function (i) { - return function (z) { - return Data_Either.either(either9(a)(b)(c)(d)(e)(f)(g)(h)(i))(z); - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - return { - either10: either10, - either9: either9, - either8: either8, - either7: either7, - either6: either6, - either5: either5, - either4: either4, - either3: either3, - either2: either2, - either10of10: either10of10, - either9of10: either9of10, - either8of10: either8of10, - either7of10: either7of10, - either6of10: either6of10, - either5of10: either5of10, - either4of10: either4of10, - either3of10: either3of10, - either2of10: either2of10, - either1of10: either1of10, - either9of9: either9of9, - either8of9: either8of9, - either7of9: either7of9, - either6of9: either6of9, - either5of9: either5of9, - either4of9: either4of9, - either3of9: either3of9, - either2of9: either2of9, - either1of9: either1of9, - either8of8: either8of8, - either7of8: either7of8, - either6of8: either6of8, - either5of8: either5of8, - either4of8: either4of8, - either3of8: either3of8, - either2of8: either2of8, - either1of8: either1of8, - either7of7: either7of7, - either6of7: either6of7, - either5of7: either5of7, - either4of7: either4of7, - either3of7: either3of7, - either2of7: either2of7, - either1of7: either1of7, - either6of6: either6of6, - either5of6: either5of6, - either4of6: either4of6, - either3of6: either3of6, - either2of6: either2of6, - either1of6: either1of6, - either5of5: either5of5, - either4of5: either4of5, - either3of5: either3of5, - either2of5: either2of5, - either1of5: either1of5, - either4of4: either4of4, - either3of4: either3of4, - either2of4: either2of4, - either1of4: either1of4, - either3of3: either3of3, - either2of3: either2of3, - either1of3: either1of3, - either2of2: either2of2, - either1of2: either1of2 - }; -})(); -var PS = PS || {}; -PS.Data_Either_Unsafe = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Either = PS.Data_Either; - var fromRight = function (_337) { - if (_337 instanceof Data_Either.Right) { - return _337.value0; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either/Unsafe.purs line 14, column 1 - line 15, column 1: " + [ _337.constructor.name ]); - }; - var fromLeft = function (_336) { - if (_336 instanceof Data_Either.Left) { - return _336.value0; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-either/src/Data/Either/Unsafe.purs line 9, column 1 - line 10, column 1: " + [ _336.constructor.name ]); - }; - return { - fromRight: fromRight, - fromLeft: fromLeft - }; -})(); -var PS = PS || {}; -PS.Data_Identity = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Monoid = PS.Data_Monoid; - var Data_Functor_Invariant = PS.Data_Functor_Invariant; - var Control_Comonad = PS.Control_Comonad; - var Control_Extend = PS.Control_Extend; - var Data_Foldable = PS.Data_Foldable; - var Data_Traversable = PS.Data_Traversable; - var Identity = function (x) { - return x; - }; - var showIdentity = function (__dict_Show_265) { - return new Prelude.Show(function (_360) { - return "Identity (" + (Prelude.show(__dict_Show_265)(_360) + ")"); - }); - }; - var semiringIdentity = function (__dict_Semiring_266) { - return new Prelude.Semiring(function (_350) { - return function (_351) { - return Prelude["+"](__dict_Semiring_266)(_350)(_351); - }; - }, function (_352) { - return function (_353) { - return Prelude["*"](__dict_Semiring_266)(_352)(_353); - }; - }, Prelude.one(__dict_Semiring_266), Prelude.zero(__dict_Semiring_266)); - }; - var semigroupIdenity = function (__dict_Semigroup_267) { - return new Prelude.Semigroup(function (_348) { - return function (_349) { - return Prelude["<>"](__dict_Semigroup_267)(_348)(_349); - }; - }); - }; - var runIdentity = function (_338) { - return _338; - }; - var ringIdentity = function (__dict_Ring_268) { - return new Prelude.Ring(function () { - return semiringIdentity(__dict_Ring_268["__superclass_Prelude.Semiring_0"]()); - }, function (_358) { - return function (_359) { - return Prelude["-"](__dict_Ring_268)(_358)(_359); - }; - }); - }; - var monoidIdentity = function (__dict_Monoid_271) { - return new Data_Monoid.Monoid(function () { - return semigroupIdenity(__dict_Monoid_271["__superclass_Prelude.Semigroup_0"]()); - }, Data_Monoid.mempty(__dict_Monoid_271)); - }; - var moduloSemiringIdentity = function (__dict_ModuloSemiring_272) { - return new Prelude.ModuloSemiring(function () { - return semiringIdentity(__dict_ModuloSemiring_272["__superclass_Prelude.Semiring_0"]()); - }, function (_356) { - return function (_357) { - return Prelude["/"](__dict_ModuloSemiring_272)(_356)(_357); - }; - }, function (_354) { - return function (_355) { - return Prelude.mod(__dict_ModuloSemiring_272)(_354)(_355); - }; - }); - }; - var functorIdentity = new Prelude.Functor(function (f) { - return function (_361) { - return f(_361); - }; - }); - var invariantIdentity = new Data_Functor_Invariant.Invariant(Data_Functor_Invariant.imapF(functorIdentity)); - var foldableIdentity = new Data_Foldable.Foldable(function (__dict_Monoid_273) { - return function (f) { - return function (_368) { - return f(_368); - }; - }; - }, function (f) { - return function (z) { - return function (_367) { - return f(z)(_367); - }; - }; - }, function (f) { - return function (z) { - return function (_366) { - return f(_366)(z); - }; - }; - }); - var traversableIdentity = new Data_Traversable.Traversable(function () { - return foldableIdentity; - }, function () { - return functorIdentity; - }, function (__dict_Applicative_264) { - return function (_370) { - return Prelude["<$>"]((__dict_Applicative_264["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Identity)(_370); - }; - }, function (__dict_Applicative_263) { - return function (f) { - return function (_369) { - return Prelude["<$>"]((__dict_Applicative_263["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Identity)(f(_369)); - }; - }; - }); - var extendIdentity = new Control_Extend.Extend(function () { - return functorIdentity; - }, function (f) { - return function (m) { - return f(m); - }; - }); - var eqIdentity = function (__dict_Eq_274) { - return new Prelude.Eq(function (_339) { - return function (_340) { - return Prelude["=="](__dict_Eq_274)(_339)(_340); - }; - }); - }; - var ordIdentity = function (__dict_Ord_269) { - return new Prelude.Ord(function () { - return eqIdentity(__dict_Ord_269["__superclass_Prelude.Eq_0"]()); - }, function (_341) { - return function (_342) { - return Prelude.compare(__dict_Ord_269)(_341)(_342); - }; - }); - }; - var divisionRingIdentity = function (__dict_DivisionRing_275) { - return new Prelude.DivisionRing(function () { - return moduloSemiringIdentity(__dict_DivisionRing_275["__superclass_Prelude.ModuloSemiring_1"]()); - }, function () { - return ringIdentity(__dict_DivisionRing_275["__superclass_Prelude.Ring_0"]()); - }); - }; - var numIdentity = function (__dict_Num_270) { - return new Prelude.Num(function () { - return divisionRingIdentity(__dict_Num_270["__superclass_Prelude.DivisionRing_0"]()); - }); - }; - var comonadIdentity = new Control_Comonad.Comonad(function () { - return extendIdentity; - }, function (_365) { - return _365; - }); - var boundedIdentity = function (__dict_Bounded_277) { - return new Prelude.Bounded(Prelude.bottom(__dict_Bounded_277), Prelude.top(__dict_Bounded_277)); - }; - var boundedOrdIdentity = function (__dict_BoundedOrd_276) { - return new Prelude.BoundedOrd(function () { - return boundedIdentity(__dict_BoundedOrd_276["__superclass_Prelude.Bounded_0"]()); - }, function () { - return ordIdentity(__dict_BoundedOrd_276["__superclass_Prelude.Ord_1"]()); - }); - }; - var booleanAlgebraIdentity = function (__dict_BooleanAlgebra_278) { - return new Prelude.BooleanAlgebra(function () { - return boundedIdentity(__dict_BooleanAlgebra_278["__superclass_Prelude.Bounded_0"]()); - }, function (_343) { - return function (_344) { - return Prelude.conj(__dict_BooleanAlgebra_278)(_343)(_344); - }; - }, function (_345) { - return function (_346) { - return Prelude.disj(__dict_BooleanAlgebra_278)(_345)(_346); - }; - }, function (_347) { - return Prelude.not(__dict_BooleanAlgebra_278)(_347); - }); - }; - var applyIdentity = new Prelude.Apply(function () { - return functorIdentity; - }, function (_362) { - return function (_363) { - return _362(_363); - }; - }); - var bindIdentity = new Prelude.Bind(function () { - return applyIdentity; - }, function (_364) { - return function (f) { - return f(_364); - }; - }); - var applicativeIdentity = new Prelude.Applicative(function () { - return applyIdentity; - }, Identity); - var monadIdentity = new Prelude.Monad(function () { - return applicativeIdentity; - }, function () { - return bindIdentity; - }); - return { - Identity: Identity, - runIdentity: runIdentity, - eqIdentity: eqIdentity, - ordIdentity: ordIdentity, - boundedIdentity: boundedIdentity, - boundedOrdIdentity: boundedOrdIdentity, - booleanAlgebraIdentity: booleanAlgebraIdentity, - semigroupIdenity: semigroupIdenity, - monoidIdentity: monoidIdentity, - semiringIdentity: semiringIdentity, - moduloSemiringIdentity: moduloSemiringIdentity, - ringIdentity: ringIdentity, - divisionRingIdentity: divisionRingIdentity, - numIdentity: numIdentity, - showIdentity: showIdentity, - functorIdentity: functorIdentity, - invariantIdentity: invariantIdentity, - applyIdentity: applyIdentity, - applicativeIdentity: applicativeIdentity, - bindIdentity: bindIdentity, - monadIdentity: monadIdentity, - extendIdentity: extendIdentity, - comonadIdentity: comonadIdentity, - foldableIdentity: foldableIdentity, - traversableIdentity: traversableIdentity - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Reader = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Identity = PS.Data_Identity; - var Control_Monad_Reader_Trans = PS.Control_Monad_Reader_Trans; - var withReader = Control_Monad_Reader_Trans.withReaderT; - var runReader = function (m) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Data_Identity.runIdentity)(Control_Monad_Reader_Trans.runReaderT(m)); - }; - var mapReader = function (f) { - return Control_Monad_Reader_Trans.mapReaderT(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Identity.Identity)(Prelude["<<<"](Prelude.semigroupoidFn)(f)(Data_Identity.runIdentity))); - }; - return { - mapReader: mapReader, - withReader: withReader, - runReader: runReader - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Rec_Class = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Identity = PS.Data_Identity; - var Control_Monad_Eff_Unsafe = PS.Control_Monad_Eff_Unsafe; - var Control_Monad_ST = PS.Control_Monad_ST; - var Control_Monad_Eff = PS.Control_Monad_Eff; - var Data_Functor = PS.Data_Functor; - var Data_Either = PS.Data_Either; - var MonadRec = function (__superclass_Prelude$dotMonad_0, tailRecM) { - this["__superclass_Prelude.Monad_0"] = __superclass_Prelude$dotMonad_0; - this.tailRecM = tailRecM; - }; - var tailRecM = function (dict) { - return dict.tailRecM; - }; - var tailRecM2 = function (__dict_MonadRec_279) { - return function (f) { - return function (a) { - return function (b) { - return tailRecM(__dict_MonadRec_279)(function (o) { - return f(o.a)(o.b); - })({ - a: a, - b: b - }); - }; - }; - }; - }; - var tailRecM3 = function (__dict_MonadRec_280) { - return function (f) { - return function (a) { - return function (b) { - return function (c) { - return tailRecM(__dict_MonadRec_280)(function (o) { - return f(o.a)(o.b)(o.c); - })({ - a: a, - b: b, - c: c - }); - }; - }; - }; - }; - }; - var tailRecEff = function (f) { - return function (a) { - var fromRight = function (_372) { - if (_372 instanceof Data_Either.Right) { - return _372.value0; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-tailrec/src/Control/Monad/Rec/Class.purs line 87, column 3 - line 88, column 3: " + [ _372.constructor.name ]); - }; - var f$prime = Prelude["<<<"](Prelude.semigroupoidFn)(Control_Monad_Eff_Unsafe.unsafeInterleaveEff)(f); - return function __do() { - var _14 = f$prime(a)(); - var _13 = { - value: _14 - }; - (function () { - while (!(function __do() { - var _12 = _13.value; - return (function () { - if (_12 instanceof Data_Either.Left) { - return function __do() { - var _11 = f$prime(_12.value0)(); - _13.value = _11; - return Prelude["return"](Control_Monad_Eff.applicativeEff)(false)(); - }; - }; - if (_12 instanceof Data_Either.Right) { - return Prelude["return"](Control_Monad_Eff.applicativeEff)(true); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-tailrec/src/Control/Monad/Rec/Class.purs line 74, column 1 - line 75, column 1: " + [ _12.constructor.name ]); - })()(); - })()) { - - }; - return {}; - })(); - return Prelude["<$>"](Control_Monad_Eff.functorEff)(fromRight)(Control_Monad_ST.readSTRef(_13))(); - }; - }; - }; - var tailRec = function (f) { - return function (a) { - var go = function (__copy__371) { - var _371 = __copy__371; - tco: while (true) { - if (_371 instanceof Data_Either.Left) { - var __tco__371 = f(_371.value0); - _371 = __tco__371; - continue tco; - }; - if (_371 instanceof Data_Either.Right) { - return _371.value0; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-tailrec/src/Control/Monad/Rec/Class.purs line 62, column 1 - line 63, column 1: " + [ _371.constructor.name ]); - }; - }; - return go(f(a)); - }; - }; - var monadRecIdentity = new MonadRec(function () { - return Data_Identity.monadIdentity; - }, function (f) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Data_Identity.Identity)(tailRec(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Identity.runIdentity)(f))); - }); - var monadRecEff = new MonadRec(function () { - return Control_Monad_Eff.monadEff; - }, tailRecEff); - var forever = function (__dict_MonadRec_281) { - return function (ma) { - return tailRecM(__dict_MonadRec_281)(function (u) { - return Data_Functor["<$"]((((__dict_MonadRec_281["__superclass_Prelude.Monad_0"]())["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(new Data_Either.Left(u))(ma); - })(Prelude.unit); - }; - }; - return { - MonadRec: MonadRec, - forever: forever, - tailRecM3: tailRecM3, - tailRecM2: tailRecM2, - tailRecM: tailRecM, - tailRec: tailRec, - monadRecIdentity: monadRecIdentity, - monadRecEff: monadRecEff - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Except_Trans = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Either = PS.Data_Either; - var Control_Monad_Rec_Class = PS.Control_Monad_Rec_Class; - var Data_Monoid = PS.Data_Monoid; - var Control_Monad_Trans = PS.Control_Monad_Trans; - var Control_Monad_Eff_Class = PS.Control_Monad_Eff_Class; - var Control_Alt = PS.Control_Alt; - var Control_Alternative = PS.Control_Alternative; - var Control_MonadPlus = PS.Control_MonadPlus; - var Control_Plus = PS.Control_Plus; - var ExceptT = function (x) { - return x; - }; - var throwE = function (__dict_Applicative_282) { - return Prelude["<<<"](Prelude.semigroupoidFn)(ExceptT)(Prelude["<<<"](Prelude.semigroupoidFn)(Prelude.pure(__dict_Applicative_282))(Data_Either.Left.create)); - }; - var runExceptT = function (_373) { - return _373; - }; - var withExceptT = function (__dict_Functor_283) { - return function (f) { - var mapLeft = function (f_1) { - return function (_374) { - if (_374 instanceof Data_Either.Right) { - return new Data_Either.Right(_374.value0); - }; - if (_374 instanceof Data_Either.Left) { - return new Data_Either.Left(f_1(_374.value0)); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/Except/Trans.purs line 30, column 3 - line 31, column 3: " + [ f_1.constructor.name, _374.constructor.name ]); - }; - }; - return Prelude["<<<"](Prelude.semigroupoidFn)(ExceptT)(Prelude["<<<"](Prelude.semigroupoidFn)(Prelude["<$>"](__dict_Functor_283)(mapLeft(f)))(runExceptT)); - }; - }; - var monadTransExceptT = new Control_Monad_Trans.MonadTrans(function (__dict_Monad_286) { - return function (m) { - return ExceptT(Prelude[">>="](__dict_Monad_286["__superclass_Prelude.Bind_1"]())(m)(function (_18) { - return Prelude["return"](__dict_Monad_286["__superclass_Prelude.Applicative_0"]())(new Data_Either.Right(_18)); - })); - }; - }); - var mapExceptT = function (f) { - return function (m) { - return f(runExceptT(m)); - }; - }; - var functorExceptT = function (__dict_Functor_294) { - return new Prelude.Functor(function (f) { - return mapExceptT(Prelude["<$>"](__dict_Functor_294)(Prelude["<$>"](Data_Either.functorEither)(f))); - }); - }; - var catchE = function (__dict_Monad_295) { - return function (m) { - return function (handler) { - return Prelude[">>="](__dict_Monad_295["__superclass_Prelude.Bind_1"]())(runExceptT(m))(Data_Either.either(Prelude["<<<"](Prelude.semigroupoidFn)(runExceptT)(handler))(Prelude["<<<"](Prelude.semigroupoidFn)(Prelude.pure(__dict_Monad_295["__superclass_Prelude.Applicative_0"]()))(Data_Either.Right.create))); - }; - }; - }; - var applyExceptT = function (__dict_Apply_297) { - return new Prelude.Apply(function () { - return functorExceptT(__dict_Apply_297["__superclass_Prelude.Functor_0"]()); - }, function (_375) { - return function (_376) { - var f$prime = Prelude["<$>"](__dict_Apply_297["__superclass_Prelude.Functor_0"]())(Prelude["<*>"](Data_Either.applyEither))(_375); - var x$prime = Prelude["<*>"](__dict_Apply_297)(f$prime)(_376); - return x$prime; - }; - }); - }; - var bindExceptT = function (__dict_Monad_296) { - return new Prelude.Bind(function () { - return applyExceptT((__dict_Monad_296["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]()); - }, function (m) { - return function (k) { - return Prelude[">>="](__dict_Monad_296["__superclass_Prelude.Bind_1"]())(runExceptT(m))(Data_Either.either(Prelude["<<<"](Prelude.semigroupoidFn)(Prelude["return"](__dict_Monad_296["__superclass_Prelude.Applicative_0"]()))(Data_Either.Left.create))(Prelude["<<<"](Prelude.semigroupoidFn)(runExceptT)(k))); - }; - }); - }; - var applicativeExceptT = function (__dict_Applicative_298) { - return new Prelude.Applicative(function () { - return applyExceptT(__dict_Applicative_298["__superclass_Prelude.Apply_0"]()); - }, Prelude["<<<"](Prelude.semigroupoidFn)(ExceptT)(Prelude["<<<"](Prelude.semigroupoidFn)(Prelude.pure(__dict_Applicative_298))(Data_Either.Right.create))); - }; - var monadExceptT = function (__dict_Monad_291) { - return new Prelude.Monad(function () { - return applicativeExceptT(__dict_Monad_291["__superclass_Prelude.Applicative_0"]()); - }, function () { - return bindExceptT(__dict_Monad_291); - }); - }; - var monadEffExceptT = function (__dict_Monad_292) { - return function (__dict_MonadEff_293) { - return new Control_Monad_Eff_Class.MonadEff(function () { - return monadExceptT(__dict_Monad_292); - }, Prelude["<<<"](Prelude.semigroupoidFn)(Control_Monad_Trans.lift(monadTransExceptT)(__dict_Monad_292))(Control_Monad_Eff_Class.liftEff(__dict_MonadEff_293))); - }; - }; - var monadRecErrorT = function (__dict_Semigroup_287) { - return function (__dict_MonadRec_288) { - return new Control_Monad_Rec_Class.MonadRec(function () { - return monadExceptT(__dict_MonadRec_288["__superclass_Prelude.Monad_0"]()); - }, function (f) { - return Prelude["<<<"](Prelude.semigroupoidFn)(ExceptT)(Control_Monad_Rec_Class.tailRecM(__dict_MonadRec_288)(function (a) { - return Prelude[">>="]((__dict_MonadRec_288["__superclass_Prelude.Monad_0"]())["__superclass_Prelude.Bind_1"]())(runExceptT(f(a)))(function (_15) { - return Prelude["return"]((__dict_MonadRec_288["__superclass_Prelude.Monad_0"]())["__superclass_Prelude.Applicative_0"]())((function () { - if (_15 instanceof Data_Either.Left) { - return new Data_Either.Right(new Data_Either.Left(_15.value0)); - }; - if (_15 instanceof Data_Either.Right && _15.value0 instanceof Data_Either.Left) { - return new Data_Either.Left(_15.value0.value0); - }; - if (_15 instanceof Data_Either.Right && _15.value0 instanceof Data_Either.Right) { - return new Data_Either.Right(new Data_Either.Right(_15.value0.value0)); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/Except/Trans.purs line 55, column 1 - line 63, column 1: " + [ _15.constructor.name ]); - })()); - }); - })); - }); - }; - }; - var altExceptT = function (__dict_Semigroup_301) { - return function (__dict_Monad_302) { - return new Control_Alt.Alt(function () { - return functorExceptT(((__dict_Monad_302["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]()); - }, function (m) { - return function (n) { - return ExceptT(Prelude[">>="](__dict_Monad_302["__superclass_Prelude.Bind_1"]())(runExceptT(m))(function (_17) { - if (_17 instanceof Data_Either.Right) { - return Prelude.pure(__dict_Monad_302["__superclass_Prelude.Applicative_0"]())(new Data_Either.Right(_17.value0)); - }; - if (_17 instanceof Data_Either.Left) { - return Prelude[">>="](__dict_Monad_302["__superclass_Prelude.Bind_1"]())(runExceptT(n))(function (_16) { - if (_16 instanceof Data_Either.Right) { - return Prelude.pure(__dict_Monad_302["__superclass_Prelude.Applicative_0"]())(new Data_Either.Right(_16.value0)); - }; - if (_16 instanceof Data_Either.Left) { - return Prelude.pure(__dict_Monad_302["__superclass_Prelude.Applicative_0"]())(new Data_Either.Left(Prelude["<>"](__dict_Semigroup_301)(_17.value0)(_16.value0))); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/Except/Trans.purs line 63, column 1 - line 74, column 1: " + [ _16.constructor.name ]); - }); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/Except/Trans.purs line 63, column 1 - line 74, column 1: " + [ _17.constructor.name ]); - })); - }; - }); - }; - }; - var plusExceptT = function (__dict_Monoid_284) { - return function (__dict_Monad_285) { - return new Control_Plus.Plus(function () { - return altExceptT(__dict_Monoid_284["__superclass_Prelude.Semigroup_0"]())(__dict_Monad_285); - }, throwE(__dict_Monad_285["__superclass_Prelude.Applicative_0"]())(Data_Monoid.mempty(__dict_Monoid_284))); - }; - }; - var alternativeExceptT = function (__dict_Monoid_299) { - return function (__dict_Monad_300) { - return new Control_Alternative.Alternative(function () { - return plusExceptT(__dict_Monoid_299)(__dict_Monad_300); - }, function () { - return applicativeExceptT(__dict_Monad_300["__superclass_Prelude.Applicative_0"]()); - }); - }; - }; - var monadPlusExceptT = function (__dict_Monoid_289) { - return function (__dict_Monad_290) { - return new Control_MonadPlus.MonadPlus(function () { - return alternativeExceptT(__dict_Monoid_289)(__dict_Monad_290); - }, function () { - return monadExceptT(__dict_Monad_290); - }); - }; - }; - return { - ExceptT: ExceptT, - catchE: catchE, - throwE: throwE, - mapExceptT: mapExceptT, - withExceptT: withExceptT, - runExceptT: runExceptT, - functorExceptT: functorExceptT, - applyExceptT: applyExceptT, - applicativeExceptT: applicativeExceptT, - bindExceptT: bindExceptT, - monadExceptT: monadExceptT, - monadRecErrorT: monadRecErrorT, - altExceptT: altExceptT, - plusExceptT: plusExceptT, - alternativeExceptT: alternativeExceptT, - monadPlusExceptT: monadPlusExceptT, - monadTransExceptT: monadTransExceptT, - monadEffExceptT: monadEffExceptT - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Except = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Identity = PS.Data_Identity; - var Control_Monad_Except_Trans = PS.Control_Monad_Except_Trans; - var Data_Either = PS.Data_Either; - var withExcept = Control_Monad_Except_Trans.withExceptT(Data_Identity.functorIdentity); - var runExcept = Prelude["<<<"](Prelude.semigroupoidFn)(Data_Identity.runIdentity)(Control_Monad_Except_Trans.runExceptT); - var mapExcept = function (f) { - return Control_Monad_Except_Trans.mapExceptT(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Identity.Identity)(Prelude["<<<"](Prelude.semigroupoidFn)(f)(Data_Identity.runIdentity))); - }; - var except = Prelude["<<<"](Prelude.semigroupoidFn)(Control_Monad_Except_Trans.ExceptT)(Data_Identity.Identity); - return { - withExcept: withExcept, - mapExcept: mapExcept, - runExcept: runExcept, - except: except - }; -})(); -var PS = PS || {}; -PS.Data_Tuple = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Monoid = PS.Data_Monoid; - var Data_Functor_Invariant = PS.Data_Functor_Invariant; - var Control_Lazy = PS.Control_Lazy; - var Data_Maybe_First = PS.Data_Maybe_First; - var Data_Foldable = PS.Data_Foldable; - var Control_Biapplicative = PS.Control_Biapplicative; - var Control_Biapply = PS.Control_Biapply; - var Control_Comonad = PS.Control_Comonad; - var Control_Extend = PS.Control_Extend; - var Data_Bifoldable = PS.Data_Bifoldable; - var Data_Bifunctor = PS.Data_Bifunctor; - var Data_Bitraversable = PS.Data_Bitraversable; - var Data_Maybe = PS.Data_Maybe; - var Data_Traversable = PS.Data_Traversable; - var Tuple = (function () { - function Tuple(value0, value1) { - this.value0 = value0; - this.value1 = value1; - }; - Tuple.create = function (value0) { - return function (value1) { - return new Tuple(value0, value1); - }; - }; - return Tuple; - })(); - var uncurry = function (f) { - return function (_382) { - return f(_382.value0)(_382.value1); - }; - }; - var swap = function (_383) { - return new Tuple(_383.value1, _383.value0); - }; - var snd = function (_381) { - return _381.value1; - }; - var showTuple = function (__dict_Show_305) { - return function (__dict_Show_306) { - return new Prelude.Show(function (_384) { - return "Tuple (" + (Prelude.show(__dict_Show_305)(_384.value0) + (") (" + (Prelude.show(__dict_Show_306)(_384.value1) + ")"))); - }); - }; - }; - var semiringTuple = function (__dict_Semiring_307) { - return function (__dict_Semiring_308) { - return new Prelude.Semiring(function (_393) { - return function (_394) { - return new Tuple(Prelude.add(__dict_Semiring_307)(_393.value0)(_394.value0), Prelude.add(__dict_Semiring_308)(_393.value1)(_394.value1)); - }; - }, function (_395) { - return function (_396) { - return new Tuple(Prelude.mul(__dict_Semiring_307)(_395.value0)(_396.value0), Prelude.mul(__dict_Semiring_308)(_395.value1)(_396.value1)); - }; - }, new Tuple(Prelude.one(__dict_Semiring_307), Prelude.one(__dict_Semiring_308)), new Tuple(Prelude.zero(__dict_Semiring_307), Prelude.zero(__dict_Semiring_308))); - }; - }; - var semigroupoidTuple = new Prelude.Semigroupoid(function (_389) { - return function (_390) { - return new Tuple(_390.value0, _389.value1); - }; - }); - var semigroupTuple = function (__dict_Semigroup_309) { - return function (__dict_Semigroup_310) { - return new Prelude.Semigroup(function (_391) { - return function (_392) { - return new Tuple(Prelude["<>"](__dict_Semigroup_309)(_391.value0)(_392.value0), Prelude["<>"](__dict_Semigroup_310)(_391.value1)(_392.value1)); - }; - }); - }; - }; - var ringTuple = function (__dict_Ring_311) { - return function (__dict_Ring_312) { - return new Prelude.Ring(function () { - return semiringTuple(__dict_Ring_311["__superclass_Prelude.Semiring_0"]())(__dict_Ring_312["__superclass_Prelude.Semiring_0"]()); - }, function (_401) { - return function (_402) { - return new Tuple(Prelude.sub(__dict_Ring_311)(_401.value0)(_402.value0), Prelude.sub(__dict_Ring_312)(_401.value1)(_402.value1)); - }; - }); - }; - }; - var monoidTuple = function (__dict_Monoid_317) { - return function (__dict_Monoid_318) { - return new Data_Monoid.Monoid(function () { - return semigroupTuple(__dict_Monoid_317["__superclass_Prelude.Semigroup_0"]())(__dict_Monoid_318["__superclass_Prelude.Semigroup_0"]()); - }, new Tuple(Data_Monoid.mempty(__dict_Monoid_317), Data_Monoid.mempty(__dict_Monoid_318))); - }; - }; - var moduloSemiringTuple = function (__dict_ModuloSemiring_320) { - return function (__dict_ModuloSemiring_321) { - return new Prelude.ModuloSemiring(function () { - return semiringTuple(__dict_ModuloSemiring_320["__superclass_Prelude.Semiring_0"]())(__dict_ModuloSemiring_321["__superclass_Prelude.Semiring_0"]()); - }, function (_397) { - return function (_398) { - return new Tuple(Prelude.div(__dict_ModuloSemiring_320)(_397.value0)(_398.value0), Prelude.div(__dict_ModuloSemiring_321)(_397.value1)(_398.value1)); - }; - }, function (_399) { - return function (_400) { - return new Tuple(Prelude.mod(__dict_ModuloSemiring_320)(_399.value0)(_400.value0), Prelude.mod(__dict_ModuloSemiring_321)(_399.value1)(_400.value1)); - }; - }); - }; - }; - var lookup = function (__dict_Foldable_322) { - return function (__dict_Eq_323) { - return function (a) { - return function (f) { - return Data_Maybe_First.runFirst(Data_Foldable.foldMap(__dict_Foldable_322)(Data_Maybe_First.monoidFirst)(function (_379) { - var _1106 = Prelude["=="](__dict_Eq_323)(a)(_379.value0); - if (_1106) { - return new Data_Maybe.Just(_379.value1); - }; - if (!_1106) { - return Data_Maybe.Nothing.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-tuples/src/Data/Tuple.purs line 173, column 1 - line 174, column 1: " + [ _1106.constructor.name ]); - })(f)); - }; - }; - }; - }; - var functorTuple = new Prelude.Functor(function (f) { - return function (_408) { - return new Tuple(_408.value0, f(_408.value1)); - }; - }); - var invariantTuple = new Data_Functor_Invariant.Invariant(Data_Functor_Invariant.imapF(functorTuple)); - var fst = function (_380) { - return _380.value0; - }; - var lazyTuple = function (__dict_Lazy_324) { - return function (__dict_Lazy_325) { - return new Control_Lazy.Lazy(function (f) { - return new Tuple(Control_Lazy.defer(__dict_Lazy_324)(function (_377) { - return fst(f(Prelude.unit)); - }), Control_Lazy.defer(__dict_Lazy_325)(function (_378) { - return snd(f(Prelude.unit)); - })); - }); - }; - }; - var foldableTuple = new Data_Foldable.Foldable(function (__dict_Monoid_326) { - return function (f) { - return function (_418) { - return f(_418.value1); - }; - }; - }, function (f) { - return function (z) { - return function (_417) { - return f(z)(_417.value1); - }; - }; - }, function (f) { - return function (z) { - return function (_416) { - return f(_416.value1)(z); - }; - }; - }); - var traversableTuple = new Data_Traversable.Traversable(function () { - return foldableTuple; - }, function () { - return functorTuple; - }, function (__dict_Applicative_304) { - return function (_423) { - return Prelude["<$>"]((__dict_Applicative_304["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Tuple.create(_423.value0))(_423.value1); - }; - }, function (__dict_Applicative_303) { - return function (f) { - return function (_422) { - return Prelude["<$>"]((__dict_Applicative_303["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Tuple.create(_422.value0))(f(_422.value1)); - }; - }; - }); - var extendTuple = new Control_Extend.Extend(function () { - return functorTuple; - }, function (f) { - return function (_415) { - return new Tuple(_415.value0, f(_415)); - }; - }); - var eqTuple = function (__dict_Eq_327) { - return function (__dict_Eq_328) { - return new Prelude.Eq(function (_385) { - return function (_386) { - return Prelude["&&"](Prelude.booleanAlgebraBoolean)(Prelude["=="](__dict_Eq_327)(_385.value0)(_386.value0))(Prelude["=="](__dict_Eq_328)(_385.value1)(_386.value1)); - }; - }); - }; - }; - var ordTuple = function (__dict_Ord_313) { - return function (__dict_Ord_314) { - return new Prelude.Ord(function () { - return eqTuple(__dict_Ord_313["__superclass_Prelude.Eq_0"]())(__dict_Ord_314["__superclass_Prelude.Eq_0"]()); - }, function (_387) { - return function (_388) { - var _1151 = Prelude.compare(__dict_Ord_313)(_387.value0)(_388.value0); - if (_1151 instanceof Prelude.EQ) { - return Prelude.compare(__dict_Ord_314)(_387.value1)(_388.value1); - }; - return _1151; - }; - }); - }; - }; - var divisionRingTuple = function (__dict_DivisionRing_329) { - return function (__dict_DivisionRing_330) { - return new Prelude.DivisionRing(function () { - return moduloSemiringTuple(__dict_DivisionRing_329["__superclass_Prelude.ModuloSemiring_1"]())(__dict_DivisionRing_330["__superclass_Prelude.ModuloSemiring_1"]()); - }, function () { - return ringTuple(__dict_DivisionRing_329["__superclass_Prelude.Ring_0"]())(__dict_DivisionRing_330["__superclass_Prelude.Ring_0"]()); - }); - }; - }; - var numTuple = function (__dict_Num_315) { - return function (__dict_Num_316) { - return new Prelude.Num(function () { - return divisionRingTuple(__dict_Num_315["__superclass_Prelude.DivisionRing_0"]())(__dict_Num_316["__superclass_Prelude.DivisionRing_0"]()); - }); - }; - }; - var curry = function (f) { - return function (a) { - return function (b) { - return f(new Tuple(a, b)); - }; - }; - }; - var comonadTuple = new Control_Comonad.Comonad(function () { - return extendTuple; - }, snd); - var boundedTuple = function (__dict_Bounded_331) { - return function (__dict_Bounded_332) { - return new Prelude.Bounded(new Tuple(Prelude.bottom(__dict_Bounded_331), Prelude.bottom(__dict_Bounded_332)), new Tuple(Prelude.top(__dict_Bounded_331), Prelude.top(__dict_Bounded_332))); - }; - }; - var boundedOrdTuple = function (__dict_BoundedOrd_333) { - return function (__dict_BoundedOrd_334) { - return new Prelude.BoundedOrd(function () { - return boundedTuple(__dict_BoundedOrd_333["__superclass_Prelude.Bounded_0"]())(__dict_BoundedOrd_334["__superclass_Prelude.Bounded_0"]()); - }, function () { - return ordTuple(__dict_BoundedOrd_333["__superclass_Prelude.Ord_1"]())(__dict_BoundedOrd_334["__superclass_Prelude.Ord_1"]()); - }); - }; - }; - var booleanAlgebraTuple = function (__dict_BooleanAlgebra_335) { - return function (__dict_BooleanAlgebra_336) { - return new Prelude.BooleanAlgebra(function () { - return boundedTuple(__dict_BooleanAlgebra_335["__superclass_Prelude.Bounded_0"]())(__dict_BooleanAlgebra_336["__superclass_Prelude.Bounded_0"]()); - }, function (_403) { - return function (_404) { - return new Tuple(Prelude.conj(__dict_BooleanAlgebra_335)(_403.value0)(_404.value0), Prelude.conj(__dict_BooleanAlgebra_336)(_403.value1)(_404.value1)); - }; - }, function (_405) { - return function (_406) { - return new Tuple(Prelude.disj(__dict_BooleanAlgebra_335)(_405.value0)(_406.value0), Prelude.disj(__dict_BooleanAlgebra_336)(_405.value1)(_406.value1)); - }; - }, function (_407) { - return new Tuple(Prelude.not(__dict_BooleanAlgebra_335)(_407.value0), Prelude.not(__dict_BooleanAlgebra_336)(_407.value1)); - }); - }; - }; - var bifunctorTuple = new Data_Bifunctor.Bifunctor(function (f) { - return function (g) { - return function (_409) { - return new Tuple(f(_409.value0), g(_409.value1)); - }; - }; - }); - var bifoldableTuple = new Data_Bifoldable.Bifoldable(function (__dict_Monoid_340) { - return function (f) { - return function (g) { - return function (_419) { - return Prelude["<>"](__dict_Monoid_340["__superclass_Prelude.Semigroup_0"]())(f(_419.value0))(g(_419.value1)); - }; - }; - }; - }, function (f) { - return function (g) { - return function (z) { - return function (_421) { - return g(f(z)(_421.value0))(_421.value1); - }; - }; - }; - }, function (f) { - return function (g) { - return function (z) { - return function (_420) { - return f(_420.value0)(g(_420.value1)(z)); - }; - }; - }; - }); - var bitraversableTuple = new Data_Bitraversable.Bitraversable(function () { - return bifoldableTuple; - }, function () { - return bifunctorTuple; - }, function (__dict_Applicative_338) { - return function (_425) { - return Prelude["<*>"](__dict_Applicative_338["__superclass_Prelude.Apply_0"]())(Prelude["<$>"]((__dict_Applicative_338["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Tuple.create)(_425.value0))(_425.value1); - }; - }, function (__dict_Applicative_337) { - return function (f) { - return function (g) { - return function (_424) { - return Prelude["<*>"](__dict_Applicative_337["__superclass_Prelude.Apply_0"]())(Prelude["<$>"]((__dict_Applicative_337["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Tuple.create)(f(_424.value0)))(g(_424.value1)); - }; - }; - }; - }); - var biapplyTuple = new Control_Biapply.Biapply(function () { - return bifunctorTuple; - }, function (_412) { - return function (_413) { - return new Tuple(_412.value0(_413.value0), _412.value1(_413.value1)); - }; - }); - var biapplicativeTuple = new Control_Biapplicative.Biapplicative(function () { - return biapplyTuple; - }, Tuple.create); - var applyTuple = function (__dict_Semigroup_341) { - return new Prelude.Apply(function () { - return functorTuple; - }, function (_410) { - return function (_411) { - return new Tuple(Prelude["<>"](__dict_Semigroup_341)(_410.value0)(_411.value0), _410.value1(_411.value1)); - }; - }); - }; - var bindTuple = function (__dict_Semigroup_339) { - return new Prelude.Bind(function () { - return applyTuple(__dict_Semigroup_339); - }, function (_414) { - return function (f) { - var _1215 = f(_414.value1); - return new Tuple(Prelude["<>"](__dict_Semigroup_339)(_414.value0)(_1215.value0), _1215.value1); - }; - }); - }; - var applicativeTuple = function (__dict_Monoid_342) { - return new Prelude.Applicative(function () { - return applyTuple(__dict_Monoid_342["__superclass_Prelude.Semigroup_0"]()); - }, Tuple.create(Data_Monoid.mempty(__dict_Monoid_342))); - }; - var monadTuple = function (__dict_Monoid_319) { - return new Prelude.Monad(function () { - return applicativeTuple(__dict_Monoid_319); - }, function () { - return bindTuple(__dict_Monoid_319["__superclass_Prelude.Semigroup_0"]()); - }); - }; - return { - Tuple: Tuple, - lookup: lookup, - swap: swap, - uncurry: uncurry, - curry: curry, - snd: snd, - fst: fst, - showTuple: showTuple, - eqTuple: eqTuple, - ordTuple: ordTuple, - boundedTuple: boundedTuple, - boundedOrdTuple: boundedOrdTuple, - semigroupoidTuple: semigroupoidTuple, - semigroupTuple: semigroupTuple, - monoidTuple: monoidTuple, - semiringTuple: semiringTuple, - moduloSemiringTuple: moduloSemiringTuple, - ringTuple: ringTuple, - divisionRingTuple: divisionRingTuple, - numTuple: numTuple, - booleanAlgebraTuple: booleanAlgebraTuple, - functorTuple: functorTuple, - invariantTuple: invariantTuple, - bifunctorTuple: bifunctorTuple, - applyTuple: applyTuple, - biapplyTuple: biapplyTuple, - applicativeTuple: applicativeTuple, - biapplicativeTuple: biapplicativeTuple, - bindTuple: bindTuple, - monadTuple: monadTuple, - extendTuple: extendTuple, - comonadTuple: comonadTuple, - lazyTuple: lazyTuple, - foldableTuple: foldableTuple, - bifoldableTuple: bifoldableTuple, - traversableTuple: traversableTuple, - bitraversableTuple: bitraversableTuple - }; -})(); -var PS = PS || {}; -PS.Control_Comonad_Env_Trans = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Extend = PS.Control_Extend; - var Control_Comonad = PS.Control_Comonad; - var Control_Comonad_Trans = PS.Control_Comonad_Trans; - var Data_Tuple = PS.Data_Tuple; - var EnvT = function (x) { - return x; - }; - var withEnvT = function (f) { - return function (_427) { - return EnvT(new Data_Tuple.Tuple(f(_427.value0), _427.value1)); - }; - }; - var runEnvT = function (_426) { - return _426; - }; - var mapEnvT = function (f) { - return function (_428) { - return EnvT(new Data_Tuple.Tuple(_428.value0, f(_428.value1))); - }; - }; - var functorEnvT = function (__dict_Functor_343) { - return new Prelude.Functor(function (f) { - return function (_429) { - return EnvT(new Data_Tuple.Tuple(_429.value0, Prelude["<$>"](__dict_Functor_343)(f)(_429.value1))); - }; - }); - }; - var extendEnvT = function (__dict_Extend_344) { - return new Control_Extend.Extend(function () { - return functorEnvT(__dict_Extend_344["__superclass_Prelude.Functor_0"]()); - }, function (f) { - return function (_430) { - return EnvT(new Data_Tuple.Tuple(_430.value0, Prelude["<$>"](__dict_Extend_344["__superclass_Prelude.Functor_0"]())(f)(Control_Extend["<<="](__dict_Extend_344)(Prelude[">>>"](Prelude.semigroupoidFn)(Data_Tuple.Tuple.create(_430.value0))(EnvT))(_430.value1)))); - }; - }); - }; - var comonadTransEnvT = new Control_Comonad_Trans.ComonadTrans(function (__dict_Comonad_345) { - return function (_432) { - return _432.value1; - }; - }); - var comonadEnvT = function (__dict_Comonad_346) { - return new Control_Comonad.Comonad(function () { - return extendEnvT(__dict_Comonad_346["__superclass_Control.Extend.Extend_0"]()); - }, function (_431) { - return Control_Comonad.extract(__dict_Comonad_346)(_431.value1); - }); - }; - return { - EnvT: EnvT, - mapEnvT: mapEnvT, - withEnvT: withEnvT, - runEnvT: runEnvT, - functorEnvT: functorEnvT, - extendEnvT: extendEnvT, - comonadEnvT: comonadEnvT, - comonadTransEnvT: comonadTransEnvT - }; -})(); -var PS = PS || {}; -PS.Control_Comonad_Env = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Identity = PS.Data_Identity; - var Control_Comonad_Env_Trans = PS.Control_Comonad_Env_Trans; - var Data_Tuple = PS.Data_Tuple; - var withEnv = Control_Comonad_Env_Trans.withEnvT; - var runEnv = function (x) { - return Prelude["<$>"](Data_Tuple.functorTuple)(Data_Identity.runIdentity)(Control_Comonad_Env_Trans.runEnvT(x)); - }; - var mapEnv = Prelude.map(Control_Comonad_Env_Trans.functorEnvT(Data_Identity.functorIdentity)); - var env = function (e) { - return function (a) { - return Control_Comonad_Env_Trans.EnvT(Data_Tuple.Tuple.create(e)(a)); - }; - }; - return { - env: env, - mapEnv: mapEnv, - withEnv: withEnv, - runEnv: runEnv - }; -})(); -var PS = PS || {}; -PS.Control_Comonad_Env_Class = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Tuple = PS.Data_Tuple; - var Control_Comonad_Env_Trans = PS.Control_Comonad_Env_Trans; - var Control_Comonad = PS.Control_Comonad; - var Control_Comonad_Env = PS.Control_Comonad_Env; - var ComonadEnv = function (__superclass_Control$dotComonad$dotComonad_0, ask, local) { - this["__superclass_Control.Comonad.Comonad_0"] = __superclass_Control$dotComonad$dotComonad_0; - this.ask = ask; - this.local = local; - }; - var local = function (dict) { - return dict.local; - }; - var comonadEnvTuple = new ComonadEnv(function () { - return Data_Tuple.comonadTuple; - }, Data_Tuple.fst, function (f) { - return function (_433) { - return new Data_Tuple.Tuple(f(_433.value0), _433.value1); - }; - }); - var comonadEnvEnvT = function (__dict_Comonad_347) { - return new ComonadEnv(function () { - return Control_Comonad_Env_Trans.comonadEnvT(__dict_Comonad_347); - }, function (x) { - return Data_Tuple.fst(Control_Comonad_Env_Trans.runEnvT(x)); - }, function (f) { - return function (x) { - return Control_Comonad_Env_Trans.EnvT((function () { - var _1247 = Control_Comonad_Env_Trans.runEnvT(x); - return new Data_Tuple.Tuple(f(_1247.value0), _1247.value1); - })()); - }; - }); - }; - var ask = function (dict) { - return dict.ask; - }; - var asks = function (__dict_ComonadEnv_348) { - return function (f) { - return function (x) { - return f(ask(__dict_ComonadEnv_348)(x)); - }; - }; - }; - return { - ComonadEnv: ComonadEnv, - asks: asks, - local: local, - ask: ask, - comonadEnvTuple: comonadEnvTuple, - comonadEnvEnvT: comonadEnvEnvT - }; -})(); -var PS = PS || {}; -PS.Control_Comonad_Store_Trans = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Extend = PS.Control_Extend; - var Control_Comonad = PS.Control_Comonad; - var Control_Comonad_Trans = PS.Control_Comonad_Trans; - var Data_Tuple = PS.Data_Tuple; - var StoreT = function (x) { - return x; - }; - var runStoreT = function (_434) { - return _434; - }; - var functorStoreT = function (__dict_Functor_349) { - return new Prelude.Functor(function (f) { - return function (_435) { - return StoreT(new Data_Tuple.Tuple(Prelude["<$>"](__dict_Functor_349)(function (h) { - return Prelude[">>>"](Prelude.semigroupoidFn)(h)(f); - })(_435.value0), _435.value1)); - }; - }); - }; - var extendStoreT = function (__dict_Extend_350) { - return new Control_Extend.Extend(function () { - return functorStoreT(__dict_Extend_350["__superclass_Prelude.Functor_0"]()); - }, function (f) { - return function (_436) { - return StoreT(new Data_Tuple.Tuple(Control_Extend["<<="](__dict_Extend_350)(function (w$prime) { - return function (s$prime) { - return f(StoreT(new Data_Tuple.Tuple(w$prime, s$prime))); - }; - })(_436.value0), _436.value1)); - }; - }); - }; - var comonadTransStoreT = new Control_Comonad_Trans.ComonadTrans(function (__dict_Comonad_351) { - return function (_438) { - return Prelude["<$>"]((__dict_Comonad_351["__superclass_Control.Extend.Extend_0"]())["__superclass_Prelude.Functor_0"]())(function (f) { - return f(_438.value1); - })(_438.value0); - }; - }); - var comonadStoreT = function (__dict_Comonad_352) { - return new Control_Comonad.Comonad(function () { - return extendStoreT(__dict_Comonad_352["__superclass_Control.Extend.Extend_0"]()); - }, function (_437) { - return Control_Comonad.extract(__dict_Comonad_352)(_437.value0)(_437.value1); - }); - }; - return { - StoreT: StoreT, - runStoreT: runStoreT, - functorStoreT: functorStoreT, - extendStoreT: extendStoreT, - comonadStoreT: comonadStoreT, - comonadTransStoreT: comonadTransStoreT - }; -})(); -var PS = PS || {}; -PS.Control_Comonad_Store = (function () { - "use strict"; - var Data_Tuple = PS.Data_Tuple; - var Prelude = PS.Prelude; - var Data_Identity = PS.Data_Identity; - var Control_Comonad_Store_Trans = PS.Control_Comonad_Store_Trans; - var store = function (f) { - return function (x) { - return Control_Comonad_Store_Trans.StoreT(new Data_Tuple.Tuple(f, x)); - }; - }; - var runStore = function (s) { - return Data_Tuple.swap(Prelude["<$>"](Data_Tuple.functorTuple)(Data_Identity.runIdentity)(Data_Tuple.swap(Control_Comonad_Store_Trans.runStoreT(s)))); - }; - return { - store: store, - runStore: runStore - }; -})(); -var PS = PS || {}; -PS.Control_Comonad_Store_Class = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Extend = PS.Control_Extend; - var Control_Comonad = PS.Control_Comonad; - var Control_Comonad_Store_Trans = PS.Control_Comonad_Store_Trans; - var Data_Tuple = PS.Data_Tuple; - var ComonadStore = function (__superclass_Control$dotComonad$dotComonad_0, peek, pos) { - this["__superclass_Control.Comonad.Comonad_0"] = __superclass_Control$dotComonad$dotComonad_0; - this.peek = peek; - this.pos = pos; - }; - var pos = function (dict) { - return dict.pos; - }; - var peek = function (dict) { - return dict.peek; - }; - var peeks = function (__dict_ComonadStore_353) { - return function (f) { - return function (x) { - return peek(__dict_ComonadStore_353)(f(pos(__dict_ComonadStore_353)(x)))(x); - }; - }; - }; - var seeks = function (__dict_ComonadStore_354) { - return function (__dict_Extend_355) { - return function (f) { - return function (x) { - return peeks(__dict_ComonadStore_354)(f)(Control_Extend.duplicate(__dict_Extend_355)(x)); - }; - }; - }; - }; - var seek = function (__dict_ComonadStore_356) { - return function (__dict_Extend_357) { - return function (s) { - return function (x) { - return peek(__dict_ComonadStore_356)(s)(Control_Extend.duplicate(__dict_Extend_357)(x)); - }; - }; - }; - }; - var experiment = function (__dict_ComonadStore_358) { - return function (__dict_Functor_359) { - return function (f) { - return function (x) { - return Prelude["<$>"](__dict_Functor_359)(Prelude.flip(peek(__dict_ComonadStore_358))(x))(f(pos(__dict_ComonadStore_358)(x))); - }; - }; - }; - }; - var comonadStoreStoreT = function (__dict_Comonad_360) { - return new ComonadStore(function () { - return Control_Comonad_Store_Trans.comonadStoreT(__dict_Comonad_360); - }, function (s) { - return function (_440) { - return Control_Comonad.extract(__dict_Comonad_360)(_440.value0)(s); - }; - }, function (_439) { - return _439.value1; - }); - }; - return { - ComonadStore: ComonadStore, - seeks: seeks, - seek: seek, - peeks: peeks, - experiment: experiment, - peek: peek, - pos: pos, - comonadStoreStoreT: comonadStoreStoreT - }; -})(); -var PS = PS || {}; -PS.Control_Comonad_Traced_Trans = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Extend = PS.Control_Extend; - var Control_Comonad = PS.Control_Comonad; - var Data_Monoid = PS.Data_Monoid; - var Control_Comonad_Trans = PS.Control_Comonad_Trans; - var Data_Tuple = PS.Data_Tuple; - var TracedT = function (x) { - return x; - }; - var runTracedT = function (_441) { - return _441; - }; - var functorTracedT = function (__dict_Functor_361) { - return new Prelude.Functor(function (f) { - return function (_442) { - return Prelude["<$>"](__dict_Functor_361)(function (g) { - return function (t) { - return f(g(t)); - }; - })(_442); - }; - }); - }; - var extendTracedT = function (__dict_Extend_362) { - return function (__dict_Semigroup_363) { - return new Control_Extend.Extend(function () { - return functorTracedT(__dict_Extend_362["__superclass_Prelude.Functor_0"]()); - }, function (f) { - return function (_443) { - return Control_Extend["<<="](__dict_Extend_362)(function (w_1) { - return function (t) { - return f(Prelude["<$>"](__dict_Extend_362["__superclass_Prelude.Functor_0"]())(function (h) { - return function (t$prime) { - return h(Prelude["<>"](__dict_Semigroup_363)(t)(t$prime)); - }; - })(w_1)); - }; - })(_443); - }; - }); - }; - }; - var comonadTransTracedT = function (__dict_Monoid_364) { - return new Control_Comonad_Trans.ComonadTrans(function (__dict_Comonad_365) { - return function (_445) { - return Prelude["<$>"]((__dict_Comonad_365["__superclass_Control.Extend.Extend_0"]())["__superclass_Prelude.Functor_0"]())(function (f) { - return f(Data_Monoid.mempty(__dict_Monoid_364)); - })(_445); - }; - }); - }; - var comonadTracedT = function (__dict_Comonad_366) { - return function (__dict_Monoid_367) { - return new Control_Comonad.Comonad(function () { - return extendTracedT(__dict_Comonad_366["__superclass_Control.Extend.Extend_0"]())(__dict_Monoid_367["__superclass_Prelude.Semigroup_0"]()); - }, function (_444) { - return Control_Comonad.extract(__dict_Comonad_366)(_444)(Data_Monoid.mempty(__dict_Monoid_367)); - }); - }; - }; - return { - TracedT: TracedT, - runTracedT: runTracedT, - functorTracedT: functorTracedT, - extendTracedT: extendTracedT, - comonadTracedT: comonadTracedT, - comonadTransTracedT: comonadTransTracedT - }; -})(); -var PS = PS || {}; -PS.Control_Comonad_Traced = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Comonad_Traced_Trans = PS.Control_Comonad_Traced_Trans; - var Data_Identity = PS.Data_Identity; - var traced = Prelude[">>>"](Prelude.semigroupoidFn)(Data_Identity.Identity)(Control_Comonad_Traced_Trans.TracedT); - var runTraced = Prelude[">>>"](Prelude.semigroupoidFn)(Control_Comonad_Traced_Trans.runTracedT)(Data_Identity.runIdentity); - return { - traced: traced, - runTraced: runTraced - }; -})(); -var PS = PS || {}; -PS.Control_Comonad_Traced_Class = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Comonad = PS.Control_Comonad; - var Control_Comonad_Traced_Trans = PS.Control_Comonad_Traced_Trans; - var Data_Monoid = PS.Data_Monoid; - var Data_Tuple = PS.Data_Tuple; - var ComonadTraced = function (__superclass_Control$dotComonad$dotComonad_0, track) { - this["__superclass_Control.Comonad.Comonad_0"] = __superclass_Control$dotComonad$dotComonad_0; - this.track = track; - }; - var track = function (dict) { - return dict.track; - }; - var tracks = function (__dict_Comonad_368) { - return function (__dict_ComonadTraced_369) { - return function (f) { - return function (w) { - return track(__dict_ComonadTraced_369)(f(Control_Comonad.extract(__dict_Comonad_368)(w)))(w); - }; - }; - }; - }; - var listens = function (__dict_Functor_370) { - return function (f) { - return function (tr) { - return Prelude["<$>"](__dict_Functor_370)(function (g) { - return function (t) { - return new Data_Tuple.Tuple(g(t), f(t)); - }; - })(Control_Comonad_Traced_Trans.runTracedT(tr)); - }; - }; - }; - var listen = function (__dict_Functor_371) { - return function (tr) { - return Prelude["<$>"](__dict_Functor_371)(function (f) { - return function (t) { - return new Data_Tuple.Tuple(f(t), t); - }; - })(Control_Comonad_Traced_Trans.runTracedT(tr)); - }; - }; - var comonadTracedTracedT = function (__dict_Comonad_372) { - return function (__dict_Monoid_373) { - return new ComonadTraced(function () { - return Control_Comonad_Traced_Trans.comonadTracedT(__dict_Comonad_372)(__dict_Monoid_373); - }, function (t) { - return function (tr) { - return Control_Comonad.extract(__dict_Comonad_372)(Control_Comonad_Traced_Trans.runTracedT(tr))(t); - }; - }); - }; - }; - var censor = function (__dict_Functor_374) { - return function (f) { - return function (tr) { - return Prelude["<$>"](__dict_Functor_374)(Prelude[">>>"](Prelude.semigroupoidFn)(f))(Control_Comonad_Traced_Trans.runTracedT(tr)); - }; - }; - }; - return { - ComonadTraced: ComonadTraced, - censor: censor, - listens: listens, - listen: listen, - tracks: tracks, - track: track, - comonadTracedTracedT: comonadTracedTracedT - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Error_Trans = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Apply = PS.Control_Apply; - var Control_Monad_Error = PS.Control_Monad_Error; - var Control_Monad_Rec_Class = PS.Control_Monad_Rec_Class; - var Control_Monad_Trans = PS.Control_Monad_Trans; - var Control_Monad_Eff_Class = PS.Control_Monad_Eff_Class; - var Control_Alt = PS.Control_Alt; - var Control_Alternative = PS.Control_Alternative; - var Control_MonadPlus = PS.Control_MonadPlus; - var Control_Plus = PS.Control_Plus; - var Data_Either = PS.Data_Either; - var Data_Monoid = PS.Data_Monoid; - var Data_Tuple = PS.Data_Tuple; - var ErrorT = function (x) { - return x; - }; - var runErrorT = function (_446) { - return _446; - }; - var monadTransErrorT = new Control_Monad_Trans.MonadTrans(function (__dict_Monad_377) { - return function (m) { - return ErrorT(Prelude[">>="](__dict_Monad_377["__superclass_Prelude.Bind_1"]())(m)(function (_21) { - return Prelude["return"](__dict_Monad_377["__superclass_Prelude.Applicative_0"]())(new Data_Either.Right(_21)); - })); - }; - }); - var mapErrorT = function (f) { - return function (m) { - return ErrorT(f(runErrorT(m))); - }; - }; - var liftPassError = function (__dict_Monad_385) { - return function (pass) { - return mapErrorT(function (m) { - return pass(Prelude[">>="](__dict_Monad_385["__superclass_Prelude.Bind_1"]())(m)(function (_23) { - return Prelude["return"](__dict_Monad_385["__superclass_Prelude.Applicative_0"]())((function () { - if (_23 instanceof Data_Either.Left) { - return new Data_Tuple.Tuple(new Data_Either.Left(_23.value0), Prelude.id(Prelude.categoryFn)); - }; - if (_23 instanceof Data_Either.Right) { - return new Data_Tuple.Tuple(new Data_Either.Right(_23.value0.value0), _23.value0.value1); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/Error/Trans.purs line 87, column 1 - line 88, column 1: " + [ _23.constructor.name ]); - })()); - })); - }); - }; - }; - var liftListenError = function (__dict_Monad_386) { - return function (listen) { - return mapErrorT(function (m) { - return Prelude[">>="](__dict_Monad_386["__superclass_Prelude.Bind_1"]())(listen(m))(function (_22) { - return Prelude["return"](__dict_Monad_386["__superclass_Prelude.Applicative_0"]())(Prelude["<$>"](Data_Either.functorEither)(function (r) { - return new Data_Tuple.Tuple(r, _22.value1); - })(_22.value0)); - }); - }); - }; - }; - var liftCallCCError = function (callCC) { - return function (f) { - return ErrorT(callCC(function (c) { - return runErrorT(f(function (a) { - return ErrorT(c(new Data_Either.Right(a))); - })); - })); - }; - }; - var functorErrorT = function (__dict_Functor_387) { - return new Prelude.Functor(function (f) { - return Prelude["<<<"](Prelude.semigroupoidFn)(ErrorT)(Prelude["<<<"](Prelude.semigroupoidFn)(Prelude["<$>"](__dict_Functor_387)(Prelude["<$>"](Data_Either.functorEither)(f)))(runErrorT)); - }); - }; - var applyErrorT = function (__dict_Apply_389) { - return new Prelude.Apply(function () { - return functorErrorT(__dict_Apply_389["__superclass_Prelude.Functor_0"]()); - }, function (_447) { - return function (_448) { - return ErrorT(Prelude["<*>"](__dict_Apply_389)(Prelude["<$>"](__dict_Apply_389["__superclass_Prelude.Functor_0"]())(Control_Apply.lift2(Data_Either.applyEither)(Prelude["$"]))(_447))(_448)); - }; - }); - }; - var bindErrorT = function (__dict_Monad_388) { - return new Prelude.Bind(function () { - return applyErrorT((__dict_Monad_388["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]()); - }, function (m) { - return function (f) { - return ErrorT(Prelude[">>="](__dict_Monad_388["__superclass_Prelude.Bind_1"]())(runErrorT(m))(function (_19) { - if (_19 instanceof Data_Either.Left) { - return Prelude["return"](__dict_Monad_388["__superclass_Prelude.Applicative_0"]())(new Data_Either.Left(_19.value0)); - }; - if (_19 instanceof Data_Either.Right) { - return runErrorT(f(_19.value0)); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/Error/Trans.purs line 55, column 1 - line 62, column 1: " + [ _19.constructor.name ]); - })); - }; - }); - }; - var applicativeErrorT = function (__dict_Applicative_390) { - return new Prelude.Applicative(function () { - return applyErrorT(__dict_Applicative_390["__superclass_Prelude.Apply_0"]()); - }, function (a) { - return ErrorT(Prelude.pure(__dict_Applicative_390)(new Data_Either.Right(a))); - }); - }; - var monadErrorT = function (__dict_Monad_382) { - return new Prelude.Monad(function () { - return applicativeErrorT(__dict_Monad_382["__superclass_Prelude.Applicative_0"]()); - }, function () { - return bindErrorT(__dict_Monad_382); - }); - }; - var monadEffError = function (__dict_Monad_383) { - return function (__dict_MonadEff_384) { - return new Control_Monad_Eff_Class.MonadEff(function () { - return monadErrorT(__dict_Monad_383); - }, Prelude["<<<"](Prelude.semigroupoidFn)(Control_Monad_Trans.lift(monadTransErrorT)(__dict_Monad_383))(Control_Monad_Eff_Class.liftEff(__dict_MonadEff_384))); - }; - }; - var monadRecErrorT = function (__dict_Error_378) { - return function (__dict_MonadRec_379) { - return new Control_Monad_Rec_Class.MonadRec(function () { - return monadErrorT(__dict_MonadRec_379["__superclass_Prelude.Monad_0"]()); - }, function (f) { - return Prelude["<<<"](Prelude.semigroupoidFn)(ErrorT)(Control_Monad_Rec_Class.tailRecM(__dict_MonadRec_379)(function (a) { - return Prelude[">>="]((__dict_MonadRec_379["__superclass_Prelude.Monad_0"]())["__superclass_Prelude.Bind_1"]())(runErrorT(f(a)))(function (_20) { - return Prelude["return"]((__dict_MonadRec_379["__superclass_Prelude.Monad_0"]())["__superclass_Prelude.Applicative_0"]())((function () { - if (_20 instanceof Data_Either.Left) { - return new Data_Either.Right(new Data_Either.Left(_20.value0)); - }; - if (_20 instanceof Data_Either.Right && _20.value0 instanceof Data_Either.Left) { - return new Data_Either.Left(_20.value0.value0); - }; - if (_20 instanceof Data_Either.Right && _20.value0 instanceof Data_Either.Right) { - return new Data_Either.Right(new Data_Either.Right(_20.value0.value0)); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/Error/Trans.purs line 64, column 1 - line 72, column 1: " + [ _20.constructor.name ]); - })()); - }); - })); - }); - }; - }; - var altErrorT = function (__dict_Monad_393) { - return new Control_Alt.Alt(function () { - return functorErrorT(((__dict_Monad_393["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]()); - }, function (x) { - return function (y) { - return ErrorT(Prelude[">>="](__dict_Monad_393["__superclass_Prelude.Bind_1"]())(runErrorT(x))(function (e) { - if (e instanceof Data_Either.Left) { - return runErrorT(y); - }; - return Prelude["return"](__dict_Monad_393["__superclass_Prelude.Applicative_0"]())(e); - })); - }; - }); - }; - var plusErrorT = function (__dict_Monad_375) { - return function (__dict_Error_376) { - return new Control_Plus.Plus(function () { - return altErrorT(__dict_Monad_375); - }, Prelude["return"](__dict_Monad_375["__superclass_Prelude.Applicative_0"]())(Data_Either.Left.create(Control_Monad_Error.strMsg(__dict_Error_376)("No alternative")))); - }; - }; - var alternativeErrorT = function (__dict_Monad_391) { - return function (__dict_Error_392) { - return new Control_Alternative.Alternative(function () { - return plusErrorT(__dict_Monad_391)(__dict_Error_392); - }, function () { - return applicativeErrorT(__dict_Monad_391["__superclass_Prelude.Applicative_0"]()); - }); - }; - }; - var monadPlusErrorT = function (__dict_Monad_380) { - return function (__dict_Error_381) { - return new Control_MonadPlus.MonadPlus(function () { - return alternativeErrorT(__dict_Monad_380)(__dict_Error_381); - }, function () { - return monadErrorT(__dict_Monad_380); - }); - }; - }; - return { - ErrorT: ErrorT, - liftCallCCError: liftCallCCError, - liftPassError: liftPassError, - liftListenError: liftListenError, - mapErrorT: mapErrorT, - runErrorT: runErrorT, - functorErrorT: functorErrorT, - applyErrorT: applyErrorT, - applicativeErrorT: applicativeErrorT, - altErrorT: altErrorT, - plusErrorT: plusErrorT, - alternativeErrorT: alternativeErrorT, - bindErrorT: bindErrorT, - monadErrorT: monadErrorT, - monadRecErrorT: monadRecErrorT, - monadPlusErrorT: monadPlusErrorT, - monadTransErrorT: monadTransErrorT, - monadEffError: monadEffError - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Maybe_Trans = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Monad_Rec_Class = PS.Control_Monad_Rec_Class; - var Control_Monad_Trans = PS.Control_Monad_Trans; - var Control_Monad_Eff_Class = PS.Control_Monad_Eff_Class; - var Control_Alt = PS.Control_Alt; - var Control_Alternative = PS.Control_Alternative; - var Control_Monad = PS.Control_Monad; - var Control_MonadPlus = PS.Control_MonadPlus; - var Control_Plus = PS.Control_Plus; - var Data_Either = PS.Data_Either; - var Data_Maybe = PS.Data_Maybe; - var Data_Tuple = PS.Data_Tuple; - var MaybeT = function (x) { - return x; - }; - var runMaybeT = function (_449) { - return _449; - }; - var monadTransMaybeT = new Control_Monad_Trans.MonadTrans(function (__dict_Monad_395) { - return Prelude["<<<"](Prelude.semigroupoidFn)(MaybeT)(Prelude.liftM1(__dict_Monad_395)(Data_Maybe.Just.create)); - }); - var mapMaybeT = function (f) { - return Prelude["<<<"](Prelude.semigroupoidFn)(MaybeT)(Prelude["<<<"](Prelude.semigroupoidFn)(f)(runMaybeT)); - }; - var liftPassMaybe = function (__dict_Monad_401) { - return function (pass) { - return mapMaybeT(function (m) { - return pass(Prelude[">>="](__dict_Monad_401["__superclass_Prelude.Bind_1"]())(m)(function (_28) { - return Prelude["return"](__dict_Monad_401["__superclass_Prelude.Applicative_0"]())((function () { - if (_28 instanceof Data_Maybe.Nothing) { - return new Data_Tuple.Tuple(Data_Maybe.Nothing.value, Prelude.id(Prelude.categoryFn)); - }; - if (_28 instanceof Data_Maybe.Just) { - return new Data_Tuple.Tuple(new Data_Maybe.Just(_28.value0.value0), _28.value0.value1); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/Maybe/Trans.purs line 87, column 1 - line 88, column 1: " + [ _28.constructor.name ]); - })()); - })); - }); - }; - }; - var liftListenMaybe = function (__dict_Monad_402) { - return function (listen) { - return mapMaybeT(function (m) { - return Prelude[">>="](__dict_Monad_402["__superclass_Prelude.Bind_1"]())(listen(m))(function (_27) { - return Prelude["return"](__dict_Monad_402["__superclass_Prelude.Applicative_0"]())(Prelude["<$>"](Data_Maybe.functorMaybe)(function (r) { - return new Data_Tuple.Tuple(r, _27.value1); - })(_27.value0)); - }); - }); - }; - }; - var liftCatchMaybe = function ($$catch) { - return function (m) { - return function (h) { - return MaybeT($$catch(runMaybeT(m))(Prelude["<<<"](Prelude.semigroupoidFn)(runMaybeT)(h))); - }; - }; - }; - var liftCallCCMaybe = function (callCC) { - return function (f) { - return MaybeT(callCC(function (c) { - return runMaybeT(f(function (a) { - return MaybeT(c(new Data_Maybe.Just(a))); - })); - })); - }; - }; - var monadMaybeT = function (__dict_Monad_398) { - return new Prelude.Monad(function () { - return applicativeMaybeT(__dict_Monad_398); - }, function () { - return bindMaybeT(__dict_Monad_398); - }); - }; - var functorMaybeT = function (__dict_Monad_403) { - return new Prelude.Functor(Prelude.liftA1(applicativeMaybeT(__dict_Monad_403))); - }; - var bindMaybeT = function (__dict_Monad_404) { - return new Prelude.Bind(function () { - return applyMaybeT(__dict_Monad_404); - }, function (x) { - return function (f) { - return MaybeT(Prelude[">>="](__dict_Monad_404["__superclass_Prelude.Bind_1"]())(runMaybeT(x))(function (_24) { - if (_24 instanceof Data_Maybe.Nothing) { - return Prelude["return"](__dict_Monad_404["__superclass_Prelude.Applicative_0"]())(Data_Maybe.Nothing.value); - }; - if (_24 instanceof Data_Maybe.Just) { - return runMaybeT(f(_24.value0)); - }; - throw new Error("Failed pattern match: " + [ _24.constructor.name ]); - })); - }; - }); - }; - var applyMaybeT = function (__dict_Monad_405) { - return new Prelude.Apply(function () { - return functorMaybeT(__dict_Monad_405); - }, Prelude.ap(monadMaybeT(__dict_Monad_405))); - }; - var applicativeMaybeT = function (__dict_Monad_406) { - return new Prelude.Applicative(function () { - return applyMaybeT(__dict_Monad_406); - }, Prelude["<<<"](Prelude.semigroupoidFn)(MaybeT)(Prelude["<<<"](Prelude.semigroupoidFn)(Prelude.pure(__dict_Monad_406["__superclass_Prelude.Applicative_0"]()))(Data_Maybe.Just.create))); - }; - var monadEffMaybe = function (__dict_Monad_399) { - return function (__dict_MonadEff_400) { - return new Control_Monad_Eff_Class.MonadEff(function () { - return monadMaybeT(__dict_Monad_399); - }, Prelude["<<<"](Prelude.semigroupoidFn)(Control_Monad_Trans.lift(monadTransMaybeT)(__dict_Monad_399))(Control_Monad_Eff_Class.liftEff(__dict_MonadEff_400))); - }; - }; - var monadRecMaybeT = function (__dict_MonadRec_396) { - return new Control_Monad_Rec_Class.MonadRec(function () { - return monadMaybeT(__dict_MonadRec_396["__superclass_Prelude.Monad_0"]()); - }, function (f) { - return Prelude["<<<"](Prelude.semigroupoidFn)(MaybeT)(Control_Monad_Rec_Class.tailRecM(__dict_MonadRec_396)(function (a) { - return Prelude[">>="]((__dict_MonadRec_396["__superclass_Prelude.Monad_0"]())["__superclass_Prelude.Bind_1"]())(runMaybeT(f(a)))(function (_26) { - return Prelude["return"]((__dict_MonadRec_396["__superclass_Prelude.Monad_0"]())["__superclass_Prelude.Applicative_0"]())((function () { - if (_26 instanceof Data_Maybe.Nothing) { - return new Data_Either.Right(Data_Maybe.Nothing.value); - }; - if (_26 instanceof Data_Maybe.Just && _26.value0 instanceof Data_Either.Left) { - return new Data_Either.Left(_26.value0.value0); - }; - if (_26 instanceof Data_Maybe.Just && _26.value0 instanceof Data_Either.Right) { - return new Data_Either.Right(new Data_Maybe.Just(_26.value0.value0)); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/Maybe/Trans.purs line 68, column 1 - line 76, column 1: " + [ _26.constructor.name ]); - })()); - }); - })); - }); - }; - var altMaybeT = function (__dict_Monad_408) { - return new Control_Alt.Alt(function () { - return functorMaybeT(__dict_Monad_408); - }, function (m1) { - return function (m2) { - return Prelude[">>="](__dict_Monad_408["__superclass_Prelude.Bind_1"]())(runMaybeT(m1))(function (_25) { - if (_25 instanceof Data_Maybe.Nothing) { - return runMaybeT(m2); - }; - return Prelude["return"](__dict_Monad_408["__superclass_Prelude.Applicative_0"]())(_25); - }); - }; - }); - }; - var plusMaybeT = function (__dict_Monad_394) { - return new Control_Plus.Plus(function () { - return altMaybeT(__dict_Monad_394); - }, Prelude.pure(__dict_Monad_394["__superclass_Prelude.Applicative_0"]())(Data_Maybe.Nothing.value)); - }; - var alternativeMaybeT = function (__dict_Monad_407) { - return new Control_Alternative.Alternative(function () { - return plusMaybeT(__dict_Monad_407); - }, function () { - return applicativeMaybeT(__dict_Monad_407); - }); - }; - var monadPlusMaybeT = function (__dict_Monad_397) { - return new Control_MonadPlus.MonadPlus(function () { - return alternativeMaybeT(__dict_Monad_397); - }, function () { - return monadMaybeT(__dict_Monad_397); - }); - }; - return { - MaybeT: MaybeT, - liftCallCCMaybe: liftCallCCMaybe, - liftPassMaybe: liftPassMaybe, - liftListenMaybe: liftListenMaybe, - liftCatchMaybe: liftCatchMaybe, - mapMaybeT: mapMaybeT, - runMaybeT: runMaybeT, - functorMaybeT: functorMaybeT, - applyMaybeT: applyMaybeT, - applicativeMaybeT: applicativeMaybeT, - bindMaybeT: bindMaybeT, - monadMaybeT: monadMaybeT, - monadTransMaybeT: monadTransMaybeT, - altMaybeT: altMaybeT, - plusMaybeT: plusMaybeT, - alternativeMaybeT: alternativeMaybeT, - monadPlusMaybeT: monadPlusMaybeT, - monadRecMaybeT: monadRecMaybeT, - monadEffMaybe: monadEffMaybe - }; -})(); -var PS = PS || {}; -PS.Control_Monad_RWS_Trans = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Tuple = PS.Data_Tuple; - var Data_Monoid = PS.Data_Monoid; - var Control_Monad_Trans = PS.Control_Monad_Trans; - var Control_Monad_Eff_Class = PS.Control_Monad_Eff_Class; - var RWST = function (x) { - return x; - }; - var runRWST = function (_455) { - return _455; - }; - var withRWST = function (f) { - return function (m) { - return function (r) { - return function (s) { - return Data_Tuple.uncurry(runRWST(m))(f(r)(s)); - }; - }; - }; - }; - var mkSee = function (__dict_Monoid_414) { - return function (s) { - return function (a) { - return function (w) { - return { - state: s, - result: a, - log: w - }; - }; - }; - }; - }; - var monadTransRWST = function (__dict_Monoid_415) { - return new Control_Monad_Trans.MonadTrans(function (__dict_Monad_416) { - return function (m) { - return function (_454) { - return function (s) { - return Prelude[">>="](__dict_Monad_416["__superclass_Prelude.Bind_1"]())(m)(function (a) { - return Prelude["return"](__dict_Monad_416["__superclass_Prelude.Applicative_0"]())(mkSee(__dict_Monoid_415)(s)(a)(Data_Monoid.mempty(__dict_Monoid_415))); - }); - }; - }; - }; - }); - }; - var mapRWST = function (f) { - return function (m) { - return function (r) { - return function (s) { - return f(runRWST(m)(r)(s)); - }; - }; - }; - }; - var functorRWST = function (__dict_Functor_417) { - return new Prelude.Functor(function (f) { - return function (m) { - return function (r) { - return function (s) { - return Prelude["<$>"](__dict_Functor_417)(function (see) { - var _1327 = {}; - for (var _1328 in see) { - if (see.hasOwnProperty(_1328)) { - _1327[_1328] = see[_1328]; - }; - }; - _1327.result = f(see.result); - return _1327; - })(runRWST(m)(r)(s)); - }; - }; - }; - }); - }; - var execRWST = function (__dict_Monad_418) { - return function (m) { - return function (r) { - return function (s) { - return Prelude[">>="](__dict_Monad_418["__superclass_Prelude.Bind_1"]())(runRWST(m)(r)(s))(function (see) { - return Prelude["return"](__dict_Monad_418["__superclass_Prelude.Applicative_0"]())(new Data_Tuple.Tuple(see.state, see.log)); - }); - }; - }; - }; - }; - var evalRWST = function (__dict_Monad_419) { - return function (m) { - return function (r) { - return function (s) { - return Prelude[">>="](__dict_Monad_419["__superclass_Prelude.Bind_1"]())(runRWST(m)(r)(s))(function (see) { - return Prelude["return"](__dict_Monad_419["__superclass_Prelude.Applicative_0"]())(new Data_Tuple.Tuple(see.result, see.log)); - }); - }; - }; - }; - }; - var applyRWST = function (__dict_Bind_422) { - return function (__dict_Monoid_423) { - return new Prelude.Apply(function () { - return functorRWST((__dict_Bind_422["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]()); - }, function (f) { - return function (m) { - return function (r) { - return function (s) { - return Prelude[">>="](__dict_Bind_422)(runRWST(f)(r)(s))(function (_451) { - return Prelude["<#>"]((__dict_Bind_422["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(runRWST(m)(r)(_451.state))(function (_450) { - return mkSee(__dict_Monoid_423)(_450.state)(_451.result(_450.result))(Prelude["++"](__dict_Monoid_423["__superclass_Prelude.Semigroup_0"]())(_451.log)(_450.log)); - }); - }); - }; - }; - }; - }); - }; - }; - var bindRWST = function (__dict_Bind_420) { - return function (__dict_Monoid_421) { - return new Prelude.Bind(function () { - return applyRWST(__dict_Bind_420)(__dict_Monoid_421); - }, function (m) { - return function (f) { - return function (r) { - return function (s) { - return Prelude[">>="](__dict_Bind_420)(runRWST(m)(r)(s))(function (_452) { - return Prelude["<#>"]((__dict_Bind_420["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(runRWST(f(_452.result))(r)(_452.state))(function (see$prime) { - var _1338 = {}; - for (var _1339 in see$prime) { - if (see$prime.hasOwnProperty(_1339)) { - _1338[_1339] = see$prime[_1339]; - }; - }; - _1338.log = Prelude["++"](__dict_Monoid_421["__superclass_Prelude.Semigroup_0"]())(_452.log)(see$prime.log); - return _1338; - }); - }); - }; - }; - }; - }); - }; - }; - var applicativeRWST = function (__dict_Monad_424) { - return function (__dict_Monoid_425) { - return new Prelude.Applicative(function () { - return applyRWST(__dict_Monad_424["__superclass_Prelude.Bind_1"]())(__dict_Monoid_425); - }, function (a) { - return function (_453) { - return function (s) { - return Prelude.pure(__dict_Monad_424["__superclass_Prelude.Applicative_0"]())(mkSee(__dict_Monoid_425)(s)(a)(Data_Monoid.mempty(__dict_Monoid_425))); - }; - }; - }); - }; - }; - var monadRWST = function (__dict_Monad_409) { - return function (__dict_Monoid_410) { - return new Prelude.Monad(function () { - return applicativeRWST(__dict_Monad_409)(__dict_Monoid_410); - }, function () { - return bindRWST(__dict_Monad_409["__superclass_Prelude.Bind_1"]())(__dict_Monoid_410); - }); - }; - }; - var monadEffRWS = function (__dict_Monad_411) { - return function (__dict_Monoid_412) { - return function (__dict_MonadEff_413) { - return new Control_Monad_Eff_Class.MonadEff(function () { - return monadRWST(__dict_Monad_411)(__dict_Monoid_412); - }, Prelude["<<<"](Prelude.semigroupoidFn)(Control_Monad_Trans.lift(monadTransRWST(__dict_Monoid_412))(__dict_Monad_411))(Control_Monad_Eff_Class.liftEff(__dict_MonadEff_413))); - }; - }; - }; - return { - RWST: RWST, - withRWST: withRWST, - mapRWST: mapRWST, - execRWST: execRWST, - evalRWST: evalRWST, - runRWST: runRWST, - mkSee: mkSee, - functorRWST: functorRWST, - applyRWST: applyRWST, - bindRWST: bindRWST, - applicativeRWST: applicativeRWST, - monadRWST: monadRWST, - monadTransRWST: monadTransRWST, - monadEffRWS: monadEffRWS - }; -})(); -var PS = PS || {}; -PS.Control_Monad_RWS = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Identity = PS.Data_Identity; - var Control_Monad_RWS_Trans = PS.Control_Monad_RWS_Trans; - var Data_Monoid = PS.Data_Monoid; - var Data_Tuple = PS.Data_Tuple; - var writer = function (__dict_Applicative_426) { - return function (_462) { - return function (_456) { - return function (s) { - return Prelude.pure(__dict_Applicative_426)({ - state: s, - result: _462.value0, - log: _462.value1 - }); - }; - }; - }; - }; - var withRWS = Control_Monad_RWS_Trans.withRWST; - var tell = function (__dict_Applicative_427) { - return function (w) { - return writer(__dict_Applicative_427)(new Data_Tuple.Tuple(Prelude.unit, w)); - }; - }; - var state = function (__dict_Applicative_428) { - return function (__dict_Monoid_429) { - return function (f) { - return function (_460) { - return function (s) { - var _1349 = f(s); - return Prelude.pure(__dict_Applicative_428)(Control_Monad_RWS_Trans.mkSee(__dict_Monoid_429)(_1349.value1)(_1349.value0)(Data_Monoid.mempty(__dict_Monoid_429))); - }; - }; - }; - }; - }; - var rws = function (f) { - return function (r) { - return function (s) { - return Prelude["return"](Data_Identity.applicativeIdentity)(f(r)(s)); - }; - }; - }; - var runRWS = function (m) { - return function (r) { - return function (s) { - return Data_Identity.runIdentity(Control_Monad_RWS_Trans.runRWST(m)(r)(s)); - }; - }; - }; - var reader = function (__dict_Applicative_430) { - return function (__dict_Monoid_431) { - return function (f) { - return function (r) { - return function (s) { - return Prelude.pure(__dict_Applicative_430)(Control_Monad_RWS_Trans.mkSee(__dict_Monoid_431)(s)(f(r))(Data_Monoid.mempty(__dict_Monoid_431))); - }; - }; - }; - }; - }; - var put = function (__dict_Applicative_432) { - return function (__dict_Monoid_433) { - return function (s) { - return state(__dict_Applicative_432)(__dict_Monoid_433)(function (_461) { - return new Data_Tuple.Tuple(Prelude.unit, s); - }); - }; - }; - }; - var pass = function (__dict_Monad_434) { - return function (m) { - return function (r) { - return function (s) { - return Prelude[">>="](__dict_Monad_434["__superclass_Prelude.Bind_1"]())(Control_Monad_RWS_Trans.runRWST(m)(r)(s))(function (_458) { - return Prelude.pure(__dict_Monad_434["__superclass_Prelude.Applicative_0"]())({ - state: _458.state, - result: _458.result.value0, - log: _458.result.value1(_458.log) - }); - }); - }; - }; - }; - }; - var modify = function (__dict_Applicative_435) { - return function (__dict_Monoid_436) { - return function (f) { - return state(__dict_Applicative_435)(__dict_Monoid_436)(function (s) { - return new Data_Tuple.Tuple(Prelude.unit, f(s)); - }); - }; - }; - }; - var mapRWS = function (f) { - return Control_Monad_RWS_Trans.mapRWST(Prelude[">>>"](Prelude.semigroupoidFn)(Data_Identity.runIdentity)(Prelude[">>>"](Prelude.semigroupoidFn)(f)(Data_Identity.Identity))); - }; - var local = function (f) { - return function (m) { - return function (r) { - return function (s) { - return Control_Monad_RWS_Trans.runRWST(m)(f(r))(s); - }; - }; - }; - }; - var listens = function (__dict_Monad_437) { - return function (f) { - return function (m) { - return function (r) { - return function (s) { - return Prelude[">>="](__dict_Monad_437["__superclass_Prelude.Bind_1"]())(Control_Monad_RWS_Trans.runRWST(m)(r)(s))(function (_459) { - return Prelude.pure(__dict_Monad_437["__superclass_Prelude.Applicative_0"]())({ - state: _459.state, - result: new Data_Tuple.Tuple(_459.result, f(_459.log)), - log: _459.log - }); - }); - }; - }; - }; - }; - }; - var listen = function (__dict_Monad_438) { - return function (m) { - return function (r) { - return function (s) { - return Prelude[">>="](__dict_Monad_438["__superclass_Prelude.Bind_1"]())(Control_Monad_RWS_Trans.runRWST(m)(r)(s))(function (_457) { - return Prelude.pure(__dict_Monad_438["__superclass_Prelude.Applicative_0"]())({ - state: _457.state, - result: new Data_Tuple.Tuple(_457.result, _457.log), - log: _457.log - }); - }); - }; - }; - }; - }; - var gets = function (__dict_Applicative_439) { - return function (__dict_Monoid_440) { - return function (f) { - return state(__dict_Applicative_439)(__dict_Monoid_440)(function (s) { - return new Data_Tuple.Tuple(f(s), s); - }); - }; - }; - }; - var get = function (__dict_Applicative_441) { - return function (__dict_Monoid_442) { - return state(__dict_Applicative_441)(__dict_Monoid_442)(function (s) { - return new Data_Tuple.Tuple(s, s); - }); - }; - }; - var execRWS = function (m) { - return function (r) { - return function (s) { - return Data_Identity.runIdentity(Control_Monad_RWS_Trans.execRWST(Data_Identity.monadIdentity)(m)(r)(s)); - }; - }; - }; - var evalRWS = function (m) { - return function (r) { - return function (s) { - return Data_Identity.runIdentity(Control_Monad_RWS_Trans.evalRWST(Data_Identity.monadIdentity)(m)(r)(s)); - }; - }; - }; - var censor = function (__dict_Monad_443) { - return function (f) { - return function (m) { - return function (r) { - return function (s) { - return Prelude[">>="](__dict_Monad_443["__superclass_Prelude.Bind_1"]())(Control_Monad_RWS_Trans.runRWST(m)(r)(s))(function (see) { - return Prelude.pure(__dict_Monad_443["__superclass_Prelude.Applicative_0"]())((function () { - var _1367 = {}; - for (var _1368 in see) { - if (see.hasOwnProperty(_1368)) { - _1367[_1368] = see[_1368]; - }; - }; - _1367.log = f(see.log); - return _1367; - })()); - }); - }; - }; - }; - }; - }; - var ask = function (__dict_Applicative_444) { - return function (__dict_Monoid_445) { - return function (r) { - return function (s) { - return Prelude.pure(__dict_Applicative_444)(Control_Monad_RWS_Trans.mkSee(__dict_Monoid_445)(s)(r)(Data_Monoid.mempty(__dict_Monoid_445))); - }; - }; - }; - }; - return { - modify: modify, - put: put, - gets: gets, - get: get, - state: state, - censor: censor, - listens: listens, - tell: tell, - pass: pass, - listen: listen, - writer: writer, - reader: reader, - local: local, - ask: ask, - withRWS: withRWS, - mapRWS: mapRWS, - execRWS: execRWS, - evalRWS: evalRWS, - runRWS: runRWS, - rws: rws - }; -})(); -var PS = PS || {}; -PS.Control_Monad_State_Trans = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Tuple = PS.Data_Tuple; - var Control_Alt = PS.Control_Alt; - var Control_Plus = PS.Control_Plus; - var Control_Monad_Rec_Class = PS.Control_Monad_Rec_Class; - var Control_Monad_Trans = PS.Control_Monad_Trans; - var Control_Monad_Eff_Class = PS.Control_Monad_Eff_Class; - var Control_Alternative = PS.Control_Alternative; - var Control_Lazy = PS.Control_Lazy; - var Control_MonadPlus = PS.Control_MonadPlus; - var Data_Either = PS.Data_Either; - var StateT = function (x) { - return x; - }; - var runStateT = function (_465) { - return _465; - }; - var withStateT = function (f) { - return function (s) { - return StateT(Prelude["<<<"](Prelude.semigroupoidFn)(runStateT(s))(f)); - }; - }; - var monadTransStateT = new Control_Monad_Trans.MonadTrans(function (__dict_Monad_448) { - return function (m) { - return function (s) { - return Prelude[">>="](__dict_Monad_448["__superclass_Prelude.Bind_1"]())(m)(function (_31) { - return Prelude["return"](__dict_Monad_448["__superclass_Prelude.Applicative_0"]())(new Data_Tuple.Tuple(_31, s)); - }); - }; - }; - }); - var mapStateT = function (f) { - return function (m) { - return StateT(Prelude["<<<"](Prelude.semigroupoidFn)(f)(runStateT(m))); - }; - }; - var liftPassState = function (__dict_Monad_454) { - return function (pass) { - return function (m) { - return StateT(function (s) { - return pass(Prelude[">>="](__dict_Monad_454["__superclass_Prelude.Bind_1"]())(runStateT(m)(s))(function (_33) { - return Prelude["return"](__dict_Monad_454["__superclass_Prelude.Applicative_0"]())(new Data_Tuple.Tuple(new Data_Tuple.Tuple(_33.value0.value0, _33.value1), _33.value0.value1)); - })); - }); - }; - }; - }; - var liftListenState = function (__dict_Monad_455) { - return function (listen) { - return function (m) { - return StateT(function (s) { - return Prelude[">>="](__dict_Monad_455["__superclass_Prelude.Bind_1"]())(listen(runStateT(m)(s)))(function (_32) { - return Prelude["return"](__dict_Monad_455["__superclass_Prelude.Applicative_0"]())(new Data_Tuple.Tuple(new Data_Tuple.Tuple(_32.value0.value0, _32.value1), _32.value0.value1)); - }); - }); - }; - }; - }; - var liftCatchState = function ($$catch) { - return function (m) { - return function (h) { - return StateT(function (s) { - return $$catch(runStateT(m)(s))(function (e) { - return runStateT(h(e))(s); - }); - }); - }; - }; - }; - var liftCallCCState$prime = function (callCC) { - return function (f) { - return StateT(function (s) { - return callCC(function (c) { - return runStateT(f(function (a) { - return StateT(function (s$prime) { - return c(new Data_Tuple.Tuple(a, s$prime)); - }); - }))(s); - }); - }); - }; - }; - var liftCallCCState = function (callCC) { - return function (f) { - return StateT(function (s) { - return callCC(function (c) { - return runStateT(f(function (a) { - return StateT(function (_464) { - return c(new Data_Tuple.Tuple(a, s)); - }); - }))(s); - }); - }); - }; - }; - var lazyStateT = new Control_Lazy.Lazy(function (f) { - return StateT(function (s) { - return runStateT(f(Prelude.unit))(s); - }); - }); - var execStateT = function (__dict_Apply_457) { - return function (m) { - return function (s) { - return Prelude["<$>"](__dict_Apply_457["__superclass_Prelude.Functor_0"]())(Data_Tuple.snd)(runStateT(m)(s)); - }; - }; - }; - var evalStateT = function (__dict_Apply_458) { - return function (m) { - return function (s) { - return Prelude["<$>"](__dict_Apply_458["__superclass_Prelude.Functor_0"]())(Data_Tuple.fst)(runStateT(m)(s)); - }; - }; - }; - var monadStateT = function (__dict_Monad_449) { - return new Prelude.Monad(function () { - return applicativeStateT(__dict_Monad_449); - }, function () { - return bindStateT(__dict_Monad_449); - }); - }; - var functorStateT = function (__dict_Monad_456) { - return new Prelude.Functor(Prelude.liftM1(monadStateT(__dict_Monad_456))); - }; - var bindStateT = function (__dict_Monad_459) { - return new Prelude.Bind(function () { - return applyStateT(__dict_Monad_459); - }, function (_466) { - return function (f) { - return function (s) { - return Prelude[">>="](__dict_Monad_459["__superclass_Prelude.Bind_1"]())(_466(s))(function (_29) { - return runStateT(f(_29.value0))(_29.value1); - }); - }; - }; - }); - }; - var applyStateT = function (__dict_Monad_460) { - return new Prelude.Apply(function () { - return functorStateT(__dict_Monad_460); - }, Prelude.ap(monadStateT(__dict_Monad_460))); - }; - var applicativeStateT = function (__dict_Monad_461) { - return new Prelude.Applicative(function () { - return applyStateT(__dict_Monad_461); - }, function (a) { - return StateT(function (s) { - return Prelude["return"](__dict_Monad_461["__superclass_Prelude.Applicative_0"]())(new Data_Tuple.Tuple(a, s)); - }); - }); - }; - var monadEffState = function (__dict_Monad_452) { - return function (__dict_MonadEff_453) { - return new Control_Monad_Eff_Class.MonadEff(function () { - return monadStateT(__dict_Monad_452); - }, Prelude["<<<"](Prelude.semigroupoidFn)(Control_Monad_Trans.lift(monadTransStateT)(__dict_Monad_452))(Control_Monad_Eff_Class.liftEff(__dict_MonadEff_453))); - }; - }; - var monadRecStateT = function (__dict_MonadRec_450) { - return new Control_Monad_Rec_Class.MonadRec(function () { - return monadStateT(__dict_MonadRec_450["__superclass_Prelude.Monad_0"]()); - }, function (f) { - return function (a) { - var f$prime = function (_467) { - return Prelude[">>="]((__dict_MonadRec_450["__superclass_Prelude.Monad_0"]())["__superclass_Prelude.Bind_1"]())(runStateT(f(_467.value0))(_467.value1))(function (_30) { - return Prelude["return"]((__dict_MonadRec_450["__superclass_Prelude.Monad_0"]())["__superclass_Prelude.Applicative_0"]())((function () { - if (_30.value0 instanceof Data_Either.Left) { - return new Data_Either.Left(new Data_Tuple.Tuple(_30.value0.value0, _30.value1)); - }; - if (_30.value0 instanceof Data_Either.Right) { - return new Data_Either.Right(new Data_Tuple.Tuple(_30.value0.value0, _30.value1)); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/State/Trans.purs line 73, column 5 - line 79, column 1: " + [ _30.value0.constructor.name ]); - })()); - }); - }; - return function (s) { - return Control_Monad_Rec_Class.tailRecM(__dict_MonadRec_450)(f$prime)(new Data_Tuple.Tuple(a, s)); - }; - }; - }); - }; - var altStateT = function (__dict_Monad_464) { - return function (__dict_Alt_465) { - return new Control_Alt.Alt(function () { - return functorStateT(__dict_Monad_464); - }, function (x) { - return function (y) { - return StateT(function (s) { - return Control_Alt["<|>"](__dict_Alt_465)(runStateT(x)(s))(runStateT(y)(s)); - }); - }; - }); - }; - }; - var plusStateT = function (__dict_Monad_446) { - return function (__dict_Plus_447) { - return new Control_Plus.Plus(function () { - return altStateT(__dict_Monad_446)(__dict_Plus_447["__superclass_Control.Alt.Alt_0"]()); - }, StateT(function (_463) { - return Control_Plus.empty(__dict_Plus_447); - })); - }; - }; - var alternativeStateT = function (__dict_Monad_462) { - return function (__dict_Alternative_463) { - return new Control_Alternative.Alternative(function () { - return plusStateT(__dict_Monad_462)(__dict_Alternative_463["__superclass_Control.Plus.Plus_1"]()); - }, function () { - return applicativeStateT(__dict_Monad_462); - }); - }; - }; - var monadPlusStateT = function (__dict_MonadPlus_451) { - return new Control_MonadPlus.MonadPlus(function () { - return alternativeStateT(__dict_MonadPlus_451["__superclass_Prelude.Monad_0"]())(__dict_MonadPlus_451["__superclass_Control.Alternative.Alternative_1"]()); - }, function () { - return monadStateT(__dict_MonadPlus_451["__superclass_Prelude.Monad_0"]()); - }); - }; - return { - StateT: StateT, - "liftCallCCState'": liftCallCCState$prime, - liftCallCCState: liftCallCCState, - liftPassState: liftPassState, - liftListenState: liftListenState, - liftCatchState: liftCatchState, - withStateT: withStateT, - mapStateT: mapStateT, - execStateT: execStateT, - evalStateT: evalStateT, - runStateT: runStateT, - functorStateT: functorStateT, - applyStateT: applyStateT, - applicativeStateT: applicativeStateT, - altStateT: altStateT, - plusStateT: plusStateT, - alternativeStateT: alternativeStateT, - bindStateT: bindStateT, - monadStateT: monadStateT, - monadRecStateT: monadRecStateT, - monadPlusStateT: monadPlusStateT, - monadTransStateT: monadTransStateT, - lazyStateT: lazyStateT, - monadEffState: monadEffState - }; -})(); -var PS = PS || {}; -PS.Control_Monad_State = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Identity = PS.Data_Identity; - var Control_Monad_State_Trans = PS.Control_Monad_State_Trans; - var Data_Tuple = PS.Data_Tuple; - var withState = Control_Monad_State_Trans.withStateT; - var runState = function (s) { - return Prelude["<<<"](Prelude.semigroupoidFn)(Data_Identity.runIdentity)(Control_Monad_State_Trans.runStateT(s)); - }; - var mapState = function (f) { - return Control_Monad_State_Trans.mapStateT(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Identity.Identity)(Prelude["<<<"](Prelude.semigroupoidFn)(f)(Data_Identity.runIdentity))); - }; - var execState = function (m) { - return function (s) { - return Data_Tuple.snd(runState(m)(s)); - }; - }; - var evalState = function (m) { - return function (s) { - return Data_Tuple.fst(runState(m)(s)); - }; - }; - return { - withState: withState, - mapState: mapState, - execState: execState, - evalState: evalState, - runState: runState - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Writer_Trans = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Tuple = PS.Data_Tuple; - var Data_Monoid = PS.Data_Monoid; - var Control_Alt = PS.Control_Alt; - var Control_Plus = PS.Control_Plus; - var Control_Monad_Rec_Class = PS.Control_Monad_Rec_Class; - var Control_Monad_Trans = PS.Control_Monad_Trans; - var Control_Monad_Eff_Class = PS.Control_Monad_Eff_Class; - var Control_Alternative = PS.Control_Alternative; - var Control_MonadPlus = PS.Control_MonadPlus; - var Data_Either = PS.Data_Either; - var WriterT = function (x) { - return x; - }; - var runWriterT = function (_469) { - return _469; - }; - var monadTransWriterT = function (__dict_Monoid_470) { - return new Control_Monad_Trans.MonadTrans(function (__dict_Monad_471) { - return function (m) { - return WriterT(Prelude[">>="](__dict_Monad_471["__superclass_Prelude.Bind_1"]())(m)(function (_37) { - return Prelude["return"](__dict_Monad_471["__superclass_Prelude.Applicative_0"]())(new Data_Tuple.Tuple(_37, Data_Monoid.mempty(__dict_Monoid_470))); - })); - }; - }); - }; - var mapWriterT = function (f) { - return function (m) { - return WriterT(f(runWriterT(m))); - }; - }; - var liftCatchWriter = function ($$catch) { - return function (m) { - return function (h) { - return WriterT($$catch(runWriterT(m))(function (e) { - return runWriterT(h(e)); - })); - }; - }; - }; - var liftCallCCWriter = function (__dict_Monoid_479) { - return function (callCC) { - return function (f) { - return WriterT(callCC(function (c) { - return runWriterT(f(function (a) { - return WriterT(c(new Data_Tuple.Tuple(a, Data_Monoid.mempty(__dict_Monoid_479)))); - })); - })); - }; - }; - }; - var functorWriterT = function (__dict_Functor_480) { - return new Prelude.Functor(function (f) { - return mapWriterT(Prelude["<$>"](__dict_Functor_480)(function (_468) { - return new Data_Tuple.Tuple(f(_468.value0), _468.value1); - })); - }); - }; - var execWriterT = function (__dict_Apply_481) { - return function (m) { - return Prelude["<$>"](__dict_Apply_481["__superclass_Prelude.Functor_0"]())(Data_Tuple.snd)(runWriterT(m)); - }; - }; - var applyWriterT = function (__dict_Monoid_484) { - return function (__dict_Apply_485) { - return new Prelude.Apply(function () { - return functorWriterT(__dict_Apply_485["__superclass_Prelude.Functor_0"]()); - }, function (f) { - return function (v) { - return WriterT((function () { - var k = function (_470) { - return function (_471) { - return new Data_Tuple.Tuple(_470.value0(_471.value0), Prelude["<>"](__dict_Monoid_484["__superclass_Prelude.Semigroup_0"]())(_470.value1)(_471.value1)); - }; - }; - return Prelude["<*>"](__dict_Apply_485)(Prelude["<$>"](__dict_Apply_485["__superclass_Prelude.Functor_0"]())(k)(runWriterT(f)))(runWriterT(v)); - })()); - }; - }); - }; - }; - var bindWriterT = function (__dict_Monoid_482) { - return function (__dict_Monad_483) { - return new Prelude.Bind(function () { - return applyWriterT(__dict_Monoid_482)((__dict_Monad_483["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]()); - }, function (m) { - return function (k) { - return WriterT(Prelude[">>="](__dict_Monad_483["__superclass_Prelude.Bind_1"]())(runWriterT(m))(function (_35) { - return Prelude[">>="](__dict_Monad_483["__superclass_Prelude.Bind_1"]())(runWriterT(k(_35.value0)))(function (_34) { - return Prelude["return"](__dict_Monad_483["__superclass_Prelude.Applicative_0"]())(new Data_Tuple.Tuple(_34.value0, Prelude["<>"](__dict_Monoid_482["__superclass_Prelude.Semigroup_0"]())(_35.value1)(_34.value1))); - }); - })); - }; - }); - }; - }; - var applicativeWriterT = function (__dict_Monoid_486) { - return function (__dict_Applicative_487) { - return new Prelude.Applicative(function () { - return applyWriterT(__dict_Monoid_486)(__dict_Applicative_487["__superclass_Prelude.Apply_0"]()); - }, function (a) { - return WriterT(Prelude.pure(__dict_Applicative_487)(new Data_Tuple.Tuple(a, Data_Monoid.mempty(__dict_Monoid_486)))); - }); - }; - }; - var monadWriterT = function (__dict_Monoid_468) { - return function (__dict_Monad_469) { - return new Prelude.Monad(function () { - return applicativeWriterT(__dict_Monoid_468)(__dict_Monad_469["__superclass_Prelude.Applicative_0"]()); - }, function () { - return bindWriterT(__dict_Monoid_468)(__dict_Monad_469); - }); - }; - }; - var monadEffWriter = function (__dict_Monad_476) { - return function (__dict_Monoid_477) { - return function (__dict_MonadEff_478) { - return new Control_Monad_Eff_Class.MonadEff(function () { - return monadWriterT(__dict_Monoid_477)(__dict_Monad_476); - }, Prelude["<<<"](Prelude.semigroupoidFn)(Control_Monad_Trans.lift(monadTransWriterT(__dict_Monoid_477))(__dict_Monad_476))(Control_Monad_Eff_Class.liftEff(__dict_MonadEff_478))); - }; - }; - }; - var monadRecWriterT = function (__dict_Monoid_472) { - return function (__dict_MonadRec_473) { - return new Control_Monad_Rec_Class.MonadRec(function () { - return monadWriterT(__dict_Monoid_472)(__dict_MonadRec_473["__superclass_Prelude.Monad_0"]()); - }, function (f) { - return function (a) { - var f$prime = function (_472) { - return Prelude[">>="]((__dict_MonadRec_473["__superclass_Prelude.Monad_0"]())["__superclass_Prelude.Bind_1"]())(runWriterT(f(_472.value0)))(function (_36) { - return Prelude["return"]((__dict_MonadRec_473["__superclass_Prelude.Monad_0"]())["__superclass_Prelude.Applicative_0"]())((function () { - if (_36.value0 instanceof Data_Either.Left) { - return new Data_Either.Left(new Data_Tuple.Tuple(_36.value0.value0, Prelude["<>"](__dict_Monoid_472["__superclass_Prelude.Semigroup_0"]())(_472.value1)(_36.value1))); - }; - if (_36.value0 instanceof Data_Either.Right) { - return new Data_Either.Right(new Data_Tuple.Tuple(_36.value0.value0, Prelude["<>"](__dict_Monoid_472["__superclass_Prelude.Semigroup_0"]())(_472.value1)(_36.value1))); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/Writer/Trans.purs line 68, column 5 - line 74, column 1: " + [ _36.value0.constructor.name ]); - })()); - }); - }; - return WriterT(Control_Monad_Rec_Class.tailRecM(__dict_MonadRec_473)(f$prime)(new Data_Tuple.Tuple(a, Data_Monoid.mempty(__dict_Monoid_472)))); - }; - }); - }; - }; - var altWriterT = function (__dict_Monoid_490) { - return function (__dict_Alt_491) { - return new Control_Alt.Alt(function () { - return functorWriterT(__dict_Alt_491["__superclass_Prelude.Functor_0"]()); - }, function (m) { - return function (n) { - return WriterT(Control_Alt["<|>"](__dict_Alt_491)(runWriterT(m))(runWriterT(n))); - }; - }); - }; - }; - var plusWriterT = function (__dict_Monoid_466) { - return function (__dict_Plus_467) { - return new Control_Plus.Plus(function () { - return altWriterT(__dict_Monoid_466)(__dict_Plus_467["__superclass_Control.Alt.Alt_0"]()); - }, Control_Plus.empty(__dict_Plus_467)); - }; - }; - var alternativeWriterT = function (__dict_Monoid_488) { - return function (__dict_Alternative_489) { - return new Control_Alternative.Alternative(function () { - return plusWriterT(__dict_Monoid_488)(__dict_Alternative_489["__superclass_Control.Plus.Plus_1"]()); - }, function () { - return applicativeWriterT(__dict_Monoid_488)(__dict_Alternative_489["__superclass_Prelude.Applicative_0"]()); - }); - }; - }; - var monadPlusWriterT = function (__dict_Monoid_474) { - return function (__dict_MonadPlus_475) { - return new Control_MonadPlus.MonadPlus(function () { - return alternativeWriterT(__dict_Monoid_474)(__dict_MonadPlus_475["__superclass_Control.Alternative.Alternative_1"]()); - }, function () { - return monadWriterT(__dict_Monoid_474)(__dict_MonadPlus_475["__superclass_Prelude.Monad_0"]()); - }); - }; - }; - return { - WriterT: WriterT, - liftCallCCWriter: liftCallCCWriter, - liftCatchWriter: liftCatchWriter, - mapWriterT: mapWriterT, - execWriterT: execWriterT, - runWriterT: runWriterT, - functorWriterT: functorWriterT, - applyWriterT: applyWriterT, - applicativeWriterT: applicativeWriterT, - altWriterT: altWriterT, - plusWriterT: plusWriterT, - alternativeWriterT: alternativeWriterT, - bindWriterT: bindWriterT, - monadWriterT: monadWriterT, - monadRecWriterT: monadRecWriterT, - monadPlusWriterT: monadPlusWriterT, - monadTransWriterT: monadTransWriterT, - monadEffWriter: monadEffWriter - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Cont_Class = (function () { - "use strict"; - var Control_Monad_Cont_Trans = PS.Control_Monad_Cont_Trans; - var Control_Monad_Error_Trans = PS.Control_Monad_Error_Trans; - var Control_Monad_Maybe_Trans = PS.Control_Monad_Maybe_Trans; - var Control_Monad_Reader_Trans = PS.Control_Monad_Reader_Trans; - var Control_Monad_State_Trans = PS.Control_Monad_State_Trans; - var Control_Monad_Writer_Trans = PS.Control_Monad_Writer_Trans; - var Prelude = PS.Prelude; - var Control_Monad_Error = PS.Control_Monad_Error; - var Data_Monoid = PS.Data_Monoid; - var MonadCont = function (callCC) { - this.callCC = callCC; - }; - var monadContContT = function (__dict_Monad_492) { - return new MonadCont(Control_Monad_Cont_Trans.callCC); - }; - var callCC = function (dict) { - return dict.callCC; - }; - var monadContErrorT = function (__dict_MonadCont_493) { - return new MonadCont(Control_Monad_Error_Trans.liftCallCCError(callCC(__dict_MonadCont_493))); - }; - var monadContMaybeT = function (__dict_MonadCont_494) { - return new MonadCont(Control_Monad_Maybe_Trans.liftCallCCMaybe(callCC(__dict_MonadCont_494))); - }; - var monadContReaderT = function (__dict_MonadCont_495) { - return new MonadCont(Control_Monad_Reader_Trans.liftCallCCReader(callCC(__dict_MonadCont_495))); - }; - var monadContStateT = function (__dict_MonadCont_496) { - return new MonadCont(Control_Monad_State_Trans["liftCallCCState'"](callCC(__dict_MonadCont_496))); - }; - var monadWriterT = function (__dict_Monoid_497) { - return function (__dict_MonadCont_498) { - return new MonadCont(Control_Monad_Writer_Trans.liftCallCCWriter(__dict_Monoid_497)(callCC(__dict_MonadCont_498))); - }; - }; - return { - MonadCont: MonadCont, - callCC: callCC, - monadContContT: monadContContT, - monadContErrorT: monadContErrorT, - monadContMaybeT: monadContMaybeT, - monadContReaderT: monadContReaderT, - monadContStateT: monadContStateT, - monadWriterT: monadWriterT - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Error_Class = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Monad_Error_Trans = PS.Control_Monad_Error_Trans; - var Control_Monad_Except_Trans = PS.Control_Monad_Except_Trans; - var Control_Monad_Trans = PS.Control_Monad_Trans; - var Control_Monad_Maybe_Trans = PS.Control_Monad_Maybe_Trans; - var Control_Monad_Reader_Trans = PS.Control_Monad_Reader_Trans; - var Control_Monad_Writer_Trans = PS.Control_Monad_Writer_Trans; - var Control_Monad_State_Trans = PS.Control_Monad_State_Trans; - var Control_Monad_Error = PS.Control_Monad_Error; - var Data_Either = PS.Data_Either; - var Data_Maybe = PS.Data_Maybe; - var Data_Monoid = PS.Data_Monoid; - var MonadError = function (catchError, throwError) { - this.catchError = catchError; - this.throwError = throwError; - }; - var throwError = function (dict) { - return dict.throwError; - }; - var monadErrorMaybe = new MonadError(function (_474) { - return function (f) { - if (_474 instanceof Data_Maybe.Nothing) { - return f(Prelude.unit); - }; - if (_474 instanceof Data_Maybe.Just) { - return new Data_Maybe.Just(_474.value0); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/Error/Class.purs line 60, column 1 - line 65, column 1: " + [ _474.constructor.name, f.constructor.name ]); - }; - }, Prelude["const"](Data_Maybe.Nothing.value)); - var monadErrorExceptT = function (__dict_Monad_499) { - return new MonadError(Control_Monad_Except_Trans.catchE(__dict_Monad_499), Control_Monad_Except_Trans.throwE(__dict_Monad_499["__superclass_Prelude.Applicative_0"]())); - }; - var monadErrorErrorT = function (__dict_Monad_500) { - return new MonadError(function (m) { - return function (h) { - return Control_Monad_Error_Trans.ErrorT(Prelude[">>="](__dict_Monad_500["__superclass_Prelude.Bind_1"]())(Control_Monad_Error_Trans.runErrorT(m))(function (_38) { - if (_38 instanceof Data_Either.Left) { - return Control_Monad_Error_Trans.runErrorT(h(_38.value0)); - }; - if (_38 instanceof Data_Either.Right) { - return Prelude["return"](__dict_Monad_500["__superclass_Prelude.Applicative_0"]())(new Data_Either.Right(_38.value0)); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/Error/Class.purs line 65, column 1 - line 73, column 1: " + [ _38.constructor.name ]); - })); - }; - }, function (e) { - return Control_Monad_Error_Trans.ErrorT(Prelude["return"](__dict_Monad_500["__superclass_Prelude.Applicative_0"]())(new Data_Either.Left(e))); - }); - }; - var monadErrorEither = new MonadError(function (_473) { - return function (h) { - if (_473 instanceof Data_Either.Left) { - return h(_473.value0); - }; - if (_473 instanceof Data_Either.Right) { - return new Data_Either.Right(_473.value0); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/Error/Class.purs line 55, column 1 - line 60, column 1: " + [ _473.constructor.name, h.constructor.name ]); - }; - }, Data_Either.Left.create); - var catchError = function (dict) { - return dict.catchError; - }; - var catchJust = function (__dict_MonadError_501) { - return function (p) { - return function (act) { - return function (handler) { - var handle = function (e) { - var _1434 = p(e); - if (_1434 instanceof Data_Maybe.Nothing) { - return throwError(__dict_MonadError_501)(e); - }; - if (_1434 instanceof Data_Maybe.Just) { - return handler(_1434.value0); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/Error/Class.purs line 50, column 3 - line 55, column 1: " + [ _1434.constructor.name ]); - }; - return catchError(__dict_MonadError_501)(act)(handle); - }; - }; - }; - }; - var monadErrorMaybeT = function (__dict_Monad_502) { - return function (__dict_MonadError_503) { - return new MonadError(Control_Monad_Maybe_Trans.liftCatchMaybe(catchError(__dict_MonadError_503)), function (e) { - return Control_Monad_Trans.lift(Control_Monad_Maybe_Trans.monadTransMaybeT)(__dict_Monad_502)(throwError(__dict_MonadError_503)(e)); - }); - }; - }; - var monadErrorReaderT = function (__dict_Monad_504) { - return function (__dict_MonadError_505) { - return new MonadError(Control_Monad_Reader_Trans.liftCatchReader(catchError(__dict_MonadError_505)), function (e) { - return Control_Monad_Trans.lift(Control_Monad_Reader_Trans.monadTransReaderT)(__dict_Monad_504)(throwError(__dict_MonadError_505)(e)); - }); - }; - }; - var monadErrorStateT = function (__dict_Monad_506) { - return function (__dict_MonadError_507) { - return new MonadError(Control_Monad_State_Trans.liftCatchState(catchError(__dict_MonadError_507)), function (e) { - return Control_Monad_Trans.lift(Control_Monad_State_Trans.monadTransStateT)(__dict_Monad_506)(throwError(__dict_MonadError_507)(e)); - }); - }; - }; - var monadErrorWriterT = function (__dict_Monad_508) { - return function (__dict_Monoid_509) { - return function (__dict_MonadError_510) { - return new MonadError(Control_Monad_Writer_Trans.liftCatchWriter(catchError(__dict_MonadError_510)), function (e) { - return Control_Monad_Trans.lift(Control_Monad_Writer_Trans.monadTransWriterT(__dict_Monoid_509))(__dict_Monad_508)(throwError(__dict_MonadError_510)(e)); - }); - }; - }; - }; - return { - MonadError: MonadError, - catchJust: catchJust, - catchError: catchError, - throwError: throwError, - monadErrorEither: monadErrorEither, - monadErrorMaybe: monadErrorMaybe, - monadErrorErrorT: monadErrorErrorT, - monadErrorExceptT: monadErrorExceptT, - monadErrorMaybeT: monadErrorMaybeT, - monadErrorReaderT: monadErrorReaderT, - monadErrorWriterT: monadErrorWriterT, - monadErrorStateT: monadErrorStateT - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Aff = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports */ -"use strict"; - -// module Control.Monad.Aff - -exports._cancelWith = function (nonCanceler, aff, canceler1) { - return function(success, error) { - var canceler2 = aff(success, error); - - return function(e) { - return function(success, error) { - var cancellations = 0; - var result = false; - var errored = false; - - var s = function(bool) { - cancellations = cancellations + 1; - result = result || bool; - - if (cancellations === 2 && !errored) { - try { - success(result); - } catch (e) { - error(e); - } - } - }; - - var f = function(err) { - if (!errored) { - errored = true; - - error(err); - } - }; - - canceler2(e)(s, f); - canceler1(e)(s, f); - - return nonCanceler; - }; - }; - }; -} - -exports._setTimeout = function (nonCanceler, millis, aff) { - var set = setTimeout, clear = clearTimeout; - if (millis <= 0 && typeof setImmediate === "function") { - set = setImmediate; - clear = clearImmediate; - } - return function(success, error) { - var canceler; - - var timeout = set(function() { - canceler = aff(success, error); - }, millis); - - return function(e) { - return function(s, f) { - if (canceler !== undefined) { - return canceler(e)(s, f); - } else { - clear(timeout); - - try { - s(true); - } catch (e) { - f(e); - } - - return nonCanceler; - } - }; - }; - }; -} - -exports._unsafeInterleaveAff = function (aff) { - return aff; -} - -exports._forkAff = function (nonCanceler, aff) { - var voidF = function(){}; - - return function(success, error) { - var canceler = aff(voidF, voidF); - - try { - success(canceler); - } catch (e) { - error(e); - } - - return nonCanceler; - }; -} - -exports._makeAff = function (cb) { - return function(success, error) { - return cb(function(e) { - return function() { - error(e); - }; - })(function(v) { - return function() { - try { - success(v); - } catch (e) { - error(e); - } - }; - })(); - } -} - -exports._pure = function (nonCanceler, v) { - return function(success, error) { - try { - success(v); - } catch (e) { - error(e); - } - - return nonCanceler; - }; -} - -exports._throwError = function (nonCanceler, e) { - return function(success, error) { - error(e); - - return nonCanceler; - }; -} - -exports._fmap = function (f, aff) { - return function(success, error) { - return aff(function(v) { - try { - success(f(v)); - } catch (e) { - error(e); - } - }, error); - }; -} - -exports._bind = function (alwaysCanceler, aff, f) { - return function(success, error) { - var canceler1, canceler2; - - var isCanceled = false; - var requestCancel = false; - - var onCanceler = function(){}; - - canceler1 = aff(function(v) { - if (requestCancel) { - isCanceled = true; - - return alwaysCanceler; - } else { - canceler2 = f(v)(success, error); - - onCanceler(canceler2); - - return canceler2; - } - }, error); - - return function(e) { - return function(s, f) { - requestCancel = true; - - if (canceler2 !== undefined) { - return canceler2(e)(s, f); - } else { - return canceler1(e)(function(bool) { - if (bool || isCanceled) { - try { - s(true); - } catch (e) { - f(e); - } - } else { - onCanceler = function(canceler) { - canceler(e)(s, f); - }; - } - }, f); - } - }; - }; - }; -} - -exports._attempt = function (Left, Right, aff) { - return function(success, error) { - return aff(function(v) { - try { - success(Right(v)); - } catch (e) { - error(e); - } - }, function(e) { - try { - success(Left(e)); - } catch (e) { - error(e); - } - }); - }; -} - -exports._runAff = function (errorT, successT, aff) { - return function() { - return aff(function(v) { - try { - successT(v)(); - } catch (e) { - errorT(e)(); - } - }, function(e) { - errorT(e)(); - }); - }; -} - -exports._liftEff = function (nonCanceler, e) { - return function(success, error) { - try { - success(e()); - } catch (e) { - error(e); - } - - return nonCanceler; - }; -} -; - return exports; - })(); - var Data_Function = PS.Data_Function; - var Prelude = PS.Prelude; - var Data_Either = PS.Data_Either; - var Control_Monad_Error_Class = PS.Control_Monad_Error_Class; - var Data_Monoid = PS.Data_Monoid; - var Control_Monad_Eff_Exception = PS.Control_Monad_Eff_Exception; - var Control_Apply = PS.Control_Apply; - var Control_Alt = PS.Control_Alt; - var Control_Plus = PS.Control_Plus; - var Control_Alternative = PS.Control_Alternative; - var Control_MonadPlus = PS.Control_MonadPlus; - var Control_Monad_Eff = PS.Control_Monad_Eff; - var Control_Monad_Eff_Unsafe = PS.Control_Monad_Eff_Unsafe; - var Control_Monad_Eff_Class = PS.Control_Monad_Eff_Class; - var Canceler = function (x) { - return x; - }; - var runAff = function (ex) { - return function (f) { - return function (aff) { - return $foreign._runAff(ex, f, aff); - }; - }; - }; - var makeAff$prime = function (h) { - return $foreign._makeAff(h); - }; - var launchAff = runAff(Prelude["const"](Prelude.pure(Control_Monad_Eff.applicativeEff)(Prelude.unit)))(Prelude["const"](Prelude.pure(Control_Monad_Eff.applicativeEff)(Prelude.unit))); - var functorAff = new Prelude.Functor(function (f) { - return function (fa) { - return $foreign._fmap(f, fa); - }; - }); - var cancel = function (_475) { - return _475; - }; - var attempt = function (aff) { - return $foreign._attempt(Data_Either.Left.create, Data_Either.Right.create, aff); - }; - var apathize = function (a) { - return Prelude["<$>"](functorAff)(Prelude["const"](Prelude.unit))(attempt(a)); - }; - var applyAff = new Prelude.Apply(function () { - return functorAff; - }, function (ff) { - return function (fa) { - return $foreign._bind(alwaysCanceler, ff, function (f) { - return Prelude["<$>"](functorAff)(f)(fa); - }); - }; - }); - var applicativeAff = new Prelude.Applicative(function () { - return applyAff; - }, function (v) { - return $foreign._pure(nonCanceler, v); - }); - var nonCanceler = Prelude["const"](Prelude.pure(applicativeAff)(false)); - var alwaysCanceler = Prelude["const"](Prelude.pure(applicativeAff)(true)); - var cancelWith = function (aff) { - return function (c) { - return $foreign._cancelWith(nonCanceler, aff, c); - }; - }; - var forkAff = function (aff) { - return $foreign._forkAff(nonCanceler, aff); - }; - var later$prime = function (n) { - return function (aff) { - return $foreign._setTimeout(nonCanceler, n, aff); - }; - }; - var later = later$prime(0); - var liftEff$prime = function (eff) { - return attempt($foreign._unsafeInterleaveAff($foreign._liftEff(nonCanceler, eff))); - }; - var makeAff = function (h) { - return makeAff$prime(function (e) { - return function (a) { - return Prelude["<$>"](Control_Monad_Eff.functorEff)(Prelude["const"](nonCanceler))(h(e)(a)); - }; - }); - }; - var semigroupAff = function (__dict_Semigroup_511) { - return new Prelude.Semigroup(function (a) { - return function (b) { - return Prelude["<*>"](applyAff)(Prelude["<$>"](functorAff)(Prelude["<>"](__dict_Semigroup_511))(a))(b); - }; - }); - }; - var monoidAff = function (__dict_Monoid_512) { - return new Data_Monoid.Monoid(function () { - return semigroupAff(__dict_Monoid_512["__superclass_Prelude.Semigroup_0"]()); - }, Prelude.pure(applicativeAff)(Data_Monoid.mempty(__dict_Monoid_512))); - }; - var semigroupCanceler = new Prelude.Semigroup(function (_476) { - return function (_477) { - return function (e) { - return Prelude["<*>"](applyAff)(Prelude["<$>"](functorAff)(Prelude["||"](Prelude.booleanAlgebraBoolean))(_476(e)))(_477(e)); - }; - }; - }); - var monoidCanceler = new Data_Monoid.Monoid(function () { - return semigroupCanceler; - }, Prelude["const"](Prelude.pure(applicativeAff)(true))); - var bindAff = new Prelude.Bind(function () { - return applyAff; - }, function (fa) { - return function (f) { - return $foreign._bind(alwaysCanceler, fa, f); - }; - }); - var monadAff = new Prelude.Monad(function () { - return applicativeAff; - }, function () { - return bindAff; - }); - var monadEffAff = new Control_Monad_Eff_Class.MonadEff(function () { - return monadAff; - }, function (eff) { - return $foreign._liftEff(nonCanceler, eff); - }); - var monadErrorAff = new Control_Monad_Error_Class.MonadError(function (aff) { - return function (ex) { - return Prelude[">>="](bindAff)(attempt(aff))(Data_Either.either(ex)(Prelude.pure(applicativeAff))); - }; - }, function (e) { - return $foreign._throwError(nonCanceler, e); - }); - var $$finally = function (aff1) { - return function (aff2) { - return Prelude[">>="](bindAff)(attempt(aff1))(function (_39) { - return Prelude[">>="](bindAff)(aff2)(function () { - return Data_Either.either(Control_Monad_Error_Class.throwError(monadErrorAff))(Prelude.pure(applicativeAff))(_39); - }); - }); - }; - }; - var altAff = new Control_Alt.Alt(function () { - return functorAff; - }, function (a1) { - return function (a2) { - return Prelude[">>="](bindAff)(attempt(a1))(Data_Either.either(Prelude["const"](a2))(Prelude.pure(applicativeAff))); - }; - }); - var plusAff = new Control_Plus.Plus(function () { - return altAff; - }, Control_Monad_Error_Class.throwError(monadErrorAff)(Control_Monad_Eff_Exception.error("Always fails"))); - var alternativeAff = new Control_Alternative.Alternative(function () { - return plusAff; - }, function () { - return applicativeAff; - }); - var monadPlusAff = new Control_MonadPlus.MonadPlus(function () { - return alternativeAff; - }, function () { - return monadAff; - }); - return { - Canceler: Canceler, - runAff: runAff, - nonCanceler: nonCanceler, - "makeAff'": makeAff$prime, - makeAff: makeAff, - "liftEff'": liftEff$prime, - launchAff: launchAff, - "later'": later$prime, - later: later, - forkAff: forkAff, - "finally": $$finally, - cancelWith: cancelWith, - cancel: cancel, - attempt: attempt, - apathize: apathize, - semigroupAff: semigroupAff, - monoidAff: monoidAff, - functorAff: functorAff, - applyAff: applyAff, - applicativeAff: applicativeAff, - bindAff: bindAff, - monadAff: monadAff, - monadEffAff: monadEffAff, - monadErrorAff: monadErrorAff, - altAff: altAff, - plusAff: plusAff, - alternativeAff: alternativeAff, - monadPlusAff: monadPlusAff, - semigroupCanceler: semigroupCanceler, - monoidCanceler: monoidCanceler - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Aff_AVar = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports */ -"use strict"; - -// module Control.Monad.Aff.AVar - -exports._makeVar = function (nonCanceler) { - return function(success, error) { - try { - success({ - consumers: [], - producers: [], - error: undefined - }); - } catch (e) { - error(e); - } - - return nonCanceler; - } -} - -exports._takeVar = function (nonCanceler, avar) { - return function(success, error) { - if (avar.error !== undefined) { - error(avar.error); - } else if (avar.producers.length > 0) { - var producer = avar.producers.shift(); - - producer(success, error); - } else { - avar.consumers.push({success: success, error: error}); - } - - return nonCanceler; - } -} - -exports._putVar = function (nonCanceler, avar, a) { - return function(success, error) { - if (avar.error !== undefined) { - error(avar.error); - } else if (avar.consumers.length === 0) { - avar.producers.push(function(success, error) { - try { - success(a); - } catch (e) { - error(e); - } - }); - - success({}); - } else { - var consumer = avar.consumers.shift(); - - try { - consumer.success(a); - } catch (e) { - error(e); - - return; - } - - success({}); - } - - return nonCanceler; - } -} - -exports._killVar = function (nonCanceler, avar, e) { - return function(success, error) { - if (avar.error !== undefined) { - error(avar.error); - } else { - var errors = []; - - avar.error = e; - - while (avar.consumers.length > 0) { - var consumer = avar.consumers.shift(); - - try { - consumer.error(e); - } catch (e) { - errors.push(e); - } - } - - if (errors.length > 0) error(errors[0]); - else success({}); - } - - return nonCanceler; - } -} -; - return exports; - })(); - var Control_Monad_Aff = PS.Control_Monad_Aff; - var Prelude = PS.Prelude; - var Data_Function = PS.Data_Function; - var Control_Monad_Eff_Exception = PS.Control_Monad_Eff_Exception; - var takeVar = function (q) { - return $foreign._takeVar(Control_Monad_Aff.nonCanceler, q); - }; - var putVar = function (q) { - return function (a) { - return $foreign._putVar(Control_Monad_Aff.nonCanceler, q, a); - }; - }; - var modifyVar = function (f) { - return function (v) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(takeVar(v))(Prelude[">>>"](Prelude.semigroupoidFn)(f)(putVar(v))); - }; - }; - var makeVar = $foreign._makeVar(Control_Monad_Aff.nonCanceler); - var makeVar$prime = function (a) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(makeVar)(function (_40) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(putVar(_40)(a))(function () { - return Prelude["return"](Control_Monad_Aff.applicativeAff)(_40); - }); - }); - }; - var killVar = function (q) { - return function (e) { - return $foreign._killVar(Control_Monad_Aff.nonCanceler, q, e); - }; - }; - return { - takeVar: takeVar, - putVar: putVar, - modifyVar: modifyVar, - "makeVar'": makeVar$prime, - makeVar: makeVar, - killVar: killVar - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Aff_Class = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Monad_Aff = PS.Control_Monad_Aff; - var MonadAff = function (liftAff) { - this.liftAff = liftAff; - }; - var monadAffAff = new MonadAff(Prelude.id(Prelude.categoryFn)); - var liftAff = function (dict) { - return dict.liftAff; - }; - return { - MonadAff: MonadAff, - liftAff: liftAff, - monadAffAff: monadAffAff - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Aff_Console = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Monad_Eff_Class = PS.Control_Monad_Eff_Class; - var Control_Monad_Eff_Console = PS.Control_Monad_Eff_Console; - var Control_Monad_Aff = PS.Control_Monad_Aff; - var print = function (__dict_Show_513) { - return function (a) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Eff_Class.liftEff(Control_Monad_Aff.monadEffAff)(Control_Monad_Eff_Console.print(__dict_Show_513)(a)))(function () { - return Prelude["return"](Control_Monad_Aff.applicativeAff)(a); - }); - }; - }; - var log = function (s) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Eff_Class.liftEff(Control_Monad_Aff.monadEffAff)(Control_Monad_Eff_Console.log(s)))(function () { - return Prelude["return"](Control_Monad_Aff.applicativeAff)(s); - }); - }; - return { - print: print, - log: log - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Aff_Unsafe = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports */ -"use strict"; - -// module Control.Monad.Aff.Unsafe - -exports.unsafeTrace = function (v) { - return function(success, error) { - console.log(v); - - try { - success(v); - } catch (e) { - error(e); - } - - var nonCanceler; - - nonCanceler = function(e) { - return function(sucess, error) { - success(false); - - return nonCanceler; - } - }; - - return nonCanceler; - }; -} - -exports.unsafeInterleaveAff = function (aff) { - return aff; -} -; - return exports; - })(); - var Prelude = PS.Prelude; - var Control_Monad_Aff = PS.Control_Monad_Aff; - return { - unsafeInterleaveAff: $foreign.unsafeInterleaveAff, - unsafeTrace: $foreign.unsafeTrace - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Aff_Par = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Monoid = PS.Data_Monoid; - var Control_Monad_Aff_AVar = PS.Control_Monad_Aff_AVar; - var Control_Monad_Aff = PS.Control_Monad_Aff; - var Data_Either = PS.Data_Either; - var Control_Plus = PS.Control_Plus; - var Control_Apply = PS.Control_Apply; - var Control_Alt = PS.Control_Alt; - var Control_Alternative = PS.Control_Alternative; - var Control_Monad_Error_Class = PS.Control_Monad_Error_Class; - var Par = function (x) { - return x; - }; - var runPar = function (_478) { - return _478; - }; - var functorPar = new Prelude.Functor(function (f) { - return function (_479) { - return Prelude["<$>"](Control_Monad_Aff.functorAff)(f)(_479); - }; - }); - var applyPar = new Prelude.Apply(function () { - return functorPar; - }, function (_480) { - return function (_481) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_AVar.makeVar)(function (_44) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_AVar.makeVar)(function (_43) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.forkAff(Prelude[">>="](Control_Monad_Aff.bindAff)(_480)(Control_Monad_Aff_AVar.putVar(_44))))(function (_42) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.forkAff(Prelude[">>="](Control_Monad_Aff.bindAff)(_481)(Control_Monad_Aff_AVar.putVar(_43))))(function (_41) { - return Control_Monad_Aff.cancelWith(Prelude["<*>"](Control_Monad_Aff.applyAff)(Control_Monad_Aff_AVar.takeVar(_44))(Control_Monad_Aff_AVar.takeVar(_43)))(Prelude["<>"](Control_Monad_Aff.semigroupCanceler)(_42)(_41)); - }); - }); - }); - }); - }; - }); - var semigroupPar = function (__dict_Semigroup_514) { - return new Prelude.Semigroup(function (a) { - return function (b) { - return Prelude["<*>"](applyPar)(Prelude["<$>"](functorPar)(Prelude.append(__dict_Semigroup_514))(a))(b); - }; - }); - }; - var applicativePar = new Prelude.Applicative(function () { - return applyPar; - }, function (v) { - return Prelude.pure(Control_Monad_Aff.applicativeAff)(v); - }); - var monoidPar = function (__dict_Monoid_515) { - return new Data_Monoid.Monoid(function () { - return semigroupPar(__dict_Monoid_515["__superclass_Prelude.Semigroup_0"]()); - }, Prelude.pure(applicativePar)(Data_Monoid.mempty(__dict_Monoid_515))); - }; - var altPar = new Control_Alt.Alt(function () { - return functorPar; - }, function (_482) { - return function (_483) { - var maybeKill = function (va) { - return function (ve) { - return function (err) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_AVar.takeVar(ve))(function (_45) { - return Prelude[">>="](Control_Monad_Aff.bindAff)((function () { - var _1453 = Prelude["=="](Prelude.eqInt)(_45)(1); - if (_1453) { - return Control_Monad_Aff_AVar.killVar(va)(err); - }; - if (!_1453) { - return Prelude["return"](Control_Monad_Aff.applicativeAff)(Prelude.unit); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/src/Control/Monad/Aff/Par.purs line 51, column 11 - line 55, column 7: " + [ _1453.constructor.name ]); - })())(function () { - return Control_Monad_Aff_AVar.putVar(ve)(Prelude["+"](Prelude.semiringInt)(_45)(1)); - }); - }); - }; - }; - }; - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_AVar.makeVar)(function (_49) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_AVar["makeVar'"](0))(function (_48) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.forkAff(Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.attempt(_482))(Data_Either.either(maybeKill(_49)(_48))(Control_Monad_Aff_AVar.putVar(_49)))))(function (_47) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.forkAff(Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.attempt(_483))(Data_Either.either(maybeKill(_49)(_48))(Control_Monad_Aff_AVar.putVar(_49)))))(function (_46) { - return Control_Monad_Aff.cancelWith(Control_Monad_Aff_AVar.takeVar(_49))(Prelude["<>"](Control_Monad_Aff.semigroupCanceler)(_47)(_46)); - }); - }); - }); - }); - }; - }); - var plusPar = new Control_Plus.Plus(function () { - return altPar; - }, Control_Plus.empty(Control_Monad_Aff.plusAff)); - var alternativePar = new Control_Alternative.Alternative(function () { - return plusPar; - }, function () { - return applicativePar; - }); - return { - Par: Par, - runPar: runPar, - semigroupPar: semigroupPar, - monoidPar: monoidPar, - functorPar: functorPar, - applyPar: applyPar, - applicativePar: applicativePar, - altPar: altPar, - plusPar: plusPar, - alternativePar: alternativePar - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Reader_Class = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Monad_Reader_Trans = PS.Control_Monad_Reader_Trans; - var Control_Monad_Trans = PS.Control_Monad_Trans; - var Control_Monad_Error_Trans = PS.Control_Monad_Error_Trans; - var Control_Monad_Maybe_Trans = PS.Control_Monad_Maybe_Trans; - var Control_Monad_Writer_Trans = PS.Control_Monad_Writer_Trans; - var Control_Monad_State_Trans = PS.Control_Monad_State_Trans; - var Control_Monad_RWS = PS.Control_Monad_RWS; - var Control_Monad_Error = PS.Control_Monad_Error; - var Control_Monad_RWS_Trans = PS.Control_Monad_RWS_Trans; - var Data_Monoid = PS.Data_Monoid; - var MonadReader = function (ask, local) { - this.ask = ask; - this.local = local; - }; - var monadReaderReaderT = function (__dict_Monad_516) { - return new MonadReader(Prelude["return"](__dict_Monad_516["__superclass_Prelude.Applicative_0"]()), Control_Monad_Reader_Trans.withReaderT); - }; - var monadReaderRWST = function (__dict_Monad_517) { - return function (__dict_Monoid_518) { - return new MonadReader(Control_Monad_RWS.ask(__dict_Monad_517["__superclass_Prelude.Applicative_0"]())(__dict_Monoid_518), Control_Monad_RWS.local); - }; - }; - var monadReaderFun = new MonadReader(Prelude.id(Prelude.categoryFn), Prelude[">>>"](Prelude.semigroupoidFn)); - var local = function (dict) { - return dict.local; - }; - var ask = function (dict) { - return dict.ask; - }; - var monadReaderErrorT = function (__dict_Monad_519) { - return function (__dict_MonadReader_520) { - return new MonadReader(Control_Monad_Trans.lift(Control_Monad_Error_Trans.monadTransErrorT)(__dict_Monad_519)(ask(__dict_MonadReader_520)), function (f) { - return Control_Monad_Error_Trans.mapErrorT(local(__dict_MonadReader_520)(f)); - }); - }; - }; - var monadReaderMaybeT = function (__dict_Monad_521) { - return function (__dict_MonadReader_522) { - return new MonadReader(Control_Monad_Trans.lift(Control_Monad_Maybe_Trans.monadTransMaybeT)(__dict_Monad_521)(ask(__dict_MonadReader_522)), function (f) { - return Control_Monad_Maybe_Trans.mapMaybeT(local(__dict_MonadReader_522)(f)); - }); - }; - }; - var monadReaderStateT = function (__dict_Monad_523) { - return function (__dict_MonadReader_524) { - return new MonadReader(Control_Monad_Trans.lift(Control_Monad_State_Trans.monadTransStateT)(__dict_Monad_523)(ask(__dict_MonadReader_524)), function (f) { - return Control_Monad_State_Trans.mapStateT(local(__dict_MonadReader_524)(f)); - }); - }; - }; - var monadReaderWriterT = function (__dict_Monad_525) { - return function (__dict_Monoid_526) { - return function (__dict_MonadReader_527) { - return new MonadReader(Control_Monad_Trans.lift(Control_Monad_Writer_Trans.monadTransWriterT(__dict_Monoid_526))(__dict_Monad_525)(ask(__dict_MonadReader_527)), function (f) { - return Control_Monad_Writer_Trans.mapWriterT(local(__dict_MonadReader_527)(f)); - }); - }; - }; - }; - var reader = function (__dict_Monad_528) { - return function (__dict_MonadReader_529) { - return function (f) { - return Prelude[">>="](__dict_Monad_528["__superclass_Prelude.Bind_1"]())(ask(__dict_MonadReader_529))(Prelude["<<<"](Prelude.semigroupoidFn)(Prelude["return"](__dict_Monad_528["__superclass_Prelude.Applicative_0"]()))(f)); - }; - }; - }; - return { - MonadReader: MonadReader, - reader: reader, - local: local, - ask: ask, - monadReaderFun: monadReaderFun, - monadReaderReaderT: monadReaderReaderT, - monadReaderErrorT: monadReaderErrorT, - monadReaderMaybeT: monadReaderMaybeT, - monadReaderWriterT: monadReaderWriterT, - monadReaderStateT: monadReaderStateT, - monadReaderRWST: monadReaderRWST - }; -})(); -var PS = PS || {}; -PS.Control_Monad_State_Class = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Monad_Trans = PS.Control_Monad_Trans; - var Control_Monad_RWS = PS.Control_Monad_RWS; - var Control_Monad_State_Trans = PS.Control_Monad_State_Trans; - var Control_Monad_Error = PS.Control_Monad_Error; - var Control_Monad_Error_Trans = PS.Control_Monad_Error_Trans; - var Control_Monad_Maybe_Trans = PS.Control_Monad_Maybe_Trans; - var Control_Monad_Reader_Trans = PS.Control_Monad_Reader_Trans; - var Control_Monad_RWS_Trans = PS.Control_Monad_RWS_Trans; - var Control_Monad_Writer_Trans = PS.Control_Monad_Writer_Trans; - var Data_Monoid = PS.Data_Monoid; - var Data_Tuple = PS.Data_Tuple; - var MonadState = function (state) { - this.state = state; - }; - var state = function (dict) { - return dict.state; - }; - var put = function (__dict_Monad_530) { - return function (__dict_MonadState_531) { - return function (s) { - return state(__dict_MonadState_531)(function (_484) { - return new Data_Tuple.Tuple(Prelude.unit, s); - }); - }; - }; - }; - var monadStateWriterT = function (__dict_Monad_532) { - return function (__dict_Monoid_533) { - return function (__dict_MonadState_534) { - return new MonadState(function (f) { - return Control_Monad_Trans.lift(Control_Monad_Writer_Trans.monadTransWriterT(__dict_Monoid_533))(__dict_Monad_532)(state(__dict_MonadState_534)(f)); - }); - }; - }; - }; - var monadStateStateT1 = function (__dict_Monad_535) { - return function (__dict_MonadState_536) { - return new MonadState(function (f) { - return Control_Monad_Trans.lift(Control_Monad_State_Trans.monadTransStateT)(__dict_Monad_535)(state(__dict_MonadState_536)(f)); - }); - }; - }; - var monadStateStateT = function (__dict_Monad_537) { - return new MonadState(function (f) { - return Control_Monad_State_Trans.StateT(Prelude["<<<"](Prelude.semigroupoidFn)(Prelude["return"](__dict_Monad_537["__superclass_Prelude.Applicative_0"]()))(f)); - }); - }; - var monadStateReaderT = function (__dict_Monad_538) { - return function (__dict_MonadState_539) { - return new MonadState(function (f) { - return Control_Monad_Trans.lift(Control_Monad_Reader_Trans.monadTransReaderT)(__dict_Monad_538)(state(__dict_MonadState_539)(f)); - }); - }; - }; - var monadStateRWST = function (__dict_Monad_540) { - return function (__dict_Monoid_541) { - return new MonadState(Control_Monad_RWS.state(__dict_Monad_540["__superclass_Prelude.Applicative_0"]())(__dict_Monoid_541)); - }; - }; - var monadStateMaybeT = function (__dict_Monad_542) { - return function (__dict_MonadState_543) { - return new MonadState(function (f) { - return Control_Monad_Trans.lift(Control_Monad_Maybe_Trans.monadTransMaybeT)(__dict_Monad_542)(state(__dict_MonadState_543)(f)); - }); - }; - }; - var monadStateErrorT = function (__dict_Monad_544) { - return function (__dict_MonadState_545) { - return new MonadState(function (f) { - return Control_Monad_Trans.lift(Control_Monad_Error_Trans.monadTransErrorT)(__dict_Monad_544)(state(__dict_MonadState_545)(f)); - }); - }; - }; - var modify = function (__dict_Monad_546) { - return function (__dict_MonadState_547) { - return function (f) { - return state(__dict_MonadState_547)(function (s) { - return new Data_Tuple.Tuple(Prelude.unit, f(s)); - }); - }; - }; - }; - var gets = function (__dict_Monad_548) { - return function (__dict_MonadState_549) { - return function (f) { - return state(__dict_MonadState_549)(function (s) { - return new Data_Tuple.Tuple(f(s), s); - }); - }; - }; - }; - var get = function (__dict_Monad_550) { - return function (__dict_MonadState_551) { - return state(__dict_MonadState_551)(function (s) { - return new Data_Tuple.Tuple(s, s); - }); - }; - }; - return { - MonadState: MonadState, - modify: modify, - put: put, - gets: gets, - get: get, - state: state, - monadStateStateT: monadStateStateT, - monadStateStateT1: monadStateStateT1, - monadStateErrorT: monadStateErrorT, - monadStateMaybeT: monadStateMaybeT, - monadStateReaderT: monadStateReaderT, - monadStateWriterT: monadStateWriterT, - monadStateRWST: monadStateRWST - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Writer = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Identity = PS.Data_Identity; - var Control_Monad_Writer_Trans = PS.Control_Monad_Writer_Trans; - var Data_Tuple = PS.Data_Tuple; - var Data_Monoid = PS.Data_Monoid; - var runWriter = Prelude["<<<"](Prelude.semigroupoidFn)(Data_Identity.runIdentity)(Control_Monad_Writer_Trans.runWriterT); - var mapWriter = function (f) { - return Control_Monad_Writer_Trans.mapWriterT(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Identity.Identity)(Prelude["<<<"](Prelude.semigroupoidFn)(f)(Data_Identity.runIdentity))); - }; - var execWriter = function (m) { - return Data_Tuple.snd(runWriter(m)); - }; - return { - mapWriter: mapWriter, - execWriter: execWriter, - runWriter: runWriter - }; -})(); -var PS = PS || {}; -PS.Control_Monad_Writer_Class = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Monad_Writer_Trans = PS.Control_Monad_Writer_Trans; - var Control_Monad_Trans = PS.Control_Monad_Trans; - var Control_Monad_Error_Trans = PS.Control_Monad_Error_Trans; - var Control_Monad_Maybe_Trans = PS.Control_Monad_Maybe_Trans; - var Control_Monad_State_Trans = PS.Control_Monad_State_Trans; - var Control_Monad_Reader_Trans = PS.Control_Monad_Reader_Trans; - var Control_Monad_RWS = PS.Control_Monad_RWS; - var Control_Monad_Error = PS.Control_Monad_Error; - var Control_Monad_RWS_Trans = PS.Control_Monad_RWS_Trans; - var Data_Monoid = PS.Data_Monoid; - var Data_Tuple = PS.Data_Tuple; - var MonadWriter = function (listen, pass, writer) { - this.listen = listen; - this.pass = pass; - this.writer = writer; - }; - var writer = function (dict) { - return dict.writer; - }; - var tell = function (__dict_Monoid_552) { - return function (__dict_Monad_553) { - return function (__dict_MonadWriter_554) { - return function (w) { - return writer(__dict_MonadWriter_554)(new Data_Tuple.Tuple(Prelude.unit, w)); - }; - }; - }; - }; - var pass = function (dict) { - return dict.pass; - }; - var monadWriterWriterT = function (__dict_Monoid_555) { - return function (__dict_Monad_556) { - return new MonadWriter(function (m) { - return Control_Monad_Writer_Trans.WriterT(Prelude[">>="](__dict_Monad_556["__superclass_Prelude.Bind_1"]())(Control_Monad_Writer_Trans.runWriterT(m))(function (_52) { - return Prelude["return"](__dict_Monad_556["__superclass_Prelude.Applicative_0"]())(new Data_Tuple.Tuple(new Data_Tuple.Tuple(_52.value0, _52.value1), _52.value1)); - })); - }, function (m) { - return Control_Monad_Writer_Trans.WriterT(Prelude[">>="](__dict_Monad_556["__superclass_Prelude.Bind_1"]())(Control_Monad_Writer_Trans.runWriterT(m))(function (_53) { - return Prelude["return"](__dict_Monad_556["__superclass_Prelude.Applicative_0"]())(new Data_Tuple.Tuple(_53.value0.value0, _53.value0.value1(_53.value1))); - })); - }, Prelude["<<<"](Prelude.semigroupoidFn)(Control_Monad_Writer_Trans.WriterT)(Prelude["return"](__dict_Monad_556["__superclass_Prelude.Applicative_0"]()))); - }; - }; - var monadWriterRWST = function (__dict_Monad_557) { - return function (__dict_Monoid_558) { - return new MonadWriter(Control_Monad_RWS.listen(__dict_Monad_557), Control_Monad_RWS.pass(__dict_Monad_557), Control_Monad_RWS.writer(__dict_Monad_557["__superclass_Prelude.Applicative_0"]())); - }; - }; - var listen = function (dict) { - return dict.listen; - }; - var listens = function (__dict_Monoid_559) { - return function (__dict_Monad_560) { - return function (__dict_MonadWriter_561) { - return function (f) { - return function (m) { - return Prelude[">>="](__dict_Monad_560["__superclass_Prelude.Bind_1"]())(listen(__dict_MonadWriter_561)(m))(function (_50) { - return Prelude["return"](__dict_Monad_560["__superclass_Prelude.Applicative_0"]())(new Data_Tuple.Tuple(_50.value0, f(_50.value1))); - }); - }; - }; - }; - }; - }; - var monadWriterErrorT = function (__dict_Monad_562) { - return function (__dict_MonadWriter_563) { - return new MonadWriter(Control_Monad_Error_Trans.liftListenError(__dict_Monad_562)(listen(__dict_MonadWriter_563)), Control_Monad_Error_Trans.liftPassError(__dict_Monad_562)(pass(__dict_MonadWriter_563)), function (wd) { - return Control_Monad_Trans.lift(Control_Monad_Error_Trans.monadTransErrorT)(__dict_Monad_562)(writer(__dict_MonadWriter_563)(wd)); - }); - }; - }; - var monadWriterMaybeT = function (__dict_Monad_564) { - return function (__dict_MonadWriter_565) { - return new MonadWriter(Control_Monad_Maybe_Trans.liftListenMaybe(__dict_Monad_564)(listen(__dict_MonadWriter_565)), Control_Monad_Maybe_Trans.liftPassMaybe(__dict_Monad_564)(pass(__dict_MonadWriter_565)), function (wd) { - return Control_Monad_Trans.lift(Control_Monad_Maybe_Trans.monadTransMaybeT)(__dict_Monad_564)(writer(__dict_MonadWriter_565)(wd)); - }); - }; - }; - var monadWriterReaderT = function (__dict_Monad_566) { - return function (__dict_MonadWriter_567) { - return new MonadWriter(Control_Monad_Reader_Trans.mapReaderT(listen(__dict_MonadWriter_567)), Control_Monad_Reader_Trans.mapReaderT(pass(__dict_MonadWriter_567)), function (wd) { - return Control_Monad_Trans.lift(Control_Monad_Reader_Trans.monadTransReaderT)(__dict_Monad_566)(writer(__dict_MonadWriter_567)(wd)); - }); - }; - }; - var monadWriterStateT = function (__dict_Monad_568) { - return function (__dict_MonadWriter_569) { - return new MonadWriter(Control_Monad_State_Trans.liftListenState(__dict_Monad_568)(listen(__dict_MonadWriter_569)), Control_Monad_State_Trans.liftPassState(__dict_Monad_568)(pass(__dict_MonadWriter_569)), function (wd) { - return Control_Monad_Trans.lift(Control_Monad_State_Trans.monadTransStateT)(__dict_Monad_568)(writer(__dict_MonadWriter_569)(wd)); - }); - }; - }; - var censor = function (__dict_Monoid_570) { - return function (__dict_Monad_571) { - return function (__dict_MonadWriter_572) { - return function (f) { - return function (m) { - return pass(__dict_MonadWriter_572)(Prelude[">>="](__dict_Monad_571["__superclass_Prelude.Bind_1"]())(m)(function (_51) { - return Prelude["return"](__dict_Monad_571["__superclass_Prelude.Applicative_0"]())(new Data_Tuple.Tuple(_51, f)); - })); - }; - }; - }; - }; - }; - return { - MonadWriter: MonadWriter, - censor: censor, - listens: listens, - tell: tell, - pass: pass, - listen: listen, - writer: writer, - monadWriterWriterT: monadWriterWriterT, - monadWriterErrorT: monadWriterErrorT, - monadWriterMaybeT: monadWriterMaybeT, - monadWriterStateT: monadWriterStateT, - monadWriterReaderT: monadWriterReaderT, - monadWriterRWST: monadWriterRWST - }; -})(); -var PS = PS || {}; -PS.Control_Monad_RWS_Class = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Control_Monad_RWS_Trans = PS.Control_Monad_RWS_Trans; - var Control_Monad_Error_Trans = PS.Control_Monad_Error_Trans; - var Control_Monad_Error = PS.Control_Monad_Error; - var Control_Monad_Maybe_Trans = PS.Control_Monad_Maybe_Trans; - var Control_Monad_Reader_Class = PS.Control_Monad_Reader_Class; - var Control_Monad_State_Class = PS.Control_Monad_State_Class; - var Control_Monad_Writer_Class = PS.Control_Monad_Writer_Class; - var Data_Monoid = PS.Data_Monoid; - var MonadRWS = function (__superclass_Control$dotMonad$dotReader$dotClass$dotMonadReader_2, __superclass_Control$dotMonad$dotState$dotClass$dotMonadState_4, __superclass_Control$dotMonad$dotWriter$dotClass$dotMonadWriter_3, __superclass_Data$dotMonoid$dotMonoid_1, __superclass_Prelude$dotMonad_0) { - this["__superclass_Control.Monad.Reader.Class.MonadReader_2"] = __superclass_Control$dotMonad$dotReader$dotClass$dotMonadReader_2; - this["__superclass_Control.Monad.State.Class.MonadState_4"] = __superclass_Control$dotMonad$dotState$dotClass$dotMonadState_4; - this["__superclass_Control.Monad.Writer.Class.MonadWriter_3"] = __superclass_Control$dotMonad$dotWriter$dotClass$dotMonadWriter_3; - this["__superclass_Data.Monoid.Monoid_1"] = __superclass_Data$dotMonoid$dotMonoid_1; - this["__superclass_Prelude.Monad_0"] = __superclass_Prelude$dotMonad_0; - }; - var monadRWSRWST = function (__dict_Monad_573) { - return function (__dict_Monoid_574) { - return new MonadRWS(function () { - return Control_Monad_Reader_Class.monadReaderRWST(__dict_Monad_573)(__dict_Monoid_574); - }, function () { - return Control_Monad_State_Class.monadStateRWST(__dict_Monad_573)(__dict_Monoid_574); - }, function () { - return Control_Monad_Writer_Class.monadWriterRWST(__dict_Monad_573)(__dict_Monoid_574); - }, function () { - return __dict_Monoid_574; - }, function () { - return Control_Monad_RWS_Trans.monadRWST(__dict_Monad_573)(__dict_Monoid_574); - }); - }; - }; - var monadRWSMaybeT = function (__dict_Monad_575) { - return function (__dict_Monoid_576) { - return function (__dict_MonadRWS_577) { - return function (__dict_MonadReader_578) { - return function (__dict_MonadWriter_579) { - return function (__dict_MonadState_580) { - return new MonadRWS(function () { - return Control_Monad_Reader_Class.monadReaderMaybeT(__dict_Monad_575)(__dict_MonadReader_578); - }, function () { - return Control_Monad_State_Class.monadStateMaybeT(__dict_Monad_575)(__dict_MonadState_580); - }, function () { - return Control_Monad_Writer_Class.monadWriterMaybeT(__dict_Monad_575)(__dict_MonadWriter_579); - }, function () { - return __dict_Monoid_576; - }, function () { - return Control_Monad_Maybe_Trans.monadMaybeT(__dict_Monad_575); - }); - }; - }; - }; - }; - }; - }; - var monadRWSErrorT = function (__dict_Monad_581) { - return function (__dict_Monoid_582) { - return function (__dict_MonadRWS_583) { - return function (__dict_MonadReader_584) { - return function (__dict_MonadWriter_585) { - return function (__dict_MonadState_586) { - return new MonadRWS(function () { - return Control_Monad_Reader_Class.monadReaderErrorT(__dict_Monad_581)(__dict_MonadReader_584); - }, function () { - return Control_Monad_State_Class.monadStateErrorT(__dict_Monad_581)(__dict_MonadState_586); - }, function () { - return Control_Monad_Writer_Class.monadWriterErrorT(__dict_Monad_581)(__dict_MonadWriter_585); - }, function () { - return __dict_Monoid_582; - }, function () { - return Control_Monad_Error_Trans.monadErrorT(__dict_Monad_581); - }); - }; - }; - }; - }; - }; - }; - return { - MonadRWS: MonadRWS, - monadRWSRWST: monadRWSRWST, - monadRWSErrorT: monadRWSErrorT, - monadRWSMaybeT: monadRWSMaybeT - }; -})(); -var PS = PS || {}; -PS.Data_Array = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports */ -"use strict"; - -// module Data.Array - -//------------------------------------------------------------------------------ -// Array creation -------------------------------------------------------------- -//------------------------------------------------------------------------------ - -exports.range = function (start) { - return function (end) { - var step = start > end ? -1 : 1; - var result = []; - for (var i = start, n = 0; i !== end; i += step) { - result[n++] = i; - } - result[n] = i; - return result; - }; -}; - -exports.replicate = function (n) { - return function (v) { - if (n < 1) return []; - var r = new Array(n); - for (var i = 0; i < n; i++) r[i] = v; - return r; - }; -}; - -//------------------------------------------------------------------------------ -// Array size ------------------------------------------------------------------ -//------------------------------------------------------------------------------ - -exports.length = function (xs) { - return xs.length; -}; - -//------------------------------------------------------------------------------ -// Extending arrays ------------------------------------------------------------ -//------------------------------------------------------------------------------ - -exports.cons = function (e) { - return function (l) { - return [e].concat(l); - }; -}; - -exports.snoc = function (l) { - return function (e) { - var l1 = l.slice(); - l1.push(e); - return l1; - }; -}; - -//------------------------------------------------------------------------------ -// Non-indexed reads ----------------------------------------------------------- -//------------------------------------------------------------------------------ - -exports["uncons'"] = function (empty) { - return function (next) { - return function (xs) { - return xs.length === 0 ? empty({}) : next(xs[0])(xs.slice(1)); - }; - }; -}; - -//------------------------------------------------------------------------------ -// Indexed operations ---------------------------------------------------------- -//------------------------------------------------------------------------------ - -exports.indexImpl = function (just) { - return function (nothing) { - return function (xs) { - return function (i) { - return i < 0 || i >= xs.length ? nothing : just(xs[i]); - }; - }; - }; -}; - -exports.findIndexImpl = function (just) { - return function (nothing) { - return function (f) { - return function (xs) { - for (var i = 0, l = xs.length; i < l; i++) { - if (f(xs[i])) return just(i); - } - return nothing; - }; - }; - }; -}; - -exports.findLastIndexImpl = function (just) { - return function (nothing) { - return function (f) { - return function (xs) { - for (var i = xs.length - 1; i >= 0; i--) { - if (f(xs[i])) return just(i); - } - return nothing; - }; - }; - }; -}; - -exports._insertAt = function (just) { - return function (nothing) { - return function (i) { - return function (a) { - return function (l) { - if (i < 0 || i > l.length) return nothing; - var l1 = l.slice(); - l1.splice(i, 0, a); - return just(l1); - }; - }; - }; - }; -}; - -exports._deleteAt = function (just) { - return function (nothing) { - return function (i) { - return function (l) { - if (i < 0 || i >= l.length) return nothing; - var l1 = l.slice(); - l1.splice(i, 1); - return just(l1); - }; - }; - }; -}; - -exports._updateAt = function (just) { - return function (nothing) { - return function (i) { - return function (a) { - return function (l) { - if (i < 0 || i >= l.length) return nothing; - var l1 = l.slice(); - l1[i] = a; - return just(l1); - }; - }; - }; - }; -}; - -//------------------------------------------------------------------------------ -// Transformations ------------------------------------------------------------- -//------------------------------------------------------------------------------ - -exports.reverse = function (l) { - return l.slice().reverse(); -}; - -exports.concat = function (xss) { - var result = []; - for (var i = 0, l = xss.length; i < l; i++) { - var xs = xss[i]; - for (var j = 0, m = xs.length; j < m; j++) { - result.push(xs[j]); - } - } - return result; -}; - -exports.filter = function (f) { - return function (xs) { - return xs.filter(f); - }; -}; - -//------------------------------------------------------------------------------ -// Sorting --------------------------------------------------------------------- -//------------------------------------------------------------------------------ - -exports.sortImpl = function (f) { - return function (l) { - /* jshint maxparams: 2 */ - return l.slice().sort(function (x, y) { - return f(x)(y); - }); - }; -}; - -//------------------------------------------------------------------------------ -// Subarrays ------------------------------------------------------------------- -//------------------------------------------------------------------------------ - -exports.slice = function (s) { - return function (e) { - return function (l) { - return l.slice(s, e); - }; - }; -}; - -exports.drop = function (n) { - return function (l) { - return n < 1 ? l : l.slice(n); - }; -}; - -//------------------------------------------------------------------------------ -// Zipping --------------------------------------------------------------------- -//------------------------------------------------------------------------------ - -exports.zipWith = function (f) { - return function (xs) { - return function (ys) { - var l = xs.length < ys.length ? xs.length : ys.length; - var result = new Array(l); - for (var i = 0; i < l; i++) { - result[i] = f(xs[i])(ys[i]); - } - return result; - }; - }; -}; -; - return exports; - })(); - var Prelude = PS.Prelude; - var Control_Lazy = PS.Control_Lazy; - var Control_Alt = PS.Control_Alt; - var Data_Maybe = PS.Data_Maybe; - var Data_Maybe_Unsafe = PS.Data_Maybe_Unsafe; - var Data_Foldable = PS.Data_Foldable; - var Data_Traversable = PS.Data_Traversable; - var Control_Alternative = PS.Control_Alternative; - var Control_MonadPlus = PS.Control_MonadPlus; - var Control_Plus = PS.Control_Plus; - var Data_Functor_Invariant = PS.Data_Functor_Invariant; - var Data_Monoid = PS.Data_Monoid; - var Data_Tuple = PS.Data_Tuple; - var $colon = $foreign.cons; - var $dot$dot = $foreign.range; - var zipWithA = function (__dict_Applicative_587) { - return function (f) { - return function (xs) { - return function (ys) { - return Data_Traversable.sequence(Data_Traversable.traversableArray)(__dict_Applicative_587)($foreign.zipWith(f)(xs)(ys)); - }; - }; - }; - }; - var zip = $foreign.zipWith(Data_Tuple.Tuple.create); - var updateAt = $foreign._updateAt(Data_Maybe.Just.create)(Data_Maybe.Nothing.value); - var unzip = $foreign["uncons'"](function (_489) { - return new Data_Tuple.Tuple([ ], [ ]); - })(function (_490) { - return function (ts) { - var _1473 = unzip(ts); - return new Data_Tuple.Tuple($colon(_490.value0)(_1473.value0), $colon(_490.value1)(_1473.value1)); - }; - }); - var uncons = $foreign["uncons'"](Prelude["const"](Data_Maybe.Nothing.value))(function (x) { - return function (xs) { - return new Data_Maybe.Just({ - head: x, - tail: xs - }); - }; - }); - var take = $foreign.slice(0); - var tail = $foreign["uncons'"](Prelude["const"](Data_Maybe.Nothing.value))(function (_487) { - return function (xs) { - return new Data_Maybe.Just(xs); - }; - }); - var span = function (p) { - var go = function (__copy_acc) { - return function (__copy_xs) { - var acc = __copy_acc; - var xs = __copy_xs; - tco: while (true) { - var _1479 = uncons(xs); - if (_1479 instanceof Data_Maybe.Just && p(_1479.value0.head)) { - var __tco_acc = $colon(_1479.value0.head)(acc); - acc = __tco_acc; - xs = _1479.value0.tail; - continue tco; - }; - return { - init: $foreign.reverse(acc), - rest: xs - }; - }; - }; - }; - return go([ ]); - }; - var takeWhile = function (p) { - return function (xs) { - return (span(p)(xs)).init; - }; - }; - var sortBy = function (comp) { - return function (xs) { - var comp$prime = function (x) { - return function (y) { - var _1483 = comp(x)(y); - if (_1483 instanceof Prelude.GT) { - return 1; - }; - if (_1483 instanceof Prelude.EQ) { - return 0; - }; - if (_1483 instanceof Prelude.LT) { - return Prelude.negate(Prelude.ringInt)(1); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-arrays/src/Data/Array.purs line 379, column 3 - line 384, column 1: " + [ _1483.constructor.name ]); - }; - }; - return $foreign.sortImpl(comp$prime)(xs); - }; - }; - var sort = function (__dict_Ord_588) { - return function (xs) { - return sortBy(Prelude.compare(__dict_Ord_588))(xs); - }; - }; - var singleton = function (a) { - return [ a ]; - }; - var replicateM = function (__dict_Monad_589) { - return function (n) { - return function (m) { - if (Prelude["<"](Prelude.ordInt)(n)(1)) { - return Prelude["return"](__dict_Monad_589["__superclass_Prelude.Applicative_0"]())([ ]); - }; - if (Prelude.otherwise) { - return Prelude[">>="](__dict_Monad_589["__superclass_Prelude.Bind_1"]())(m)(function (_55) { - return Prelude[">>="](__dict_Monad_589["__superclass_Prelude.Bind_1"]())(replicateM(__dict_Monad_589)(Prelude["-"](Prelude.ringInt)(n)(1))(m))(function (_54) { - return Prelude["return"](__dict_Monad_589["__superclass_Prelude.Applicative_0"]())($colon(_55)(_54)); - }); - }); - }; - throw new Error("Failed pattern match: " + [ n.constructor.name, m.constructor.name ]); - }; - }; - }; - var $$null = function (xs) { - return Prelude["=="](Prelude.eqInt)($foreign.length(xs))(0); - }; - var nubBy = function (eq) { - return function (_492) { - if (_492.length === 0) { - return [ ]; - }; - var _1490 = uncons(_492); - if (_1490 instanceof Data_Maybe.Just) { - return $colon(_1490.value0.head)(nubBy(eq)($foreign.filter(function (y) { - return Prelude.not(Prelude.booleanAlgebraBoolean)(eq(_1490.value0.head)(y)); - })(_1490.value0.tail))); - }; - throw new Error("Failed pattern match: " + [ _1490.constructor.name ]); - }; - }; - var nub = function (__dict_Eq_590) { - return nubBy(Prelude.eq(__dict_Eq_590)); - }; - var some = function (__dict_Alternative_591) { - return function (__dict_Lazy_592) { - return function (v) { - return Prelude["<*>"]((__dict_Alternative_591["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]())(Prelude["<$>"](((__dict_Alternative_591["__superclass_Control.Plus.Plus_1"]())["__superclass_Control.Alt.Alt_0"]())["__superclass_Prelude.Functor_0"]())($colon)(v))(Control_Lazy.defer(__dict_Lazy_592)(function (_485) { - return many(__dict_Alternative_591)(__dict_Lazy_592)(v); - })); - }; - }; - }; - var many = function (__dict_Alternative_593) { - return function (__dict_Lazy_594) { - return function (v) { - return Control_Alt["<|>"]((__dict_Alternative_593["__superclass_Control.Plus.Plus_1"]())["__superclass_Control.Alt.Alt_0"]())(some(__dict_Alternative_593)(__dict_Lazy_594)(v))(Prelude.pure(__dict_Alternative_593["__superclass_Prelude.Applicative_0"]())([ ])); - }; - }; - }; - var insertAt = $foreign._insertAt(Data_Maybe.Just.create)(Data_Maybe.Nothing.value); - var init = function (xs) { - if ($$null(xs)) { - return Data_Maybe.Nothing.value; - }; - if (Prelude.otherwise) { - return new Data_Maybe.Just($foreign.slice(Prelude.zero(Prelude.semiringInt))(Prelude["-"](Prelude.ringInt)($foreign.length(xs))(Prelude.one(Prelude.semiringInt)))(xs)); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-arrays/src/Data/Array.purs line 209, column 1 - line 210, column 1: " + [ xs.constructor.name ]); - }; - var index = $foreign.indexImpl(Data_Maybe.Just.create)(Data_Maybe.Nothing.value); - var $bang$bang = index; - var last = function (xs) { - return $bang$bang(xs)(Prelude["-"](Prelude.ringInt)($foreign.length(xs))(1)); - }; - var modifyAt = function (i) { - return function (f) { - return function (xs) { - var go = function (x) { - return updateAt(i)(f(x))(xs); - }; - return Data_Maybe.maybe(Data_Maybe.Nothing.value)(go)($bang$bang(xs)(i)); - }; - }; - }; - var head = $foreign["uncons'"](Prelude["const"](Data_Maybe.Nothing.value))(function (x) { - return function (_486) { - return new Data_Maybe.Just(x); - }; - }); - var groupBy = function (op) { - var go = function (__copy_acc) { - return function (__copy__494) { - var acc = __copy_acc; - var _494 = __copy__494; - tco: while (true) { - if (_494.length === 0) { - return $foreign.reverse(acc); - }; - var _1497 = uncons(_494); - if (_1497 instanceof Data_Maybe.Just) { - var sp = span(op(_1497.value0.head))(_1497.value0.tail); - var __tco_acc = $colon($colon(_1497.value0.head)(sp.init))(acc); - acc = __tco_acc; - _494 = sp.rest; - continue tco; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-arrays/src/Data/Array.purs line 446, column 1 - line 447, column 1: " + [ _1497.constructor.name ]); - }; - }; - }; - return go([ ]); - }; - var group = function (__dict_Eq_595) { - return function (xs) { - return groupBy(Prelude.eq(__dict_Eq_595))(xs); - }; - }; - var group$prime = function (__dict_Ord_596) { - return Prelude["<<<"](Prelude.semigroupoidFn)(group(__dict_Ord_596["__superclass_Prelude.Eq_0"]()))(sort(__dict_Ord_596)); - }; - var foldM = function (__dict_Monad_597) { - return function (f) { - return function (a) { - return $foreign["uncons'"](function (_491) { - return Prelude["return"](__dict_Monad_597["__superclass_Prelude.Applicative_0"]())(a); - })(function (b) { - return function (bs) { - return Prelude[">>="](__dict_Monad_597["__superclass_Prelude.Bind_1"]())(f(a)(b))(function (a$prime) { - return foldM(__dict_Monad_597)(f)(a$prime)(bs); - }); - }; - }); - }; - }; - }; - var findLastIndex = $foreign.findLastIndexImpl(Data_Maybe.Just.create)(Data_Maybe.Nothing.value); - var insertBy = function (cmp) { - return function (x) { - return function (ys) { - var index_1 = Data_Maybe.maybe(0)(function (_0) { - return Prelude["+"](Prelude.semiringInt)(_0)(1); - })(findLastIndex(function (y) { - return Prelude["=="](Prelude.eqOrdering)(cmp(x)(y))(Prelude.GT.value); - })(ys)); - return Data_Maybe_Unsafe.fromJust(insertAt(index_1)(x)(ys)); - }; - }; - }; - var insert = function (__dict_Ord_598) { - return insertBy(Prelude.compare(__dict_Ord_598)); - }; - var findIndex = $foreign.findIndexImpl(Data_Maybe.Just.create)(Data_Maybe.Nothing.value); - var intersectBy = function (eq) { - return function (xs) { - return function (ys) { - return $foreign.filter(function (x) { - return Data_Maybe.isJust(findIndex(eq(x))(ys)); - })(xs); - }; - }; - }; - var intersect = function (__dict_Eq_599) { - return intersectBy(Prelude.eq(__dict_Eq_599)); - }; - var filterM = function (__dict_Monad_600) { - return function (p) { - return $foreign["uncons'"](function (_488) { - return Prelude.pure(__dict_Monad_600["__superclass_Prelude.Applicative_0"]())([ ]); - })(function (x) { - return function (xs) { - return Prelude[">>="](__dict_Monad_600["__superclass_Prelude.Bind_1"]())(p(x))(function (_57) { - return Prelude[">>="](__dict_Monad_600["__superclass_Prelude.Bind_1"]())(filterM(__dict_Monad_600)(p)(xs))(function (_56) { - return Prelude["return"](__dict_Monad_600["__superclass_Prelude.Applicative_0"]())((function () { - if (_57) { - return $colon(x)(_56); - }; - if (!_57) { - return _56; - }; - throw new Error("Failed pattern match: " + [ _57.constructor.name ]); - })()); - }); - }); - }; - }); - }; - }; - var elemLastIndex = function (__dict_Eq_601) { - return function (x) { - return findLastIndex(function (_2) { - return Prelude["=="](__dict_Eq_601)(_2)(x); - }); - }; - }; - var elemIndex = function (__dict_Eq_602) { - return function (x) { - return findIndex(function (_1) { - return Prelude["=="](__dict_Eq_602)(_1)(x); - }); - }; - }; - var dropWhile = function (p) { - return function (xs) { - return (span(p)(xs)).rest; - }; - }; - var deleteAt = $foreign._deleteAt(Data_Maybe.Just.create)(Data_Maybe.Nothing.value); - var deleteBy = function (eq) { - return function (x) { - return function (_493) { - if (_493.length === 0) { - return [ ]; - }; - return Data_Maybe.maybe(_493)(function (i) { - return Data_Maybe_Unsafe.fromJust(deleteAt(i)(_493)); - })(findIndex(eq(x))(_493)); - }; - }; - }; - var unionBy = function (eq) { - return function (xs) { - return function (ys) { - return Prelude["++"](Prelude.semigroupArray)(xs)(Data_Foldable.foldl(Data_Foldable.foldableArray)(Prelude.flip(deleteBy(eq)))(nubBy(eq)(ys))(xs)); - }; - }; - }; - var union = function (__dict_Eq_603) { - return unionBy(Prelude["=="](__dict_Eq_603)); - }; - var $$delete = function (__dict_Eq_604) { - return deleteBy(Prelude.eq(__dict_Eq_604)); - }; - var $bslash$bslash = function (__dict_Eq_605) { - return function (xs) { - return function (ys) { - if ($$null(xs)) { - return [ ]; - }; - if (Prelude.otherwise) { - return $foreign["uncons'"](Prelude["const"](xs))(function (y) { - return function (ys_2) { - return $bslash$bslash(__dict_Eq_605)($$delete(__dict_Eq_605)(y)(xs))(ys_2); - }; - })(ys); - }; - throw new Error("Failed pattern match: " + [ xs.constructor.name, ys.constructor.name ]); - }; - }; - }; - var concatMap = Prelude.flip(Prelude.bind(Prelude.bindArray)); - var mapMaybe = function (f) { - return concatMap(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Maybe.maybe([ ])(singleton))(f)); - }; - var catMaybes = mapMaybe(Prelude.id(Prelude.categoryFn)); - var alterAt = function (i) { - return function (f) { - return function (xs) { - var go = function (x) { - var _1509 = f(x); - if (_1509 instanceof Data_Maybe.Nothing) { - return deleteAt(i)(xs); - }; - if (_1509 instanceof Data_Maybe.Just) { - return updateAt(i)(_1509.value0)(xs); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-arrays/src/Data/Array.purs line 319, column 3 - line 328, column 1: " + [ _1509.constructor.name ]); - }; - return Data_Maybe.maybe(Data_Maybe.Nothing.value)(go)($bang$bang(xs)(i)); - }; - }; - }; - return { - foldM: foldM, - unzip: unzip, - zip: zip, - zipWithA: zipWithA, - intersectBy: intersectBy, - intersect: intersect, - "\\\\": $bslash$bslash, - deleteBy: deleteBy, - "delete": $$delete, - unionBy: unionBy, - union: union, - nubBy: nubBy, - nub: nub, - groupBy: groupBy, - "group'": group$prime, - group: group, - span: span, - dropWhile: dropWhile, - takeWhile: takeWhile, - take: take, - sortBy: sortBy, - sort: sort, - catMaybes: catMaybes, - mapMaybe: mapMaybe, - filterM: filterM, - concatMap: concatMap, - alterAt: alterAt, - modifyAt: modifyAt, - updateAt: updateAt, - deleteAt: deleteAt, - insertAt: insertAt, - findLastIndex: findLastIndex, - findIndex: findIndex, - elemLastIndex: elemLastIndex, - elemIndex: elemIndex, - index: index, - "!!": $bang$bang, - uncons: uncons, - init: init, - tail: tail, - last: last, - head: head, - insertBy: insertBy, - insert: insert, - ":": $colon, - "null": $$null, - many: many, - some: some, - replicateM: replicateM, - "..": $dot$dot, - singleton: singleton, - zipWith: $foreign.zipWith, - drop: $foreign.drop, - slice: $foreign.slice, - filter: $foreign.filter, - concat: $foreign.concat, - reverse: $foreign.reverse, - snoc: $foreign.snoc, - cons: $foreign.cons, - length: $foreign.length, - replicate: $foreign.replicate, - range: $foreign.range - }; -})(); -var PS = PS || {}; -PS.Data_Array_Unsafe = (function () { - "use strict"; - var $foreign = (function () { - var exports = {}; - /* global exports */ -"use strict"; - -// module Data.Array.Unsafe - -exports.unsafeIndex = function (xs) { - return function (n) { - return xs[n]; - }; -}; -; - return exports; - })(); - var Data_Array = PS.Data_Array; - var Prelude = PS.Prelude; - var tail = function (xs) { - return Data_Array.slice(1)(Data_Array.length(xs))(xs); - }; - var last = function (xs) { - return $foreign.unsafeIndex(xs)(Prelude["-"](Prelude.ringInt)(Data_Array.length(xs))(1)); - }; - var init = function (xs) { - return Data_Array.slice(0)(Prelude["-"](Prelude.ringInt)(Data_Array.length(xs))(1))(xs); - }; - var head = function (xs) { - return $foreign.unsafeIndex(xs)(0); - }; - return { - init: init, - last: last, - tail: tail, - head: head, - unsafeIndex: $foreign.unsafeIndex - }; -})(); -var PS = PS || {}; -PS.Data_Tuple_Nested = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Tuple = PS.Data_Tuple; - var $div$bslash = function (a) { - return function (b) { - return new Data_Tuple.Tuple(a, b); - }; - }; - var uncurry9 = function (f$prime) { - return function (_502) { - return f$prime(_502.value0.value0.value0.value0.value0.value0.value0.value0)(_502.value0.value0.value0.value0.value0.value0.value0.value1)(_502.value0.value0.value0.value0.value0.value0.value1)(_502.value0.value0.value0.value0.value0.value1)(_502.value0.value0.value0.value0.value1)(_502.value0.value0.value0.value1)(_502.value0.value0.value1)(_502.value0.value1)(_502.value1); - }; - }; - var uncurry8 = function (f$prime) { - return function (_501) { - return f$prime(_501.value0.value0.value0.value0.value0.value0.value0)(_501.value0.value0.value0.value0.value0.value0.value1)(_501.value0.value0.value0.value0.value0.value1)(_501.value0.value0.value0.value0.value1)(_501.value0.value0.value0.value1)(_501.value0.value0.value1)(_501.value0.value1)(_501.value1); - }; - }; - var uncurry7 = function (f$prime) { - return function (_500) { - return f$prime(_500.value0.value0.value0.value0.value0.value0)(_500.value0.value0.value0.value0.value0.value1)(_500.value0.value0.value0.value0.value1)(_500.value0.value0.value0.value1)(_500.value0.value0.value1)(_500.value0.value1)(_500.value1); - }; - }; - var uncurry6 = function (f$prime) { - return function (_499) { - return f$prime(_499.value0.value0.value0.value0.value0)(_499.value0.value0.value0.value0.value1)(_499.value0.value0.value0.value1)(_499.value0.value0.value1)(_499.value0.value1)(_499.value1); - }; - }; - var uncurry5 = function (f) { - return function (_498) { - return f(_498.value0.value0.value0.value0)(_498.value0.value0.value0.value1)(_498.value0.value0.value1)(_498.value0.value1)(_498.value1); - }; - }; - var uncurry4 = function (f) { - return function (_497) { - return f(_497.value0.value0.value0)(_497.value0.value0.value1)(_497.value0.value1)(_497.value1); - }; - }; - var uncurry3 = function (f) { - return function (_496) { - return f(_496.value0.value0)(_496.value0.value1)(_496.value1); - }; - }; - var uncurry2 = function (f) { - return function (_495) { - return f(_495.value0)(_495.value1); - }; - }; - var uncurry10 = function (f$prime) { - return function (_503) { - return f$prime(_503.value0.value0.value0.value0.value0.value0.value0.value0.value0)(_503.value0.value0.value0.value0.value0.value0.value0.value0.value1)(_503.value0.value0.value0.value0.value0.value0.value0.value1)(_503.value0.value0.value0.value0.value0.value0.value1)(_503.value0.value0.value0.value0.value0.value1)(_503.value0.value0.value0.value0.value1)(_503.value0.value0.value0.value1)(_503.value0.value0.value1)(_503.value0.value1)(_503.value1); - }; - }; - var tuple9 = function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (g) { - return function (h) { - return function (i) { - return new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c), d), e), f), g), h), i); - }; - }; - }; - }; - }; - }; - }; - }; - }; - var tuple8 = function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (g) { - return function (h) { - return new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c), d), e), f), g), h); - }; - }; - }; - }; - }; - }; - }; - }; - var tuple7 = function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (g) { - return new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c), d), e), f), g); - }; - }; - }; - }; - }; - }; - }; - var tuple6 = function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c), d), e), f); - }; - }; - }; - }; - }; - }; - var tuple5 = function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c), d), e); - }; - }; - }; - }; - }; - var tuple4 = function (a) { - return function (b) { - return function (c) { - return function (d) { - return new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c), d); - }; - }; - }; - }; - var tuple3 = function (a) { - return function (b) { - return function (c) { - return new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c); - }; - }; - }; - var tuple2 = Data_Tuple.Tuple.create; - var tuple10 = function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (g) { - return function (h) { - return function (i) { - return function (j) { - return new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c), d), e), f), g), h), i), j); - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - var curry9 = function (f$prime) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (g) { - return function (h) { - return function (i) { - return f$prime(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c), d), e), f), g), h), i)); - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - var curry8 = function (f$prime) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (g) { - return function (h) { - return f$prime(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c), d), e), f), g), h)); - }; - }; - }; - }; - }; - }; - }; - }; - }; - var curry7 = function (f$prime) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (g) { - return f$prime(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c), d), e), f), g)); - }; - }; - }; - }; - }; - }; - }; - }; - var curry6 = function (f$prime) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return f$prime(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c), d), e), f)); - }; - }; - }; - }; - }; - }; - }; - var curry5 = function (f) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return f(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c), d), e)); - }; - }; - }; - }; - }; - }; - var curry4 = function (f) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return f(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c), d)); - }; - }; - }; - }; - }; - var curry3 = function (f) { - return function (a) { - return function (b) { - return function (c) { - return f(new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c)); - }; - }; - }; - }; - var curry2 = function (f) { - return function (a) { - return function (b) { - return f(new Data_Tuple.Tuple(a, b)); - }; - }; - }; - var curry10 = function (f$prime) { - return function (a) { - return function (b) { - return function (c) { - return function (d) { - return function (e) { - return function (f) { - return function (g) { - return function (h) { - return function (i) { - return function (j) { - return f$prime(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(new Data_Tuple.Tuple(a, b), c), d), e), f), g), h), i), j)); - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - }; - return { - "/\\": $div$bslash, - curry10: curry10, - uncurry10: uncurry10, - curry9: curry9, - uncurry9: uncurry9, - curry8: curry8, - uncurry8: uncurry8, - curry7: curry7, - uncurry7: uncurry7, - curry6: curry6, - uncurry6: uncurry6, - curry5: curry5, - uncurry5: uncurry5, - curry4: curry4, - uncurry4: uncurry4, - curry3: curry3, - uncurry3: uncurry3, - curry2: curry2, - uncurry2: uncurry2, - tuple10: tuple10, - tuple9: tuple9, - tuple8: tuple8, - tuple7: tuple7, - tuple6: tuple6, - tuple5: tuple5, - tuple4: tuple4, - tuple3: tuple3, - tuple2: tuple2 - }; -})(); -var PS = PS || {}; -PS.Data_Unfoldable = (function () { - "use strict"; - var Control_Monad_Eff = PS.Control_Monad_Eff; - var Data_Array_ST = PS.Data_Array_ST; - var Prelude = PS.Prelude; - var Control_Monad_ST = PS.Control_Monad_ST; - var Data_Maybe = PS.Data_Maybe; - var Data_Tuple = PS.Data_Tuple; - var Unfoldable = function (unfoldr) { - this.unfoldr = unfoldr; - }; - var unfoldr = function (dict) { - return dict.unfoldr; - }; - var unfoldableArray = new Unfoldable(function (f) { - return function (b) { - return Control_Monad_Eff.runPure(Data_Array_ST.runSTArray(function __do() { - var _60 = Data_Array_ST.emptySTArray(); - var _59 = Control_Monad_ST.newSTRef(b)(); - (function () { - while (!(function __do() { - var _58 = Control_Monad_ST.readSTRef(_59)(); - return (function () { - var _1622 = f(_58); - if (_1622 instanceof Data_Maybe.Nothing) { - return Prelude["return"](Control_Monad_Eff.applicativeEff)(true); - }; - if (_1622 instanceof Data_Maybe.Just) { - return function __do() { - Data_Array_ST.pushSTArray(_60)(_1622.value0.value0)(); - Control_Monad_ST.writeSTRef(_59)(_1622.value0.value1)(); - return Prelude["return"](Control_Monad_Eff.applicativeEff)(false)(); - }; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-unfoldable/src/Data/Unfoldable.purs line 28, column 1 - line 40, column 16: " + [ _1622.constructor.name ]); - })()(); - })()) { - - }; - return {}; - })(); - return Prelude["return"](Control_Monad_Eff.applicativeEff)(_60)(); - })); - }; - }); - return { - Unfoldable: Unfoldable, - unfoldr: unfoldr, - unfoldableArray: unfoldableArray - }; -})(); -var PS = PS || {}; -PS.Control_Monad_List_Trans = (function () { - "use strict"; - var Prelude = PS.Prelude; - var Data_Lazy = PS.Data_Lazy; - var Data_Maybe = PS.Data_Maybe; - var Data_Tuple = PS.Data_Tuple; - var Control_Monad_Trans = PS.Control_Monad_Trans; - var Control_Monad_Eff_Class = PS.Control_Monad_Eff_Class; - var Control_Alt = PS.Control_Alt; - var Control_Alternative = PS.Control_Alternative; - var Control_MonadPlus = PS.Control_MonadPlus; - var Control_Plus = PS.Control_Plus; - var Data_Monoid = PS.Data_Monoid; - var Data_Unfoldable = PS.Data_Unfoldable; - var Yield = (function () { - function Yield(value0, value1) { - this.value0 = value0; - this.value1 = value1; - }; - Yield.create = function (value0) { - return function (value1) { - return new Yield(value0, value1); - }; - }; - return Yield; - })(); - var Skip = (function () { - function Skip(value0) { - this.value0 = value0; - }; - Skip.create = function (value0) { - return new Skip(value0); - }; - return Skip; - })(); - var Done = (function () { - function Done() { - - }; - Done.value = new Done(); - return Done; - })(); - var ListT = (function () { - function ListT(value0) { - this.value0 = value0; - }; - ListT.create = function (value0) { - return new ListT(value0); - }; - return ListT; - })(); - var wrapLazy = function (__dict_Applicative_606) { - return function (v) { - return ListT.create(Prelude.pure(__dict_Applicative_606)(new Skip(v))); - }; - }; - var wrapEffect = function (__dict_Functor_607) { - return function (v) { - return ListT.create(Prelude["<$>"](__dict_Functor_607)(Prelude["<<<"](Prelude.semigroupoidFn)(Skip.create)(Prelude["<<<"](Prelude.semigroupoidFn)(Data_Lazy.defer)(Prelude["const"])))(v)); - }; - }; - var unfold = function (__dict_Monad_608) { - return function (f) { - return function (z) { - var g = function (_512) { - if (_512 instanceof Data_Maybe.Just) { - return new Yield(_512.value0.value1, Data_Lazy.defer(function (_505) { - return unfold(__dict_Monad_608)(f)(_512.value0.value0); - })); - }; - if (_512 instanceof Data_Maybe.Nothing) { - return Done.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 115, column 3 - line 116, column 3: " + [ _512.constructor.name ]); - }; - return ListT.create(Prelude["<$>"](((__dict_Monad_608["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(g)(f(z))); - }; - }; - }; - var runListT = function (_508) { - return _508.value0; - }; - var scanl = function (__dict_Monad_609) { - return function (f) { - return function (b) { - return function (l) { - var g = function (_522) { - var h = function (_523) { - if (_523 instanceof Yield) { - var b$prime = f(_522.value0)(_523.value0); - return Data_Maybe.Just.create(new Data_Tuple.Tuple(new Data_Tuple.Tuple(b$prime, Data_Lazy.force(_523.value1)), b$prime)); - }; - if (_523 instanceof Skip) { - return Data_Maybe.Just.create(new Data_Tuple.Tuple(new Data_Tuple.Tuple(_522.value0, Data_Lazy.force(_523.value0)), _522.value0)); - }; - if (_523 instanceof Done) { - return Data_Maybe.Nothing.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 214, column 5 - line 216, column 5: " + [ _523.constructor.name ]); - }; - return Prelude["<$>"](((__dict_Monad_609["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(h)(runListT(_522.value1)); - }; - return unfold(__dict_Monad_609)(g)(new Data_Tuple.Tuple(b, l)); - }; - }; - }; - }; - var stepMap = function (__dict_Functor_610) { - return function (f) { - return function (l) { - return ListT.create(Prelude["<$>"](__dict_Functor_610)(f)(runListT(l))); - }; - }; - }; - var takeWhile = function (__dict_Applicative_611) { - return function (f) { - var g = function (_514) { - if (_514 instanceof Yield) { - var _1641 = f(_514.value0); - if (_1641) { - return new Yield(_514.value0, Prelude["<$>"](Data_Lazy.functorLazy)(takeWhile(__dict_Applicative_611)(f))(_514.value1)); - }; - if (!_1641) { - return Done.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 139, column 3 - line 140, column 3: " + [ _1641.constructor.name ]); - }; - if (_514 instanceof Skip) { - return Skip.create(Prelude["<$>"](Data_Lazy.functorLazy)(takeWhile(__dict_Applicative_611)(f))(_514.value0)); - }; - if (_514 instanceof Done) { - return Done.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 139, column 3 - line 140, column 3: " + [ _514.constructor.name ]); - }; - return stepMap((__dict_Applicative_611["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(g); - }; - }; - var uncons = function (__dict_Monad_612) { - return function (l) { - var g = function (_519) { - if (_519 instanceof Yield) { - return Prelude.pure(__dict_Monad_612["__superclass_Prelude.Applicative_0"]())(Data_Maybe.Just.create(new Data_Tuple.Tuple(_519.value0, Data_Lazy.force(_519.value1)))); - }; - if (_519 instanceof Skip) { - return uncons(__dict_Monad_612)(Data_Lazy.force(_519.value0)); - }; - if (_519 instanceof Done) { - return Prelude.pure(__dict_Monad_612["__superclass_Prelude.Applicative_0"]())(Data_Maybe.Nothing.value); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 180, column 3 - line 181, column 3: " + [ _519.constructor.name ]); - }; - return Prelude[">>="](__dict_Monad_612["__superclass_Prelude.Bind_1"]())(runListT(l))(g); - }; - }; - var tail = function (__dict_Monad_613) { - return function (l) { - return Prelude["<$>"](((__dict_Monad_613["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Prelude["<$>"](Data_Maybe.functorMaybe)(Data_Tuple.snd))(uncons(__dict_Monad_613)(l)); - }; - }; - var prepend$prime = function (__dict_Applicative_614) { - return function (h) { - return function (t) { - return ListT.create(Prelude.pure(__dict_Applicative_614)(new Yield(h, t))); - }; - }; - }; - var prepend = function (__dict_Applicative_615) { - return function (h) { - return function (t) { - return prepend$prime(__dict_Applicative_615)(h)(Data_Lazy.defer(Prelude["const"](t))); - }; - }; - }; - var nil = function (__dict_Applicative_616) { - return ListT.create(Prelude.pure(__dict_Applicative_616)(Done.value)); - }; - var singleton = function (__dict_Applicative_618) { - return function (a) { - return prepend(__dict_Applicative_618)(a)(nil(__dict_Applicative_618)); - }; - }; - var take = function (__dict_Applicative_619) { - return function (_509) { - return function (fa) { - if (_509 === 0) { - return nil(__dict_Applicative_619); - }; - var f = function (_513) { - if (_513 instanceof Yield) { - return new Yield(_513.value0, Prelude["<$>"](Data_Lazy.functorLazy)(take(__dict_Applicative_619)(Prelude["-"](Prelude.ringInt)(_509)(1)))(_513.value1)); - }; - if (_513 instanceof Skip) { - return new Skip(Prelude["<$>"](Data_Lazy.functorLazy)(take(__dict_Applicative_619)(_509))(_513.value0)); - }; - if (_513 instanceof Done) { - return Done.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 132, column 3 - line 133, column 3: " + [ _513.constructor.name ]); - }; - return stepMap((__dict_Applicative_619["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(f)(fa); - }; - }; - }; - var zipWith$prime = function (__dict_Monad_620) { - return function (f) { - var g = function (_524) { - return function (_525) { - if (_525 instanceof Data_Maybe.Nothing) { - return Prelude.pure(__dict_Monad_620["__superclass_Prelude.Applicative_0"]())(nil(__dict_Monad_620["__superclass_Prelude.Applicative_0"]())); - }; - if (_524 instanceof Data_Maybe.Nothing) { - return Prelude.pure(__dict_Monad_620["__superclass_Prelude.Applicative_0"]())(nil(__dict_Monad_620["__superclass_Prelude.Applicative_0"]())); - }; - if (_524 instanceof Data_Maybe.Just && _525 instanceof Data_Maybe.Just) { - return Prelude["<$>"](((__dict_Monad_620["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Prelude.flip(prepend$prime(__dict_Monad_620["__superclass_Prelude.Applicative_0"]()))(Data_Lazy.defer(function (_506) { - return zipWith$prime(__dict_Monad_620)(f)(_524.value0.value1)(_525.value0.value1); - })))(f(_524.value0.value0)(_525.value0.value0)); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 222, column 3 - line 227, column 3: " + [ _524.constructor.name, _525.constructor.name ]); - }; - }; - var loop = function (fa) { - return function (fb) { - return wrapEffect(((__dict_Monad_620["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Prelude[">>="](__dict_Monad_620["__superclass_Prelude.Bind_1"]())(uncons(__dict_Monad_620)(fa))(function (_62) { - return Prelude[">>="](__dict_Monad_620["__superclass_Prelude.Bind_1"]())(uncons(__dict_Monad_620)(fb))(function (_61) { - return g(_62)(_61); - }); - })); - }; - }; - return loop; - }; - }; - var zipWith = function (__dict_Monad_621) { - return function (f) { - var g = function (a) { - return function (b) { - return Prelude.pure(__dict_Monad_621["__superclass_Prelude.Applicative_0"]())(f(a)(b)); - }; - }; - return zipWith$prime(__dict_Monad_621)(g); - }; - }; - var mapMaybe = function (__dict_Functor_627) { - return function (f) { - var g = function (_518) { - if (_518 instanceof Yield) { - return Data_Maybe.fromMaybe(Skip.create)(Prelude["<$>"](Data_Maybe.functorMaybe)(Yield.create)(f(_518.value0)))(Prelude["<$>"](Data_Lazy.functorLazy)(mapMaybe(__dict_Functor_627)(f))(_518.value1)); - }; - if (_518 instanceof Skip) { - return Skip.create(Prelude["<$>"](Data_Lazy.functorLazy)(mapMaybe(__dict_Functor_627)(f))(_518.value0)); - }; - if (_518 instanceof Done) { - return Done.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 168, column 3 - line 169, column 3: " + [ _518.constructor.name ]); - }; - return stepMap(__dict_Functor_627)(g); - }; - }; - var iterate = function (__dict_Monad_628) { - return function (f) { - return function (a) { - var g = function (a_1) { - return Prelude.pure(__dict_Monad_628["__superclass_Prelude.Applicative_0"]())(new Data_Maybe.Just(new Data_Tuple.Tuple(f(a_1), a_1))); - }; - return unfold(__dict_Monad_628)(g)(a); - }; - }; - }; - var repeat = function (__dict_Monad_629) { - return iterate(__dict_Monad_629)(Prelude.id(Prelude.categoryFn)); - }; - var head = function (__dict_Monad_630) { - return function (l) { - return Prelude["<$>"](((__dict_Monad_630["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(Prelude["<$>"](Data_Maybe.functorMaybe)(Data_Tuple.fst))(uncons(__dict_Monad_630)(l)); - }; - }; - var functorListT = function (__dict_Functor_631) { - return new Prelude.Functor(function (f) { - var g = function (_526) { - if (_526 instanceof Yield) { - return new Yield(f(_526.value0), Prelude["<$>"](Data_Lazy.functorLazy)(Prelude["<$>"](functorListT(__dict_Functor_631))(f))(_526.value1)); - }; - if (_526 instanceof Skip) { - return new Skip(Prelude["<$>"](Data_Lazy.functorLazy)(Prelude["<$>"](functorListT(__dict_Functor_631))(f))(_526.value0)); - }; - if (_526 instanceof Done) { - return Done.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 245, column 5 - line 246, column 5: " + [ _526.constructor.name ]); - }; - return stepMap(__dict_Functor_631)(g); - }); - }; - var fromEffect = function (__dict_Applicative_632) { - return function (fa) { - return ListT.create(Prelude["<$>"]((__dict_Applicative_632["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(function (_5) { - return new Yield(_5, Data_Lazy.defer(function (_504) { - return nil(__dict_Applicative_632); - })); - })(fa)); - }; - }; - var monadTransListT = new Control_Monad_Trans.MonadTrans(function (__dict_Monad_633) { - return fromEffect(__dict_Monad_633["__superclass_Prelude.Applicative_0"]()); - }); - var foldl$prime = function (__dict_Monad_634) { - return function (f) { - var loop = function (b) { - return function (l) { - var g = function (_520) { - if (_520 instanceof Data_Maybe.Nothing) { - return Prelude.pure(__dict_Monad_634["__superclass_Prelude.Applicative_0"]())(b); - }; - if (_520 instanceof Data_Maybe.Just) { - return Prelude[">>="](__dict_Monad_634["__superclass_Prelude.Bind_1"]())(f(b)(_520.value0.value0))(Prelude.flip(loop)(_520.value0.value1)); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 197, column 5 - line 198, column 5: " + [ _520.constructor.name ]); - }; - return Prelude[">>="](__dict_Monad_634["__superclass_Prelude.Bind_1"]())(uncons(__dict_Monad_634)(l))(g); - }; - }; - return loop; - }; - }; - var foldl = function (__dict_Monad_635) { - return function (f) { - var loop = function (b) { - return function (l) { - var g = function (_521) { - if (_521 instanceof Data_Maybe.Nothing) { - return Prelude.pure(__dict_Monad_635["__superclass_Prelude.Applicative_0"]())(b); - }; - if (_521 instanceof Data_Maybe.Just) { - return loop(f(b)(_521.value0.value0))(_521.value0.value1); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 205, column 5 - line 206, column 5: " + [ _521.constructor.name ]); - }; - return Prelude[">>="](__dict_Monad_635["__superclass_Prelude.Bind_1"]())(uncons(__dict_Monad_635)(l))(g); - }; - }; - return loop; - }; - }; - var filter = function (__dict_Functor_636) { - return function (f) { - var g = function (_517) { - if (_517 instanceof Yield) { - var s$prime = Prelude["<$>"](Data_Lazy.functorLazy)(filter(__dict_Functor_636)(f))(_517.value1); - var _1684 = f(_517.value0); - if (_1684) { - return new Yield(_517.value0, s$prime); - }; - if (!_1684) { - return new Skip(s$prime); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 161, column 3 - line 162, column 3: " + [ _1684.constructor.name ]); - }; - if (_517 instanceof Skip) { - var s$prime = Prelude["<$>"](Data_Lazy.functorLazy)(filter(__dict_Functor_636)(f))(_517.value0); - return new Skip(s$prime); - }; - if (_517 instanceof Done) { - return Done.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 161, column 3 - line 162, column 3: " + [ _517.constructor.name ]); - }; - return stepMap(__dict_Functor_636)(g); - }; - }; - var dropWhile = function (__dict_Applicative_637) { - return function (f) { - var g = function (_516) { - if (_516 instanceof Yield) { - var _1689 = f(_516.value0); - if (_1689) { - return new Skip(Prelude["<$>"](Data_Lazy.functorLazy)(dropWhile(__dict_Applicative_637)(f))(_516.value1)); - }; - if (!_1689) { - return new Yield(_516.value0, _516.value1); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 154, column 3 - line 155, column 3: " + [ _1689.constructor.name ]); - }; - if (_516 instanceof Skip) { - return Skip.create(Prelude["<$>"](Data_Lazy.functorLazy)(dropWhile(__dict_Applicative_637)(f))(_516.value0)); - }; - if (_516 instanceof Done) { - return Done.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 154, column 3 - line 155, column 3: " + [ _516.constructor.name ]); - }; - return stepMap((__dict_Applicative_637["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(g); - }; - }; - var drop = function (__dict_Applicative_638) { - return function (_510) { - return function (fa) { - if (_510 === 0) { - return fa; - }; - var f = function (_515) { - if (_515 instanceof Yield) { - return new Skip(Prelude["<$>"](Data_Lazy.functorLazy)(drop(__dict_Applicative_638)(Prelude["-"](Prelude.ringInt)(_510)(1)))(_515.value1)); - }; - if (_515 instanceof Skip) { - return new Skip(Prelude["<$>"](Data_Lazy.functorLazy)(drop(__dict_Applicative_638)(_510))(_515.value0)); - }; - if (_515 instanceof Done) { - return Done.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 147, column 3 - line 148, column 3: " + [ _515.constructor.name ]); - }; - return stepMap((__dict_Applicative_638["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(f)(fa); - }; - }; - }; - var cons = function (__dict_Applicative_639) { - return function (lh) { - return function (t) { - return ListT.create(Prelude.pure(__dict_Applicative_639)(new Yield(Data_Lazy.force(lh), t))); - }; - }; - }; - var unfoldableListT = function (__dict_Monad_640) { - return new Data_Unfoldable.Unfoldable(function (f) { - return function (b) { - var go = function (_527) { - if (_527 instanceof Data_Maybe.Nothing) { - return nil(__dict_Monad_640["__superclass_Prelude.Applicative_0"]()); - }; - if (_527 instanceof Data_Maybe.Just) { - return cons(__dict_Monad_640["__superclass_Prelude.Applicative_0"]())(Prelude.pure(Data_Lazy.applicativeLazy)(_527.value0.value0))(Data_Lazy.defer(function (_507) { - return go(f(_527.value0.value1)); - })); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 249, column 1 - line 254, column 1: " + [ _527.constructor.name ]); - }; - return go(f(b)); - }; - }); - }; - var semigroupListT = function (__dict_Applicative_642) { - return new Prelude.Semigroup(concat(__dict_Applicative_642)); - }; - var concat = function (__dict_Applicative_641) { - return function (x) { - return function (y) { - var f = function (_511) { - if (_511 instanceof Yield) { - return new Yield(_511.value0, Prelude["<$>"](Data_Lazy.functorLazy)(function (_3) { - return Prelude["<>"](semigroupListT(__dict_Applicative_641))(_3)(y); - })(_511.value1)); - }; - if (_511 instanceof Skip) { - return new Skip(Prelude["<$>"](Data_Lazy.functorLazy)(function (_4) { - return Prelude["<>"](semigroupListT(__dict_Applicative_641))(_4)(y); - })(_511.value0)); - }; - if (_511 instanceof Done) { - return new Skip(Data_Lazy.defer(Prelude["const"](y))); - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 91, column 3 - line 92, column 3: " + [ _511.constructor.name ]); - }; - return stepMap((__dict_Applicative_641["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(f)(x); - }; - }; - }; - var monoidListT = function (__dict_Applicative_622) { - return new Data_Monoid.Monoid(function () { - return semigroupListT(__dict_Applicative_622); - }, nil(__dict_Applicative_622)); - }; - var catMaybes = function (__dict_Functor_643) { - return mapMaybe(__dict_Functor_643)(Prelude.id(Prelude.categoryFn)); - }; - var monadListT = function (__dict_Monad_624) { - return new Prelude.Monad(function () { - return applicativeListT(__dict_Monad_624); - }, function () { - return bindListT(__dict_Monad_624); - }); - }; - var bindListT = function (__dict_Monad_644) { - return new Prelude.Bind(function () { - return applyListT(__dict_Monad_644); - }, function (fa) { - return function (f) { - var g = function (_528) { - if (_528 instanceof Yield) { - var h = function (s_1) { - return Prelude["<>"](semigroupListT(__dict_Monad_644["__superclass_Prelude.Applicative_0"]()))(f(_528.value0))(Prelude[">>="](bindListT(__dict_Monad_644))(s_1)(f)); - }; - return new Skip(Prelude["<$>"](Data_Lazy.functorLazy)(h)(_528.value1)); - }; - if (_528 instanceof Skip) { - return new Skip(Prelude["<$>"](Data_Lazy.functorLazy)(function (_6) { - return Prelude[">>="](bindListT(__dict_Monad_644))(_6)(f); - })(_528.value0)); - }; - if (_528 instanceof Done) { - return Done.value; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/bower_components/purescript-transformers/src/Control/Monad/List/Trans.purs line 262, column 5 - line 265, column 5: " + [ _528.constructor.name ]); - }; - return stepMap(((__dict_Monad_644["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]())(g)(fa); - }; - }); - }; - var applyListT = function (__dict_Monad_645) { - return new Prelude.Apply(function () { - return functorListT(((__dict_Monad_645["__superclass_Prelude.Applicative_0"]())["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]()); - }, Prelude.ap(monadListT(__dict_Monad_645))); - }; - var applicativeListT = function (__dict_Monad_646) { - return new Prelude.Applicative(function () { - return applyListT(__dict_Monad_646); - }, singleton(__dict_Monad_646["__superclass_Prelude.Applicative_0"]())); - }; - var monadEffListT = function (__dict_Monad_625) { - return function (__dict_MonadEff_626) { - return new Control_Monad_Eff_Class.MonadEff(function () { - return monadListT(__dict_Monad_625); - }, Prelude["<<<"](Prelude.semigroupoidFn)(Control_Monad_Trans.lift(monadTransListT)(__dict_Monad_625))(Control_Monad_Eff_Class.liftEff(__dict_MonadEff_626))); - }; - }; - var altListT = function (__dict_Applicative_648) { - return new Control_Alt.Alt(function () { - return functorListT((__dict_Applicative_648["__superclass_Prelude.Apply_0"]())["__superclass_Prelude.Functor_0"]()); - }, concat(__dict_Applicative_648)); - }; - var plusListT = function (__dict_Monad_617) { - return new Control_Plus.Plus(function () { - return altListT(__dict_Monad_617["__superclass_Prelude.Applicative_0"]()); - }, nil(__dict_Monad_617["__superclass_Prelude.Applicative_0"]())); - }; - var alternativeListT = function (__dict_Monad_647) { - return new Control_Alternative.Alternative(function () { - return plusListT(__dict_Monad_647); - }, function () { - return applicativeListT(__dict_Monad_647); - }); - }; - var monadPlusListT = function (__dict_Monad_623) { - return new Control_MonadPlus.MonadPlus(function () { - return alternativeListT(__dict_Monad_623); - }, function () { - return monadListT(__dict_Monad_623); - }); - }; - return { - "zipWith'": zipWith$prime, - zipWith: zipWith, - wrapLazy: wrapLazy, - wrapEffect: wrapEffect, - unfold: unfold, - uncons: uncons, - takeWhile: takeWhile, - take: take, - tail: tail, - singleton: singleton, - scanl: scanl, - repeat: repeat, - "prepend'": prepend$prime, - prepend: prepend, - nil: nil, - mapMaybe: mapMaybe, - iterate: iterate, - head: head, - fromEffect: fromEffect, - "foldl'": foldl$prime, - foldl: foldl, - filter: filter, - dropWhile: dropWhile, - drop: drop, - cons: cons, - catMaybes: catMaybes, - semigroupListT: semigroupListT, - monoidListT: monoidListT, - functorListT: functorListT, - unfoldableListT: unfoldableListT, - applyListT: applyListT, - applicativeListT: applicativeListT, - bindListT: bindListT, - monadListT: monadListT, - monadTransListT: monadTransListT, - altListT: altListT, - plusListT: plusListT, - alternativeListT: alternativeListT, - monadPlusListT: monadPlusListT, - monadEffListT: monadEffListT - }; -})(); -var PS = PS || {}; -PS.Examples = (function () { - "use strict"; - var Control_Monad_Aff_Console = PS.Control_Monad_Aff_Console; - var Prelude = PS.Prelude; - var Control_Monad_Aff = PS.Control_Monad_Aff; - var Control_Monad_Error_Class = PS.Control_Monad_Error_Class; - var Control_Monad_Eff_Exception = PS.Control_Monad_Eff_Exception; - var Data_Either = PS.Data_Either; - var Control_Monad_Aff_AVar = PS.Control_Monad_Aff_AVar; - var Control_Apply = PS.Control_Apply; - var Control_Monad_Aff_Par = PS.Control_Monad_Aff_Par; - var Control_Alt = PS.Control_Alt; - var Control_Monad_Eff_Console = PS.Control_Monad_Eff_Console; - var Control_Monad_Eff_Class = PS.Control_Monad_Eff_Class; - var test_sequencing = function (_529) { - if (_529 === 0) { - return Control_Monad_Aff_Console.print(Prelude.showString)("Done"); - }; - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff["later'"](100)(Control_Monad_Aff_Console.print(Prelude.showString)(Prelude.show(Prelude.showInt)(Prelude["/"](Prelude.moduloSemiringInt)(_529)(10)) + " seconds left")))(function () { - return test_sequencing(Prelude["-"](Prelude.ringInt)(_529)(1)); - }); - }; - var test_semigroupCanceler = (function () { - var c = Prelude["<>"](Control_Monad_Aff.semigroupCanceler)(Prelude["const"](Prelude.pure(Control_Monad_Aff.applicativeAff)(true)))(Prelude["const"](Prelude.pure(Control_Monad_Aff.applicativeAff)(true))); - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.cancel(c)(Control_Monad_Eff_Exception.error("CANCEL")))(function (_77) { - return Control_Monad_Aff_Console.print(Prelude.showString)((function () { - if (_77) { - return "Success: Canceled semigroup composite canceler"; - }; - if (!_77) { - return "Failure: Could not cancel semigroup composite canceler"; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/examples/src/Examples.purs line 97, column 3 - line 98, column 3: " + [ _77.constructor.name ]); - })()); - }); - })(); - var test_putTakeVar = Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_AVar.makeVar)(function (_65) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.forkAff(Control_Monad_Aff.later(Control_Monad_Aff_AVar.putVar(_65)(1.0))))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_AVar.takeVar(_65))(function (_64) { - return Control_Monad_Aff_Console.print(Prelude.showString)("Success: Value " + Prelude.show(Prelude.showNumber)(_64)); - }); - }); - }); - var test_pure = Prelude[">>="](Control_Monad_Aff.bindAff)(Prelude.pure(Control_Monad_Aff.applicativeAff)(Prelude.unit))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Prelude.pure(Control_Monad_Aff.applicativeAff)(Prelude.unit))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Prelude.pure(Control_Monad_Aff.applicativeAff)(Prelude.unit))(function () { - return Control_Monad_Aff_Console.print(Prelude.showString)("Success: Got all the way past 4 pures"); - }); - }); - }); - var test_parRaceKill2 = Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.attempt(Control_Monad_Aff_Par.runPar(Control_Alt["<|>"](Control_Monad_Aff_Par.altPar)(Control_Monad_Aff["later'"](100)(Control_Monad_Error_Class.throwError(Control_Monad_Aff.monadErrorAff)(Control_Monad_Eff_Exception.error("Oh noes!"))))(Control_Monad_Aff["later'"](200)(Control_Monad_Error_Class.throwError(Control_Monad_Aff.monadErrorAff)(Control_Monad_Eff_Exception.error("Oh noes!")))))))(function (_76) { - return Data_Either.either(Prelude["const"](Control_Monad_Aff_Console.print(Prelude.showString)("Success: Killing both kills it dead")))(Prelude["const"](Control_Monad_Aff_Console.print(Prelude.showString)("Failure: It's alive!!!")))(_76); - }); - var test_parRaceKill1 = Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Par.runPar(Control_Alt["<|>"](Control_Monad_Aff_Par.altPar)(Control_Monad_Aff["later'"](100)(Control_Monad_Error_Class.throwError(Control_Monad_Aff.monadErrorAff)(Control_Monad_Eff_Exception.error("Oh noes!"))))(Control_Monad_Aff["later'"](200)(Prelude.pure(Control_Monad_Aff.applicativeAff)("Success: Early error was ignored in favor of late success")))))(function (_75) { - return Control_Monad_Aff_Console.print(Prelude.showString)(_75); - }); - var test_parRace = Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Par.runPar(Control_Alt["<|>"](Control_Monad_Aff_Par.altPar)(Control_Monad_Aff["later'"](100)(Prelude.pure(Control_Monad_Aff.applicativeAff)("Success: Early bird got the worm")))(Control_Monad_Aff["later'"](200)(Prelude.pure(Control_Monad_Aff.applicativeAff)("Failure: Late bird got the worm")))))(function (_74) { - return Control_Monad_Aff_Console.print(Prelude.showString)(_74); - }); - var test_killVar = Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_AVar.makeVar)(function (_69) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_AVar.killVar(_69)(Control_Monad_Eff_Exception.error("DOA")))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.attempt(Control_Monad_Aff_AVar.takeVar(_69)))(function (_68) { - return Data_Either.either(Prelude["const"](Control_Monad_Aff_Console.print(Prelude.showString)("Success: Killed queue dead")))(Prelude["const"](Control_Monad_Aff_Console.print(Prelude.showString)("Failure: Oh noes, queue survived!")))(_68); - }); - }); - }); - var test_killFirstForked = Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.forkAff(Control_Monad_Aff["later'"](100)(Prelude.pure(Control_Monad_Aff.applicativeAff)("Failure: This should have been killed!"))))(function (_67) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.cancel(_67)(Control_Monad_Eff_Exception.error("Just die")))(function (_66) { - return Control_Monad_Aff_Console.print(Prelude.showString)((function () { - if (_66) { - return "Success: Killed first forked"; - }; - if (!_66) { - return "Failure: Couldn't kill first forked"; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/examples/src/Examples.purs line 50, column 3 - line 51, column 3: " + [ _66.constructor.name ]); - })()); - }); - }); - var test_finally = Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_AVar.makeVar)(function (_73) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff["finally"](Control_Monad_Aff_AVar.putVar(_73)(0))(Control_Monad_Aff_AVar.putVar(_73)(2)))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.apathize(Control_Monad_Aff["finally"](Control_Apply["*>"](Control_Monad_Aff.applyAff)(Control_Monad_Error_Class.throwError(Control_Monad_Aff.monadErrorAff)(Control_Monad_Eff_Exception.error("poof!")))(Control_Monad_Aff_AVar.putVar(_73)(666)))(Control_Monad_Aff_AVar.putVar(_73)(40))))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_AVar.takeVar(_73))(function (_72) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_AVar.takeVar(_73))(function (_71) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_AVar.takeVar(_73))(function (_70) { - return Control_Monad_Aff_Console.print(Prelude.showString)((function () { - var _1729 = Prelude["=="](Prelude.eqInt)(Prelude["+"](Prelude.semiringInt)(Prelude["+"](Prelude.semiringInt)(_72)(_71))(_70))(42); - if (_1729) { - return "Success: effects amount to 42."; - }; - if (!_1729) { - return "Failure: Expected 42."; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/examples/src/Examples.purs line 64, column 3 - line 65, column 3: " + [ _1729.constructor.name ]); - })()); - }); - }); - }); - }); - }); - }); - var test_cancelPar = Prelude[">>="](Control_Monad_Aff.bindAff)(Prelude["<<<"](Prelude.semigroupoidFn)(Control_Monad_Aff.forkAff)(Control_Monad_Aff_Par.runPar)(Control_Alt["<|>"](Control_Monad_Aff_Par.altPar)(Control_Monad_Aff["later'"](100)(Control_Monad_Aff_Console.print(Prelude.showString)("Failure: #1 should not get through")))(Control_Monad_Aff["later'"](100)(Control_Monad_Aff_Console.print(Prelude.showString)("Failure: #2 should not get through")))))(function (_82) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.cancel(_82)(Control_Monad_Eff_Exception.error("Must cancel")))(function (_81) { - return Control_Monad_Aff_Console.print(Prelude.showString)((function () { - if (_81) { - return "Success: Canceling composite of two Par succeeded"; - }; - if (!_81) { - return "Failure: Canceling composite of two Par failed"; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/examples/src/Examples.purs line 114, column 3 - line 115, column 3: " + [ _81.constructor.name ]); - })()); - }); - }); - var test_cancelLater = Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.forkAff(Prelude[">>="](Control_Monad_Aff.bindAff)(Prelude.pure(Control_Monad_Aff.applicativeAff)("Binding"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff["later'"](100)(Control_Monad_Aff_Console.print(Prelude.showString)("Failure: Later was not canceled!")))(function (_78) { - return Prelude.pure(Control_Monad_Aff.applicativeAff)("Binding"); - }); - })))(function (_80) { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.cancel(_80)(Control_Monad_Eff_Exception.error("Cause")))(function (_79) { - return Control_Monad_Aff_Console.print(Prelude.showString)((function () { - if (_79) { - return "Success: Canceled later"; - }; - if (!_79) { - return "Failure: Did not cancel later"; - }; - throw new Error("Failed pattern match at /Users/antti/code/purescript/purescript-aff/examples/src/Examples.purs line 106, column 3 - line 107, column 3: " + [ _79.constructor.name ]); - })()); - }); - }); - var test_attempt = Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.attempt(Control_Monad_Error_Class.throwError(Control_Monad_Aff.monadErrorAff)(Control_Monad_Eff_Exception.error("Oh noes!"))))(function (_63) { - return Data_Either.either(Prelude["const"](Control_Monad_Aff_Console.print(Prelude.showString)("Success: Exception caught")))(Prelude["const"](Control_Monad_Aff_Console.print(Prelude.showString)("Failure: Exception NOT caught!!!")))(_63); - }); - var test_apathize = Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.apathize(Control_Monad_Error_Class.throwError(Control_Monad_Aff.monadErrorAff)(Control_Monad_Eff_Exception.error("Oh noes!"))))(function () { - return Control_Monad_Aff_Console.print(Prelude.showString)("Success: Exceptions don't stop the apathetic"); - }); - var main = Control_Monad_Aff.launchAff(Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Console.print(Prelude.showString)("Testing sequencing"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(test_sequencing(3))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Console.print(Prelude.showString)("Testing pure"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(test_pure)(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Console.print(Prelude.showString)("Testing attempt"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(test_attempt)(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Console.print(Prelude.showString)("Testing later"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff.later(Control_Monad_Aff_Console.print(Prelude.showString)("Success: It happened later")))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Console.print(Prelude.showString)("Testing kill of later"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(test_cancelLater)(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Console.print(Prelude.showString)("Testing kill of first forked"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(test_killFirstForked)(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Console.print(Prelude.showString)("Testing apathize"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(test_apathize)(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Console.print(Prelude.showString)("Testing semigroup canceler"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(test_semigroupCanceler)(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Console.print(Prelude.showString)("Testing AVar - putVar, takeVar"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(test_putTakeVar)(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Console.print(Prelude.showString)("Testing AVar killVar"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(test_killVar)(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Console.print(Prelude.showString)("Testing finally"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(test_finally)(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Console.print(Prelude.showString)("Testing Par (<|>)"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(test_parRace)(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Console.print(Prelude.showString)("Testing Par (<|>) - kill one"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(test_parRaceKill1)(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Console.print(Prelude.showString)("Testing Par (<|>) - kill two"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(test_parRaceKill2)(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(Control_Monad_Aff_Console.print(Prelude.showString)("Testing cancel of Par (<|>)"))(function () { - return Prelude[">>="](Control_Monad_Aff.bindAff)(test_cancelPar)(function () { - return Control_Monad_Aff_Console.print(Prelude.showString)("Done testing"); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - }); - })); - return { - main: main, - test_cancelPar: test_cancelPar, - test_cancelLater: test_cancelLater, - test_semigroupCanceler: test_semigroupCanceler, - test_parRaceKill2: test_parRaceKill2, - test_parRaceKill1: test_parRaceKill1, - test_parRace: test_parRace, - test_finally: test_finally, - test_killVar: test_killVar, - test_killFirstForked: test_killFirstForked, - test_putTakeVar: test_putTakeVar, - test_apathize: test_apathize, - test_attempt: test_attempt, - test_pure: test_pure, - test_sequencing: test_sequencing - }; -})(); -PS.Examples.main(); - diff --git a/package.json b/package.json index 3179301..cca6c5d 100644 --- a/package.json +++ b/package.json @@ -1,9 +1,10 @@ { "private": true, - "dependencies": { + "devDependencies": { "gulp": "^3.8.6", - "gulp-plumber": "^1.0.0", "gulp-jsvalidate": "^2.0.0", - "gulp-purescript": "^0.5.0" + "gulp-plumber": "^1.0.0", + "gulp-purescript": "^0.5.0", + "gulp-run": "^1.6.8" } } diff --git a/src/Control/Monad/Aff.purs b/src/Control/Monad/Aff.purs index d51eb81..6a7bbfa 100644 --- a/src/Control/Monad/Aff.purs +++ b/src/Control/Monad/Aff.purs @@ -20,19 +20,21 @@ module Control.Monad.Aff where import Prelude - import Data.Either(Either(..), either) - import Data.Function(Fn2(), Fn3(), runFn2, runFn3) - import Data.Monoid(Monoid, mempty) - import Control.Apply + import Control.Alt(Alt) - import Control.Plus(Plus) import Control.Alternative(Alternative) - import Control.MonadPlus(MonadPlus) - import Control.Monad.Eff + import Control.Monad.Eff(Eff()) + import Control.Monad.Eff.Class(MonadEff, liftEff) import Control.Monad.Eff.Exception(Error(), EXCEPTION(), catchException, error) import Control.Monad.Eff.Unsafe(unsafeInterleaveEff) - import Control.Monad.Eff.Class import Control.Monad.Error.Class(MonadError, throwError) + import Control.Monad.Rec.Class(MonadRec, tailRecM) + import Control.MonadPlus(MonadPlus) + import Control.Plus(Plus) + + import Data.Either(Either(..), either) + import Data.Function(Fn2(), Fn3(), runFn2, runFn3) + import Data.Monoid(Monoid, mempty) -- | An asynchronous computation with effects `e`. The computation either -- | errors or produces a value of type `a`. @@ -167,6 +169,17 @@ module Control.Monad.Aff instance monadPlusAff :: MonadPlus (Aff e) + instance monadRecAff :: MonadRec (Aff e) where + tailRecM f a = go 0 f a + where + go size f a = do + e <- f a + case e of + Left a' | size < 100 -> go (size + 1) f a' + | otherwise -> later (tailRecM f a') + Right b -> pure b + + instance semigroupCanceler :: Semigroup (Canceler e) where append (Canceler f1) (Canceler f2) = Canceler (\e -> (||) <$> f1 e <*> f2 e) diff --git a/test/Test/Main.purs b/test/Test/Main.purs new file mode 100644 index 0000000..5dda324 --- /dev/null +++ b/test/Test/Main.purs @@ -0,0 +1,23 @@ +module Test.Main where + +import Prelude + +import Control.Monad.Aff (Aff(), runAff) +import Control.Monad.Eff (Eff()) +import Control.Monad.Eff.Class (liftEff) +import Control.Monad.Eff.Console (CONSOLE(), log, print) +import Control.Monad.Eff.Exception (EXCEPTION(), throwException) +import Control.Monad.Rec.Class (tailRecM) + +import Data.Either (Either(..)) + +loop :: forall eff. Int -> Aff (console :: CONSOLE | eff) Unit +loop n = tailRecM go n + where + go 0 = do + liftEff $ log "Done!" + return (Right unit) + go n = return (Left (n - 1)) + +main :: Eff (console :: CONSOLE, err :: EXCEPTION) Unit +main = runAff throwException (const (pure unit)) $ loop 1000000