espial-0.0.4: static/js/app.js
// Generated by purs bundle 0.12.0
var PS = {};
(function(exports) {
"use strict";
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;
};
};
})(PS["Control.Bind"] = PS["Control.Bind"] || {});
(function(exports) {
"use strict";
exports.arrayApply = function (fs) {
return function (xs) {
var l = fs.length;
var k = xs.length;
var result = new Array(l*k);
var n = 0;
for (var i = 0; i < l; i++) {
var f = fs[i];
for (var j = 0; j < k; j++) {
result[n++] = f(xs[j]);
}
}
return result;
};
};
})(PS["Control.Apply"] = PS["Control.Apply"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Semigroupoid = function (compose) {
this.compose = compose;
};
var semigroupoidFn = new Semigroupoid(function (f) {
return function (g) {
return function (x) {
return f(g(x));
};
};
});
var compose = function (dict) {
return dict.compose;
};
exports["compose"] = compose;
exports["Semigroupoid"] = Semigroupoid;
exports["semigroupoidFn"] = semigroupoidFn;
})(PS["Control.Semigroupoid"] = PS["Control.Semigroupoid"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Category = function (Semigroupoid0, identity) {
this.Semigroupoid0 = Semigroupoid0;
this.identity = identity;
};
var identity = function (dict) {
return dict.identity;
};
var categoryFn = new Category(function () {
return Control_Semigroupoid.semigroupoidFn;
}, function (x) {
return x;
});
exports["Category"] = Category;
exports["identity"] = identity;
exports["categoryFn"] = categoryFn;
})(PS["Control.Category"] = PS["Control.Category"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var otherwise = true;
exports["otherwise"] = otherwise;
})(PS["Data.Boolean"] = PS["Data.Boolean"] || {});
(function(exports) {
"use strict";
exports.refEq = function (r1) {
return function (r2) {
return r1 === r2;
};
};
})(PS["Data.Eq"] = PS["Data.Eq"] || {});
(function(exports) {
"use strict";
exports.boolConj = function (b1) {
return function (b2) {
return b1 && b2;
};
};
exports.boolDisj = function (b1) {
return function (b2) {
return b1 || b2;
};
};
exports.boolNot = function (b) {
return !b;
};
})(PS["Data.HeytingAlgebra"] = PS["Data.HeytingAlgebra"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Symbol"];
var SProxy = (function () {
function SProxy() {
};
SProxy.value = new SProxy();
return SProxy;
})();
var IsSymbol = function (reflectSymbol) {
this.reflectSymbol = reflectSymbol;
};
var reflectSymbol = function (dict) {
return dict.reflectSymbol;
};
exports["IsSymbol"] = IsSymbol;
exports["reflectSymbol"] = reflectSymbol;
exports["SProxy"] = SProxy;
})(PS["Data.Symbol"] = PS["Data.Symbol"] || {});
(function(exports) {
"use strict";
exports.unit = {};
})(PS["Data.Unit"] = PS["Data.Unit"] || {});
(function(exports) {
"use strict";
exports.showIntImpl = function (n) {
return n.toString();
};
exports.showStringImpl = function (s) {
var l = s.length;
return "\"" + s.replace(
/[\0-\x1F\x7F"\\]/g, // eslint-disable-line no-control-regex
function (c, i) {
switch (c) {
case "\"":
case "\\":
return "\\" + c;
case "\x07": return "\\a";
case "\b": return "\\b";
case "\f": return "\\f";
case "\n": return "\\n";
case "\r": return "\\r";
case "\t": return "\\t";
case "\v": return "\\v";
}
var k = i + 1;
var empty = k < l && s[k] >= "0" && s[k] <= "9" ? "\\&" : "";
return "\\" + c.charCodeAt(0).toString(10) + empty;
}
) + "\"";
};
})(PS["Data.Show"] = PS["Data.Show"] || {});
(function(exports) {
"use strict";
exports.unsafeGet = function (label) {
return function (rec) {
return rec[label];
};
};
})(PS["Record.Unsafe"] = PS["Record.Unsafe"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Record.Unsafe"];
exports["unsafeGet"] = $foreign.unsafeGet;
})(PS["Record.Unsafe"] = PS["Record.Unsafe"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Show"];
var Data_Symbol = PS["Data.Symbol"];
var Record_Unsafe = PS["Record.Unsafe"];
var Type_Data_RowList = PS["Type.Data.RowList"];
var Show = function (show) {
this.show = show;
};
var showString = new Show($foreign.showStringImpl);
var showInt = new Show($foreign.showIntImpl);
var show = function (dict) {
return dict.show;
};
exports["Show"] = Show;
exports["show"] = show;
exports["showInt"] = showInt;
exports["showString"] = showString;
})(PS["Data.Show"] = PS["Data.Show"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Unit"];
var Data_Show = PS["Data.Show"];
exports["unit"] = $foreign.unit;
})(PS["Data.Unit"] = PS["Data.Unit"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.HeytingAlgebra"];
var Data_Symbol = PS["Data.Symbol"];
var Data_Unit = PS["Data.Unit"];
var Record_Unsafe = PS["Record.Unsafe"];
var Type_Data_Row = PS["Type.Data.Row"];
var Type_Data_RowList = PS["Type.Data.RowList"];
var HeytingAlgebra = function (conj, disj, ff, implies, not, tt) {
this.conj = conj;
this.disj = disj;
this.ff = ff;
this.implies = implies;
this.not = not;
this.tt = tt;
};
var tt = function (dict) {
return dict.tt;
};
var not = function (dict) {
return dict.not;
};
var implies = function (dict) {
return dict.implies;
};
var ff = function (dict) {
return dict.ff;
};
var disj = function (dict) {
return dict.disj;
};
var heytingAlgebraBoolean = new HeytingAlgebra($foreign.boolConj, $foreign.boolDisj, false, function (a) {
return function (b) {
return disj(heytingAlgebraBoolean)(not(heytingAlgebraBoolean)(a))(b);
};
}, $foreign.boolNot, true);
var conj = function (dict) {
return dict.conj;
};
var heytingAlgebraFunction = function (dictHeytingAlgebra) {
return new HeytingAlgebra(function (f) {
return function (g) {
return function (a) {
return conj(dictHeytingAlgebra)(f(a))(g(a));
};
};
}, function (f) {
return function (g) {
return function (a) {
return disj(dictHeytingAlgebra)(f(a))(g(a));
};
};
}, function (v) {
return ff(dictHeytingAlgebra);
}, function (f) {
return function (g) {
return function (a) {
return implies(dictHeytingAlgebra)(f(a))(g(a));
};
};
}, function (f) {
return function (a) {
return not(dictHeytingAlgebra)(f(a));
};
}, function (v) {
return tt(dictHeytingAlgebra);
});
};
exports["HeytingAlgebra"] = HeytingAlgebra;
exports["tt"] = tt;
exports["ff"] = ff;
exports["implies"] = implies;
exports["conj"] = conj;
exports["disj"] = disj;
exports["not"] = not;
exports["heytingAlgebraBoolean"] = heytingAlgebraBoolean;
exports["heytingAlgebraFunction"] = heytingAlgebraFunction;
})(PS["Data.HeytingAlgebra"] = PS["Data.HeytingAlgebra"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Eq"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Symbol = PS["Data.Symbol"];
var Data_Unit = PS["Data.Unit"];
var Data_Void = PS["Data.Void"];
var Record_Unsafe = PS["Record.Unsafe"];
var Type_Data_RowList = PS["Type.Data.RowList"];
var Eq = function (eq) {
this.eq = eq;
};
var eqVoid = new Eq(function (v) {
return function (v1) {
return true;
};
});
var eqString = new Eq($foreign.refEq);
var eqInt = new Eq($foreign.refEq);
var eqChar = new Eq($foreign.refEq);
var eq = function (dict) {
return dict.eq;
};
exports["Eq"] = Eq;
exports["eq"] = eq;
exports["eqInt"] = eqInt;
exports["eqChar"] = eqChar;
exports["eqString"] = eqString;
exports["eqVoid"] = eqVoid;
})(PS["Data.Eq"] = PS["Data.Eq"] || {});
(function(exports) {
"use strict";
exports.unsafeCompareImpl = function (lt) {
return function (eq) {
return function (gt) {
return function (x) {
return function (y) {
return x < y ? lt : x === y ? eq : gt;
};
};
};
};
};
})(PS["Data.Ord.Unsafe"] = PS["Data.Ord.Unsafe"] || {});
(function(exports) {
"use strict";
exports.concatString = function (s1) {
return function (s2) {
return s1 + s2;
};
};
exports.concatArray = function (xs) {
return function (ys) {
if (xs.length === 0) return ys;
if (ys.length === 0) return xs;
return xs.concat(ys);
};
};
})(PS["Data.Semigroup"] = PS["Data.Semigroup"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Semigroup"];
var Data_Symbol = PS["Data.Symbol"];
var Data_Unit = PS["Data.Unit"];
var Data_Void = PS["Data.Void"];
var Record_Unsafe = PS["Record.Unsafe"];
var Type_Data_RowList = PS["Type.Data.RowList"];
var Semigroup = function (append) {
this.append = append;
};
var semigroupString = new Semigroup($foreign.concatString);
var semigroupArray = new Semigroup($foreign.concatArray);
var append = function (dict) {
return dict.append;
};
var semigroupFn = function (dictSemigroup) {
return new Semigroup(function (f) {
return function (g) {
return function (x) {
return append(dictSemigroup)(f(x))(g(x));
};
};
});
};
exports["Semigroup"] = Semigroup;
exports["append"] = append;
exports["semigroupString"] = semigroupString;
exports["semigroupFn"] = semigroupFn;
exports["semigroupArray"] = semigroupArray;
})(PS["Data.Semigroup"] = PS["Data.Semigroup"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Data_Eq = PS["Data.Eq"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Show = PS["Data.Show"];
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;
})();
exports["LT"] = LT;
exports["GT"] = GT;
exports["EQ"] = EQ;
})(PS["Data.Ordering"] = PS["Data.Ordering"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Ord.Unsafe"];
var Data_Ordering = PS["Data.Ordering"];
var unsafeCompare = $foreign.unsafeCompareImpl(Data_Ordering.LT.value)(Data_Ordering.EQ.value)(Data_Ordering.GT.value);
exports["unsafeCompare"] = unsafeCompare;
})(PS["Data.Ord.Unsafe"] = PS["Data.Ord.Unsafe"] || {});
(function(exports) {
"use strict";
exports.intSub = function (x) {
return function (y) {
/* jshint bitwise: false */
return x - y | 0;
};
};
})(PS["Data.Ring"] = PS["Data.Ring"] || {});
(function(exports) {
"use strict";
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;
};
};
})(PS["Data.Semiring"] = PS["Data.Semiring"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Semiring"];
var Data_Symbol = PS["Data.Symbol"];
var Data_Unit = PS["Data.Unit"];
var Record_Unsafe = PS["Record.Unsafe"];
var Type_Data_Row = PS["Type.Data.Row"];
var Type_Data_RowList = PS["Type.Data.RowList"];
var Semiring = function (add, mul, one, zero) {
this.add = add;
this.mul = mul;
this.one = one;
this.zero = zero;
};
var zero = function (dict) {
return dict.zero;
};
var semiringInt = new Semiring($foreign.intAdd, $foreign.intMul, 1, 0);
var one = function (dict) {
return dict.one;
};
var mul = function (dict) {
return dict.mul;
};
var add = function (dict) {
return dict.add;
};
exports["Semiring"] = Semiring;
exports["add"] = add;
exports["zero"] = zero;
exports["mul"] = mul;
exports["one"] = one;
exports["semiringInt"] = semiringInt;
})(PS["Data.Semiring"] = PS["Data.Semiring"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Ring"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Symbol = PS["Data.Symbol"];
var Data_Unit = PS["Data.Unit"];
var Record_Unsafe = PS["Record.Unsafe"];
var Type_Data_RowList = PS["Type.Data.RowList"];
var Ring = function (Semiring0, sub) {
this.Semiring0 = Semiring0;
this.sub = sub;
};
var sub = function (dict) {
return dict.sub;
};
var ringInt = new Ring(function () {
return Data_Semiring.semiringInt;
}, $foreign.intSub);
exports["Ring"] = Ring;
exports["sub"] = sub;
exports["ringInt"] = ringInt;
})(PS["Data.Ring"] = PS["Data.Ring"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Ord"];
var Data_Eq = PS["Data.Eq"];
var Data_Ord_Unsafe = PS["Data.Ord.Unsafe"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Ring = PS["Data.Ring"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Unit = PS["Data.Unit"];
var Data_Void = PS["Data.Void"];
var Ord = function (Eq0, compare) {
this.Eq0 = Eq0;
this.compare = compare;
};
var ordVoid = new Ord(function () {
return Data_Eq.eqVoid;
}, function (v) {
return function (v1) {
return Data_Ordering.EQ.value;
};
});
var ordString = new Ord(function () {
return Data_Eq.eqString;
}, Data_Ord_Unsafe.unsafeCompare);
var ordInt = new Ord(function () {
return Data_Eq.eqInt;
}, Data_Ord_Unsafe.unsafeCompare);
var ordChar = new Ord(function () {
return Data_Eq.eqChar;
}, Data_Ord_Unsafe.unsafeCompare);
var compare = function (dict) {
return dict.compare;
};
exports["Ord"] = Ord;
exports["compare"] = compare;
exports["ordInt"] = ordInt;
exports["ordString"] = ordString;
exports["ordChar"] = ordChar;
exports["ordVoid"] = ordVoid;
})(PS["Data.Ord"] = PS["Data.Ord"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Category = PS["Control.Category"];
var Data_Boolean = PS["Data.Boolean"];
var Data_Ord = PS["Data.Ord"];
var Data_Ring = PS["Data.Ring"];
var on = function (f) {
return function (g) {
return function (x) {
return function (y) {
return f(g(x))(g(y));
};
};
};
};
var flip = function (f) {
return function (b) {
return function (a) {
return f(a)(b);
};
};
};
var $$const = function (a) {
return function (v) {
return a;
};
};
exports["flip"] = flip;
exports["const"] = $$const;
exports["on"] = on;
})(PS["Data.Function"] = PS["Data.Function"] || {});
(function(exports) {
"use strict";
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;
};
};
})(PS["Data.Functor"] = PS["Data.Functor"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Functor"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Function = PS["Data.Function"];
var Data_Unit = PS["Data.Unit"];
var Functor = function (map) {
this.map = map;
};
var map = function (dict) {
return dict.map;
};
var $$void = function (dictFunctor) {
return map(dictFunctor)(Data_Function["const"](Data_Unit.unit));
};
var voidLeft = function (dictFunctor) {
return function (f) {
return function (x) {
return map(dictFunctor)(Data_Function["const"](x))(f);
};
};
};
var functorFn = new Functor(Control_Semigroupoid.compose(Control_Semigroupoid.semigroupoidFn));
var functorArray = new Functor($foreign.arrayMap);
exports["Functor"] = Functor;
exports["map"] = map;
exports["void"] = $$void;
exports["voidLeft"] = voidLeft;
exports["functorFn"] = functorFn;
exports["functorArray"] = functorArray;
})(PS["Data.Functor"] = PS["Data.Functor"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Control.Apply"];
var Control_Category = PS["Control.Category"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Apply = function (Functor0, apply) {
this.Functor0 = Functor0;
this.apply = apply;
};
var applyArray = new Apply(function () {
return Data_Functor.functorArray;
}, $foreign.arrayApply);
var apply = function (dict) {
return dict.apply;
};
var applySecond = function (dictApply) {
return function (a) {
return function (b) {
return apply(dictApply)(Data_Functor.map(dictApply.Functor0())(Data_Function["const"](Control_Category.identity(Control_Category.categoryFn)))(a))(b);
};
};
};
var lift2 = function (dictApply) {
return function (f) {
return function (a) {
return function (b) {
return apply(dictApply)(Data_Functor.map(dictApply.Functor0())(f)(a))(b);
};
};
};
};
exports["Apply"] = Apply;
exports["apply"] = apply;
exports["applySecond"] = applySecond;
exports["lift2"] = lift2;
exports["applyArray"] = applyArray;
})(PS["Control.Apply"] = PS["Control.Apply"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Apply = PS["Control.Apply"];
var Data_Functor = PS["Data.Functor"];
var Data_Unit = PS["Data.Unit"];
var Applicative = function (Apply0, pure) {
this.Apply0 = Apply0;
this.pure = pure;
};
var pure = function (dict) {
return dict.pure;
};
var when = function (dictApplicative) {
return function (v) {
return function (v1) {
if (v) {
return v1;
};
if (!v) {
return pure(dictApplicative)(Data_Unit.unit);
};
throw new Error("Failed pattern match at Control.Applicative line 57, column 1 - line 57, column 63: " + [ v.constructor.name, v1.constructor.name ]);
};
};
};
var liftA1 = function (dictApplicative) {
return function (f) {
return function (a) {
return Control_Apply.apply(dictApplicative.Apply0())(pure(dictApplicative)(f))(a);
};
};
};
exports["Applicative"] = Applicative;
exports["pure"] = pure;
exports["liftA1"] = liftA1;
exports["when"] = when;
})(PS["Control.Applicative"] = PS["Control.Applicative"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Control.Bind"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Category = PS["Control.Category"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Unit = PS["Data.Unit"];
var Bind = function (Apply0, bind) {
this.Apply0 = Apply0;
this.bind = bind;
};
var Discard = function (discard) {
this.discard = discard;
};
var discard = function (dict) {
return dict.discard;
};
var bindArray = new Bind(function () {
return Control_Apply.applyArray;
}, $foreign.arrayBind);
var bind = function (dict) {
return dict.bind;
};
var bindFlipped = function (dictBind) {
return Data_Function.flip(bind(dictBind));
};
var composeKleisliFlipped = function (dictBind) {
return function (f) {
return function (g) {
return function (a) {
return bindFlipped(dictBind)(f)(g(a));
};
};
};
};
var composeKleisli = function (dictBind) {
return function (f) {
return function (g) {
return function (a) {
return bind(dictBind)(f(a))(g);
};
};
};
};
var discardUnit = new Discard(function (dictBind) {
return bind(dictBind);
});
var join = function (dictBind) {
return function (m) {
return bind(dictBind)(m)(Control_Category.identity(Control_Category.categoryFn));
};
};
exports["Bind"] = Bind;
exports["bind"] = bind;
exports["bindFlipped"] = bindFlipped;
exports["Discard"] = Discard;
exports["discard"] = discard;
exports["join"] = join;
exports["composeKleisli"] = composeKleisli;
exports["composeKleisliFlipped"] = composeKleisliFlipped;
exports["bindArray"] = bindArray;
exports["discardUnit"] = discardUnit;
})(PS["Control.Bind"] = PS["Control.Bind"] || {});
(function(exports) {
"use strict";
//------------------------------------------------------------------------------
// 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;
};
};
exports.concat = function (xss) {
if (xss.length <= 10000) {
// This method is faster, but it crashes on big arrays.
// So we use it when can and fallback to simple variant otherwise.
return Array.prototype.concat.apply([], 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);
};
};
//------------------------------------------------------------------------------
// 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);
};
};
})(PS["Data.Array"] = PS["Data.Array"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Data_Functor = PS["Data.Functor"];
var Data_Semigroup = PS["Data.Semigroup"];
var Alt = function (Functor0, alt) {
this.Functor0 = Functor0;
this.alt = alt;
};
var alt = function (dict) {
return dict.alt;
};
exports["Alt"] = Alt;
exports["alt"] = alt;
})(PS["Control.Alt"] = PS["Control.Alt"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Data_Functor = PS["Data.Functor"];
var Data_Unit = PS["Data.Unit"];
var Monad = function (Applicative0, Bind1) {
this.Applicative0 = Applicative0;
this.Bind1 = Bind1;
};
var ap = function (dictMonad) {
return function (f) {
return function (a) {
return Control_Bind.bind(dictMonad.Bind1())(f)(function (v) {
return Control_Bind.bind(dictMonad.Bind1())(a)(function (v1) {
return Control_Applicative.pure(dictMonad.Applicative0())(v(v1));
});
});
};
};
};
exports["Monad"] = Monad;
exports["ap"] = ap;
})(PS["Control.Monad"] = PS["Control.Monad"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Category = PS["Control.Category"];
var Bifunctor = function (bimap) {
this.bimap = bimap;
};
var bimap = function (dict) {
return dict.bimap;
};
var rmap = function (dictBifunctor) {
return bimap(dictBifunctor)(Control_Category.identity(Control_Category.categoryFn));
};
exports["bimap"] = bimap;
exports["Bifunctor"] = Bifunctor;
exports["rmap"] = rmap;
})(PS["Data.Bifunctor"] = PS["Data.Bifunctor"] || {});
(function(exports) {
"use strict";
exports.topInt = 2147483647;
exports.bottomInt = -2147483648;
exports.topChar = String.fromCharCode(65535);
exports.bottomChar = String.fromCharCode(0);
})(PS["Data.Bounded"] = PS["Data.Bounded"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Bounded"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Unit = PS["Data.Unit"];
var Bounded = function (Ord0, bottom, top) {
this.Ord0 = Ord0;
this.bottom = bottom;
this.top = top;
};
var top = function (dict) {
return dict.top;
};
var boundedInt = new Bounded(function () {
return Data_Ord.ordInt;
}, $foreign.bottomInt, $foreign.topInt);
var boundedChar = new Bounded(function () {
return Data_Ord.ordChar;
}, $foreign.bottomChar, $foreign.topChar);
var bottom = function (dict) {
return dict.bottom;
};
exports["Bounded"] = Bounded;
exports["bottom"] = bottom;
exports["top"] = top;
exports["boundedInt"] = boundedInt;
exports["boundedChar"] = boundedChar;
})(PS["Data.Bounded"] = PS["Data.Bounded"] || {});
(function(exports) {
"use strict";
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;
};
};
};
})(PS["Data.Foldable"] = PS["Data.Foldable"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Alt = PS["Control.Alt"];
var Data_Functor = PS["Data.Functor"];
var Plus = function (Alt0, empty) {
this.Alt0 = Alt0;
this.empty = empty;
};
var empty = function (dict) {
return dict.empty;
};
exports["Plus"] = Plus;
exports["empty"] = empty;
})(PS["Control.Plus"] = PS["Control.Plus"] || {});
(function(exports) {
"use strict";
exports.intDegree = function (x) {
return Math.min(Math.abs(x), 2147483647);
};
// See the Euclidean definition in
// https://en.m.wikipedia.org/wiki/Modulo_operation.
exports.intDiv = function (x) {
return function (y) {
if (y === 0) return 0;
return y > 0 ? Math.floor(x / y) : -Math.floor(x / -y);
};
};
exports.intMod = function (x) {
return function (y) {
if (y === 0) return 0;
var yy = Math.abs(y);
return ((x % yy) + yy) % yy;
};
};
})(PS["Data.EuclideanRing"] = PS["Data.EuclideanRing"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Data_Ring = PS["Data.Ring"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Symbol = PS["Data.Symbol"];
var Data_Unit = PS["Data.Unit"];
var CommutativeRing = function (Ring0) {
this.Ring0 = Ring0;
};
var commutativeRingInt = new CommutativeRing(function () {
return Data_Ring.ringInt;
});
exports["CommutativeRing"] = CommutativeRing;
exports["commutativeRingInt"] = commutativeRingInt;
})(PS["Data.CommutativeRing"] = PS["Data.CommutativeRing"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.EuclideanRing"];
var Data_BooleanAlgebra = PS["Data.BooleanAlgebra"];
var Data_CommutativeRing = PS["Data.CommutativeRing"];
var Data_Eq = PS["Data.Eq"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Ring = PS["Data.Ring"];
var Data_Semiring = PS["Data.Semiring"];
var EuclideanRing = function (CommutativeRing0, degree, div, mod) {
this.CommutativeRing0 = CommutativeRing0;
this.degree = degree;
this.div = div;
this.mod = mod;
};
var mod = function (dict) {
return dict.mod;
};
var euclideanRingInt = new EuclideanRing(function () {
return Data_CommutativeRing.commutativeRingInt;
}, $foreign.intDegree, $foreign.intDiv, $foreign.intMod);
var div = function (dict) {
return dict.div;
};
var degree = function (dict) {
return dict.degree;
};
exports["EuclideanRing"] = EuclideanRing;
exports["degree"] = degree;
exports["div"] = div;
exports["mod"] = mod;
exports["euclideanRingInt"] = euclideanRingInt;
})(PS["Data.EuclideanRing"] = PS["Data.EuclideanRing"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Data_Boolean = PS["Data.Boolean"];
var Data_Eq = PS["Data.Eq"];
var Data_EuclideanRing = PS["Data.EuclideanRing"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Symbol = PS["Data.Symbol"];
var Data_Unit = PS["Data.Unit"];
var Record_Unsafe = PS["Record.Unsafe"];
var Type_Data_RowList = PS["Type.Data.RowList"];
var Monoid = function (Semigroup0, mempty) {
this.Semigroup0 = Semigroup0;
this.mempty = mempty;
};
var monoidString = new Monoid(function () {
return Data_Semigroup.semigroupString;
}, "");
var monoidArray = new Monoid(function () {
return Data_Semigroup.semigroupArray;
}, [ ]);
var mempty = function (dict) {
return dict.mempty;
};
var monoidFn = function (dictMonoid) {
return new Monoid(function () {
return Data_Semigroup.semigroupFn(dictMonoid.Semigroup0());
}, function (v) {
return mempty(dictMonoid);
});
};
var guard = function (dictMonoid) {
return function (v) {
return function (v1) {
if (v) {
return v1;
};
if (!v) {
return mempty(dictMonoid);
};
throw new Error("Failed pattern match at Data.Monoid line 74, column 1 - line 74, column 49: " + [ v.constructor.name, v1.constructor.name ]);
};
};
};
exports["Monoid"] = Monoid;
exports["mempty"] = mempty;
exports["guard"] = guard;
exports["monoidFn"] = monoidFn;
exports["monoidString"] = monoidString;
exports["monoidArray"] = monoidArray;
})(PS["Data.Monoid"] = PS["Data.Monoid"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Alt = PS["Control.Alt"];
var Control_Alternative = PS["Control.Alternative"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Extend = PS["Control.Extend"];
var Control_Monad = PS["Control.Monad"];
var Control_MonadZero = PS["Control.MonadZero"];
var Control_Plus = PS["Control.Plus"];
var Data_Bounded = PS["Data.Bounded"];
var Data_Eq = PS["Data.Eq"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Functor_Invariant = PS["Data.Functor.Invariant"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Show = PS["Data.Show"];
var Data_Unit = PS["Data.Unit"];
var Prelude = PS["Prelude"];
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 maybe = function (v) {
return function (v1) {
return function (v2) {
if (v2 instanceof Nothing) {
return v;
};
if (v2 instanceof Just) {
return v1(v2.value0);
};
throw new Error("Failed pattern match at Data.Maybe line 218, column 1 - line 218, column 51: " + [ v.constructor.name, v1.constructor.name, v2.constructor.name ]);
};
};
};
var isNothing = maybe(true)(Data_Function["const"](false));
var isJust = maybe(false)(Data_Function["const"](true));
var functorMaybe = new Data_Functor.Functor(function (v) {
return function (v1) {
if (v1 instanceof Just) {
return new Just(v(v1.value0));
};
return Nothing.value;
};
});
var fromJust = function (dictPartial) {
return function (v) {
var $__unused = function (dictPartial1) {
return function ($dollar35) {
return $dollar35;
};
};
return $__unused(dictPartial)((function () {
if (v instanceof Just) {
return v.value0;
};
throw new Error("Failed pattern match at Data.Maybe line 269, column 1 - line 269, column 46: " + [ v.constructor.name ]);
})());
};
};
var applyMaybe = new Control_Apply.Apply(function () {
return functorMaybe;
}, function (v) {
return function (v1) {
if (v instanceof Just) {
return Data_Functor.map(functorMaybe)(v.value0)(v1);
};
if (v instanceof Nothing) {
return Nothing.value;
};
throw new Error("Failed pattern match at Data.Maybe line 67, column 1 - line 67, column 35: " + [ v.constructor.name, v1.constructor.name ]);
};
});
var bindMaybe = new Control_Bind.Bind(function () {
return applyMaybe;
}, function (v) {
return function (v1) {
if (v instanceof Just) {
return v1(v.value0);
};
if (v instanceof Nothing) {
return Nothing.value;
};
throw new Error("Failed pattern match at Data.Maybe line 126, column 1 - line 126, column 33: " + [ v.constructor.name, v1.constructor.name ]);
};
});
exports["Nothing"] = Nothing;
exports["Just"] = Just;
exports["maybe"] = maybe;
exports["isJust"] = isJust;
exports["isNothing"] = isNothing;
exports["fromJust"] = fromJust;
exports["functorMaybe"] = functorMaybe;
exports["applyMaybe"] = applyMaybe;
exports["bindMaybe"] = bindMaybe;
})(PS["Data.Maybe"] = PS["Data.Maybe"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Monad = PS["Control.Monad"];
var Data_Bounded = PS["Data.Bounded"];
var Data_Eq = PS["Data.Eq"];
var Data_Functor = PS["Data.Functor"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Ord = PS["Data.Ord"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Show = PS["Data.Show"];
var Prelude = PS["Prelude"];
var Disj = function (x) {
return x;
};
var semigroupDisj = function (dictHeytingAlgebra) {
return new Data_Semigroup.Semigroup(function (v) {
return function (v1) {
return Data_HeytingAlgebra.disj(dictHeytingAlgebra)(v)(v1);
};
});
};
var monoidDisj = function (dictHeytingAlgebra) {
return new Data_Monoid.Monoid(function () {
return semigroupDisj(dictHeytingAlgebra);
}, Data_HeytingAlgebra.ff(dictHeytingAlgebra));
};
exports["Disj"] = Disj;
exports["semigroupDisj"] = semigroupDisj;
exports["monoidDisj"] = monoidDisj;
})(PS["Data.Monoid.Disj"] = PS["Data.Monoid.Disj"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Monoid_Additive = PS["Data.Monoid.Additive"];
var Data_Monoid_Conj = PS["Data.Monoid.Conj"];
var Data_Monoid_Disj = PS["Data.Monoid.Disj"];
var Data_Monoid_Dual = PS["Data.Monoid.Dual"];
var Data_Monoid_Endo = PS["Data.Monoid.Endo"];
var Data_Monoid_Multiplicative = PS["Data.Monoid.Multiplicative"];
var Data_Semigroup_First = PS["Data.Semigroup.First"];
var Data_Semigroup_Last = PS["Data.Semigroup.Last"];
var Prelude = PS["Prelude"];
var Newtype = function (unwrap, wrap) {
this.unwrap = unwrap;
this.wrap = wrap;
};
var wrap = function (dict) {
return dict.wrap;
};
var unwrap = function (dict) {
return dict.unwrap;
};
var newtypeDisj = new Newtype(function (v) {
return v;
}, Data_Monoid_Disj.Disj);
var alaF = function (dictFunctor) {
return function (dictFunctor1) {
return function (dictNewtype) {
return function (dictNewtype1) {
return function (v) {
return function (f) {
return function ($80) {
return Data_Functor.map(dictFunctor1)(unwrap(dictNewtype1))(f(Data_Functor.map(dictFunctor)(wrap(dictNewtype))($80)));
};
};
};
};
};
};
};
exports["unwrap"] = unwrap;
exports["wrap"] = wrap;
exports["Newtype"] = Newtype;
exports["alaF"] = alaF;
exports["newtypeDisj"] = newtypeDisj;
})(PS["Data.Newtype"] = PS["Data.Newtype"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Foldable"];
var Control_Alt = PS["Control.Alt"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Plus = PS["Control.Plus"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Eq = PS["Data.Eq"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
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 = PS["Data.Monoid"];
var Data_Monoid_Additive = PS["Data.Monoid.Additive"];
var Data_Monoid_Conj = PS["Data.Monoid.Conj"];
var Data_Monoid_Disj = PS["Data.Monoid.Disj"];
var Data_Monoid_Dual = PS["Data.Monoid.Dual"];
var Data_Monoid_Endo = PS["Data.Monoid.Endo"];
var Data_Monoid_Multiplicative = PS["Data.Monoid.Multiplicative"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Unit = PS["Data.Unit"];
var Prelude = PS["Prelude"];
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 (dictApplicative) {
return function (dictFoldable) {
return function (f) {
return foldr(dictFoldable)(function ($195) {
return Control_Apply.applySecond(dictApplicative.Apply0())(f($195));
})(Control_Applicative.pure(dictApplicative)(Data_Unit.unit));
};
};
};
var for_ = function (dictApplicative) {
return function (dictFoldable) {
return Data_Function.flip(traverse_(dictApplicative)(dictFoldable));
};
};
var sequence_ = function (dictApplicative) {
return function (dictFoldable) {
return traverse_(dictApplicative)(dictFoldable)(Control_Category.identity(Control_Category.categoryFn));
};
};
var foldl = function (dict) {
return dict.foldl;
};
var intercalate = function (dictFoldable) {
return function (dictMonoid) {
return function (sep) {
return function (xs) {
var go = function (v) {
return function (x) {
if (v.init) {
return {
init: false,
acc: x
};
};
return {
init: false,
acc: Data_Semigroup.append(dictMonoid.Semigroup0())(v.acc)(Data_Semigroup.append(dictMonoid.Semigroup0())(sep)(x))
};
};
};
return (foldl(dictFoldable)(go)({
init: true,
acc: Data_Monoid.mempty(dictMonoid)
})(xs)).acc;
};
};
};
};
var foldableMaybe = new Foldable(function (dictMonoid) {
return function (f) {
return function (v) {
if (v instanceof Data_Maybe.Nothing) {
return Data_Monoid.mempty(dictMonoid);
};
if (v instanceof Data_Maybe.Just) {
return f(v.value0);
};
throw new Error("Failed pattern match at Data.Foldable line 129, column 1 - line 129, column 41: " + [ f.constructor.name, v.constructor.name ]);
};
};
}, function (v) {
return function (z) {
return function (v1) {
if (v1 instanceof Data_Maybe.Nothing) {
return z;
};
if (v1 instanceof Data_Maybe.Just) {
return v(z)(v1.value0);
};
throw new Error("Failed pattern match at Data.Foldable line 129, column 1 - line 129, column 41: " + [ v.constructor.name, z.constructor.name, v1.constructor.name ]);
};
};
}, function (v) {
return function (z) {
return function (v1) {
if (v1 instanceof Data_Maybe.Nothing) {
return z;
};
if (v1 instanceof Data_Maybe.Just) {
return v(v1.value0)(z);
};
throw new Error("Failed pattern match at Data.Foldable line 129, column 1 - line 129, column 41: " + [ v.constructor.name, z.constructor.name, v1.constructor.name ]);
};
};
});
var foldMapDefaultR = function (dictFoldable) {
return function (dictMonoid) {
return function (f) {
return foldr(dictFoldable)(function (x) {
return function (acc) {
return Data_Semigroup.append(dictMonoid.Semigroup0())(f(x))(acc);
};
})(Data_Monoid.mempty(dictMonoid));
};
};
};
var foldableArray = new Foldable(function (dictMonoid) {
return foldMapDefaultR(foldableArray)(dictMonoid);
}, $foreign.foldlArray, $foreign.foldrArray);
var foldMap = function (dict) {
return dict.foldMap;
};
var find = function (dictFoldable) {
return function (p) {
var go = function (v) {
return function (v1) {
if (v instanceof Data_Maybe.Nothing && p(v1)) {
return new Data_Maybe.Just(v1);
};
return v;
};
};
return foldl(dictFoldable)(go)(Data_Maybe.Nothing.value);
};
};
var any = function (dictFoldable) {
return function (dictHeytingAlgebra) {
return Data_Newtype.alaF(Data_Functor.functorFn)(Data_Functor.functorFn)(Data_Newtype.newtypeDisj)(Data_Newtype.newtypeDisj)(Data_Monoid_Disj.Disj)(foldMap(dictFoldable)(Data_Monoid_Disj.monoidDisj(dictHeytingAlgebra)));
};
};
exports["Foldable"] = Foldable;
exports["foldr"] = foldr;
exports["foldl"] = foldl;
exports["foldMap"] = foldMap;
exports["foldMapDefaultR"] = foldMapDefaultR;
exports["traverse_"] = traverse_;
exports["for_"] = for_;
exports["sequence_"] = sequence_;
exports["intercalate"] = intercalate;
exports["any"] = any;
exports["find"] = find;
exports["foldableArray"] = foldableArray;
exports["foldableMaybe"] = foldableMaybe;
})(PS["Data.Foldable"] = PS["Data.Foldable"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Alt = PS["Control.Alt"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Extend = PS["Control.Extend"];
var Control_Monad = PS["Control.Monad"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Bifoldable = PS["Data.Bifoldable"];
var Data_Bifunctor = PS["Data.Bifunctor"];
var Data_Bitraversable = PS["Data.Bitraversable"];
var Data_Bounded = PS["Data.Bounded"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Functor_Invariant = PS["Data.Functor.Invariant"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Show = PS["Data.Show"];
var Data_Traversable = PS["Data.Traversable"];
var Prelude = PS["Prelude"];
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 functorEither = new Data_Functor.Functor(function (f) {
return function (m) {
if (m instanceof Left) {
return new Left(m.value0);
};
if (m instanceof Right) {
return new Right(f(m.value0));
};
throw new Error("Failed pattern match at Data.Either line 35, column 8 - line 35, column 52: " + [ m.constructor.name ]);
};
});
var either = function (v) {
return function (v1) {
return function (v2) {
if (v2 instanceof Left) {
return v(v2.value0);
};
if (v2 instanceof Right) {
return v1(v2.value0);
};
throw new Error("Failed pattern match at Data.Either line 220, column 1 - line 220, column 64: " + [ v.constructor.name, v1.constructor.name, v2.constructor.name ]);
};
};
};
var bifunctorEither = new Data_Bifunctor.Bifunctor(function (v) {
return function (v1) {
return function (v2) {
if (v2 instanceof Left) {
return new Left(v(v2.value0));
};
if (v2 instanceof Right) {
return new Right(v1(v2.value0));
};
throw new Error("Failed pattern match at Data.Either line 40, column 1 - line 40, column 45: " + [ v.constructor.name, v1.constructor.name, v2.constructor.name ]);
};
};
});
var applyEither = new Control_Apply.Apply(function () {
return functorEither;
}, function (v) {
return function (v1) {
if (v instanceof Left) {
return new Left(v.value0);
};
if (v instanceof Right) {
return Data_Functor.map(functorEither)(v.value0)(v1);
};
throw new Error("Failed pattern match at Data.Either line 76, column 1 - line 76, column 41: " + [ v.constructor.name, v1.constructor.name ]);
};
});
exports["Left"] = Left;
exports["Right"] = Right;
exports["either"] = either;
exports["functorEither"] = functorEither;
exports["bifunctorEither"] = bifunctorEither;
exports["applyEither"] = applyEither;
})(PS["Data.Either"] = PS["Data.Either"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Alt = PS["Control.Alt"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Comonad = PS["Control.Comonad"];
var Control_Extend = PS["Control.Extend"];
var Control_Lazy = PS["Control.Lazy"];
var Control_Monad = PS["Control.Monad"];
var Data_BooleanAlgebra = PS["Data.BooleanAlgebra"];
var Data_Bounded = PS["Data.Bounded"];
var Data_CommutativeRing = PS["Data.CommutativeRing"];
var Data_Eq = PS["Data.Eq"];
var Data_EuclideanRing = PS["Data.EuclideanRing"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Functor = PS["Data.Functor"];
var Data_Functor_Invariant = PS["Data.Functor.Invariant"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Ord = PS["Data.Ord"];
var Data_Ring = PS["Data.Ring"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Show = PS["Data.Show"];
var Data_Traversable = PS["Data.Traversable"];
var Prelude = PS["Prelude"];
var Identity = function (x) {
return x;
};
var newtypeIdentity = new Data_Newtype.Newtype(function (n) {
return n;
}, Identity);
var functorIdentity = new Data_Functor.Functor(function (f) {
return function (m) {
return f(m);
};
});
var applyIdentity = new Control_Apply.Apply(function () {
return functorIdentity;
}, function (v) {
return function (v1) {
return v(v1);
};
});
var bindIdentity = new Control_Bind.Bind(function () {
return applyIdentity;
}, function (v) {
return function (f) {
return f(v);
};
});
var applicativeIdentity = new Control_Applicative.Applicative(function () {
return applyIdentity;
}, Identity);
var monadIdentity = new Control_Monad.Monad(function () {
return applicativeIdentity;
}, function () {
return bindIdentity;
});
exports["Identity"] = Identity;
exports["newtypeIdentity"] = newtypeIdentity;
exports["functorIdentity"] = functorIdentity;
exports["applyIdentity"] = applyIdentity;
exports["applicativeIdentity"] = applicativeIdentity;
exports["bindIdentity"] = bindIdentity;
exports["monadIdentity"] = monadIdentity;
})(PS["Data.Identity"] = PS["Data.Identity"] || {});
(function(exports) {
"use strict";
exports.pureE = function (a) {
return function () {
return a;
};
};
exports.bindE = function (a) {
return function (f) {
return function () {
return f(a())();
};
};
};
exports.foreachE = function (as) {
return function (f) {
return function () {
for (var i = 0, l = as.length; i < l; i++) {
f(as[i])();
}
};
};
};
})(PS["Effect"] = PS["Effect"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Effect"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Monad = PS["Control.Monad"];
var Data_Functor = PS["Data.Functor"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Semigroup = PS["Data.Semigroup"];
var Prelude = PS["Prelude"];
var monadEffect = new Control_Monad.Monad(function () {
return applicativeEffect;
}, function () {
return bindEffect;
});
var bindEffect = new Control_Bind.Bind(function () {
return applyEffect;
}, $foreign.bindE);
var applyEffect = new Control_Apply.Apply(function () {
return functorEffect;
}, Control_Monad.ap(monadEffect));
var applicativeEffect = new Control_Applicative.Applicative(function () {
return applyEffect;
}, $foreign.pureE);
var functorEffect = new Data_Functor.Functor(Control_Applicative.liftA1(applicativeEffect));
exports["functorEffect"] = functorEffect;
exports["applyEffect"] = applyEffect;
exports["applicativeEffect"] = applicativeEffect;
exports["bindEffect"] = bindEffect;
exports["monadEffect"] = monadEffect;
exports["foreachE"] = $foreign.foreachE;
})(PS["Effect"] = PS["Effect"] || {});
(function(exports) {
"use strict";
exports.new = function (val) {
return function () {
return { value: val };
};
};
exports.read = function (ref) {
return function () {
return ref.value;
};
};
exports["modify'"] = function (f) {
return function (ref) {
return function () {
var t = f(ref.value);
ref.value = t.state;
return t.value;
};
};
};
exports.write = function (val) {
return function (ref) {
return function () {
ref.value = val;
return {};
};
};
};
})(PS["Effect.Ref"] = PS["Effect.Ref"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Effect.Ref"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Effect = PS["Effect"];
var Prelude = PS["Prelude"];
var modify = function (f) {
return $foreign["modify'"](function (s) {
var s$prime = f(s);
return {
state: s$prime,
value: s$prime
};
});
};
var modify_ = function (f) {
return function (s) {
return Data_Functor["void"](Effect.functorEffect)(modify(f)(s));
};
};
exports["modify"] = modify;
exports["modify_"] = modify_;
exports["new"] = $foreign["new"];
exports["read"] = $foreign.read;
exports["modify'"] = $foreign["modify'"];
exports["write"] = $foreign.write;
})(PS["Effect.Ref"] = PS["Effect.Ref"] || {});
(function(exports) {
"use strict";
// module Partial.Unsafe
exports.unsafePartial = function (f) {
return f();
};
})(PS["Partial.Unsafe"] = PS["Partial.Unsafe"] || {});
(function(exports) {
"use strict";
// module Partial
exports.crashWith = function () {
return function (msg) {
throw new Error(msg);
};
};
})(PS["Partial"] = PS["Partial"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Partial"];
exports["crashWith"] = $foreign.crashWith;
})(PS["Partial"] = PS["Partial"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Partial.Unsafe"];
var Partial = PS["Partial"];
var unsafeCrashWith = function (msg) {
return $foreign.unsafePartial(function (dictPartial) {
return Partial.crashWith(dictPartial)(msg);
});
};
exports["unsafeCrashWith"] = unsafeCrashWith;
})(PS["Partial.Unsafe"] = PS["Partial.Unsafe"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Monad = PS["Control.Monad"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Bifunctor = PS["Data.Bifunctor"];
var Data_Either = PS["Data.Either"];
var Data_Functor = PS["Data.Functor"];
var Data_Identity = PS["Data.Identity"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Unit = PS["Data.Unit"];
var Effect = PS["Effect"];
var Effect_Ref = PS["Effect.Ref"];
var Partial_Unsafe = PS["Partial.Unsafe"];
var Prelude = PS["Prelude"];
var Loop = (function () {
function Loop(value0) {
this.value0 = value0;
};
Loop.create = function (value0) {
return new Loop(value0);
};
return Loop;
})();
var Done = (function () {
function Done(value0) {
this.value0 = value0;
};
Done.create = function (value0) {
return new Done(value0);
};
return Done;
})();
var MonadRec = function (Monad0, tailRecM) {
this.Monad0 = Monad0;
this.tailRecM = tailRecM;
};
var tailRecM = function (dict) {
return dict.tailRecM;
};
var monadRecEffect = new MonadRec(function () {
return Effect.monadEffect;
}, function (f) {
return function (a) {
var fromDone = function (v) {
var $__unused = function (dictPartial1) {
return function ($dollar19) {
return $dollar19;
};
};
return $__unused()((function () {
if (v instanceof Done) {
return v.value0;
};
throw new Error("Failed pattern match at Control.Monad.Rec.Class line 111, column 30 - line 111, column 44: " + [ v.constructor.name ]);
})());
};
return function __do() {
var v = Control_Bind.bindFlipped(Effect.bindEffect)(Effect_Ref["new"])(f(a))();
(function () {
while (!(function __do() {
var v1 = Effect_Ref.read(v)();
if (v1 instanceof Loop) {
var v2 = f(v1.value0)();
var v3 = Effect_Ref.write(v2)(v)();
return false;
};
if (v1 instanceof Done) {
return true;
};
throw new Error("Failed pattern match at Control.Monad.Rec.Class line 102, column 22 - line 107, column 28: " + [ v1.constructor.name ]);
})()) {
};
return {};
})();
return Data_Functor.map(Effect.functorEffect)(fromDone)(Effect_Ref.read(v))();
};
};
});
exports["Loop"] = Loop;
exports["Done"] = Done;
exports["MonadRec"] = MonadRec;
exports["tailRecM"] = tailRecM;
exports["monadRecEffect"] = monadRecEffect;
})(PS["Control.Monad.Rec.Class"] = PS["Control.Monad.Rec.Class"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Biapplicative = PS["Control.Biapplicative"];
var Control_Biapply = PS["Control.Biapply"];
var Control_Bind = PS["Control.Bind"];
var Control_Comonad = PS["Control.Comonad"];
var Control_Extend = PS["Control.Extend"];
var Control_Lazy = PS["Control.Lazy"];
var Control_Monad = PS["Control.Monad"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Bifoldable = PS["Data.Bifoldable"];
var Data_Bifunctor = PS["Data.Bifunctor"];
var Data_Bitraversable = PS["Data.Bitraversable"];
var Data_BooleanAlgebra = PS["Data.BooleanAlgebra"];
var Data_Bounded = PS["Data.Bounded"];
var Data_CommutativeRing = PS["Data.CommutativeRing"];
var Data_Distributive = PS["Data.Distributive"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Functor_Invariant = PS["Data.Functor.Invariant"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Maybe_First = PS["Data.Maybe.First"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Ring = PS["Data.Ring"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Show = PS["Data.Show"];
var Data_Traversable = PS["Data.Traversable"];
var Data_Unit = PS["Data.Unit"];
var Prelude = PS["Prelude"];
var Type_Equality = PS["Type.Equality"];
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 snd = function (v) {
return v.value1;
};
var functorTuple = new Data_Functor.Functor(function (f) {
return function (m) {
return new Tuple(m.value0, f(m.value1));
};
});
var fst = function (v) {
return v.value0;
};
exports["Tuple"] = Tuple;
exports["fst"] = fst;
exports["snd"] = snd;
exports["functorTuple"] = functorTuple;
})(PS["Data.Tuple"] = PS["Data.Tuple"] || {});
(function(exports) {
"use strict";
exports.unfoldrArrayImpl = function (isNothing) {
return function (fromJust) {
return function (fst) {
return function (snd) {
return function (f) {
return function (b) {
var result = [];
var value = b;
while (true) { // eslint-disable-line no-constant-condition
var maybe = f(value);
if (isNothing(maybe)) return result;
var tuple = fromJust(maybe);
result.push(fst(tuple));
value = snd(tuple);
}
};
};
};
};
};
};
})(PS["Data.Unfoldable"] = PS["Data.Unfoldable"] || {});
(function(exports) {
"use strict";
exports.unfoldr1ArrayImpl = function (isNothing) {
return function (fromJust) {
return function (fst) {
return function (snd) {
return function (f) {
return function (b) {
var result = [];
var value = b;
while (true) { // eslint-disable-line no-constant-condition
var tuple = f(value);
result.push(fst(tuple));
var maybe = snd(tuple);
if (isNothing(maybe)) return result;
value = fromJust(maybe);
}
};
};
};
};
};
};
})(PS["Data.Unfoldable1"] = PS["Data.Unfoldable1"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Unfoldable1"];
var Data_Boolean = PS["Data.Boolean"];
var Data_Eq = PS["Data.Eq"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ord = PS["Data.Ord"];
var Data_Ring = PS["Data.Ring"];
var Data_Semigroup_Traversable = PS["Data.Semigroup.Traversable"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Tuple = PS["Data.Tuple"];
var Partial_Unsafe = PS["Partial.Unsafe"];
var Prelude = PS["Prelude"];
var Unfoldable1 = function (unfoldr1) {
this.unfoldr1 = unfoldr1;
};
var unfoldr1 = function (dict) {
return dict.unfoldr1;
};
var unfoldable1Array = new Unfoldable1($foreign.unfoldr1ArrayImpl(Data_Maybe.isNothing)(Data_Maybe.fromJust())(Data_Tuple.fst)(Data_Tuple.snd));
exports["Unfoldable1"] = Unfoldable1;
exports["unfoldr1"] = unfoldr1;
exports["unfoldable1Array"] = unfoldable1Array;
})(PS["Data.Unfoldable1"] = PS["Data.Unfoldable1"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Unfoldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ord = PS["Data.Ord"];
var Data_Ring = PS["Data.Ring"];
var Data_Traversable = PS["Data.Traversable"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unfoldable1 = PS["Data.Unfoldable1"];
var Data_Unit = PS["Data.Unit"];
var Partial_Unsafe = PS["Partial.Unsafe"];
var Prelude = PS["Prelude"];
var Unfoldable = function (Unfoldable10, unfoldr) {
this.Unfoldable10 = Unfoldable10;
this.unfoldr = unfoldr;
};
var unfoldr = function (dict) {
return dict.unfoldr;
};
var unfoldableArray = new Unfoldable(function () {
return Data_Unfoldable1.unfoldable1Array;
}, $foreign.unfoldrArrayImpl(Data_Maybe.isNothing)(Data_Maybe.fromJust())(Data_Tuple.fst)(Data_Tuple.snd));
exports["Unfoldable"] = Unfoldable;
exports["unfoldr"] = unfoldr;
exports["unfoldableArray"] = unfoldableArray;
})(PS["Data.Unfoldable"] = PS["Data.Unfoldable"] || {});
(function(exports) {
"use strict";
// module Unsafe.Coerce
exports.unsafeCoerce = function (x) {
return x;
};
})(PS["Unsafe.Coerce"] = PS["Unsafe.Coerce"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Unsafe.Coerce"];
exports["unsafeCoerce"] = $foreign.unsafeCoerce;
})(PS["Unsafe.Coerce"] = PS["Unsafe.Coerce"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Array"];
var Control_Alt = PS["Control.Alt"];
var Control_Alternative = PS["Control.Alternative"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Lazy = PS["Control.Lazy"];
var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"];
var Control_Monad_ST = PS["Control.Monad.ST"];
var Control_Monad_ST_Internal = PS["Control.Monad.ST.Internal"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Array_NonEmpty_Internal = PS["Data.Array.NonEmpty.Internal"];
var Data_Array_ST = PS["Data.Array.ST"];
var Data_Array_ST_Iterator = PS["Data.Array.ST.Iterator"];
var Data_Boolean = PS["Data.Boolean"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Ring = PS["Data.Ring"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Traversable = PS["Data.Traversable"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unfoldable = PS["Data.Unfoldable"];
var Partial_Unsafe = PS["Partial.Unsafe"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var singleton = function (a) {
return [ a ];
};
var concatMap = Data_Function.flip(Control_Bind.bind(Control_Bind.bindArray));
var mapMaybe = function (f) {
return concatMap(function ($114) {
return Data_Maybe.maybe([ ])(singleton)(f($114));
});
};
exports["singleton"] = singleton;
exports["concatMap"] = concatMap;
exports["mapMaybe"] = mapMaybe;
exports["length"] = $foreign.length;
exports["cons"] = $foreign.cons;
exports["snoc"] = $foreign.snoc;
exports["filter"] = $foreign.filter;
exports["drop"] = $foreign.drop;
})(PS["Data.Array"] = PS["Data.Array"] || {});
(function(exports) {
"use strict";
exports.replace = function (s1) {
return function (s2) {
return function (s3) {
return s3.replace(s1, s2);
};
};
};
exports.replaceAll = function (s1) {
return function (s2) {
return function (s3) {
return s3.replace(new RegExp(s1.replace(/[-\/\\^$*+?.()|[\]{}]/g, "\\$&"), "g"), s2); // eslint-disable-line no-useless-escape
};
};
};
exports.split = function (sep) {
return function (s) {
return s.split(sep);
};
};
exports.joinWith = function (s) {
return function (xs) {
return xs.join(s);
};
};
})(PS["Data.String.Common"] = PS["Data.String.Common"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.String.Common"];
var Data_Eq = PS["Data.Eq"];
var Data_Ordering = PS["Data.Ordering"];
var Data_String_Pattern = PS["Data.String.Pattern"];
var Prelude = PS["Prelude"];
var $$null = function (s) {
return s === "";
};
exports["null"] = $$null;
exports["replaceAll"] = $foreign.replaceAll;
exports["split"] = $foreign.split;
exports["joinWith"] = $foreign.joinWith;
})(PS["Data.String.Common"] = PS["Data.String.Common"] || {});
(function(exports) {
/* globals exports, JSON */
"use strict";
exports.unsafeStringify = function (x) {
return JSON.stringify(x);
};
exports.unsafeDecodeURIComponent = decodeURIComponent;
exports.unsafeEncodeURIComponent = encodeURIComponent;
})(PS["Global.Unsafe"] = PS["Global.Unsafe"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Global.Unsafe"];
exports["unsafeStringify"] = $foreign.unsafeStringify;
exports["unsafeDecodeURIComponent"] = $foreign.unsafeDecodeURIComponent;
exports["unsafeEncodeURIComponent"] = $foreign.unsafeEncodeURIComponent;
})(PS["Global.Unsafe"] = PS["Global.Unsafe"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Eq = PS["Data.Eq"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Ord = PS["Data.Ord"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Show = PS["Data.Show"];
var Data_String = PS["Data.String"];
var Data_String_Common = PS["Data.String.Common"];
var Data_Tuple = PS["Data.Tuple"];
var Global_Unsafe = PS["Global.Unsafe"];
var Prelude = PS["Prelude"];
var toArray = function (v) {
return v;
};
var encode = (function () {
var encodePart = function (v) {
if (v.value1 instanceof Data_Maybe.Nothing) {
return Global_Unsafe.unsafeEncodeURIComponent(v.value0);
};
if (v.value1 instanceof Data_Maybe.Just) {
return Global_Unsafe.unsafeEncodeURIComponent(v.value0) + ("=" + Global_Unsafe.unsafeEncodeURIComponent(v.value1.value0));
};
throw new Error("Failed pattern match at Data.FormURLEncoded line 35, column 18 - line 37, column 89: " + [ v.constructor.name ]);
};
return function ($14) {
return Data_String_Common.joinWith("&")(Data_Functor.map(Data_Functor.functorArray)(encodePart)(toArray($14)));
};
})();
exports["toArray"] = toArray;
exports["encode"] = encode;
})(PS["Data.FormURLEncoded"] = PS["Data.FormURLEncoded"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Data_Either = PS["Data.Either"];
var Data_Eq = PS["Data.Eq"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Show = PS["Data.Show"];
var Data_String = PS["Data.String"];
var Data_String_Common = PS["Data.String.Common"];
var Prelude = PS["Prelude"];
var OPTIONS = (function () {
function OPTIONS() {
};
OPTIONS.value = new OPTIONS();
return OPTIONS;
})();
var GET = (function () {
function GET() {
};
GET.value = new GET();
return GET;
})();
var HEAD = (function () {
function HEAD() {
};
HEAD.value = new HEAD();
return HEAD;
})();
var POST = (function () {
function POST() {
};
POST.value = new POST();
return POST;
})();
var PUT = (function () {
function PUT() {
};
PUT.value = new PUT();
return PUT;
})();
var DELETE = (function () {
function DELETE() {
};
DELETE.value = new DELETE();
return DELETE;
})();
var TRACE = (function () {
function TRACE() {
};
TRACE.value = new TRACE();
return TRACE;
})();
var CONNECT = (function () {
function CONNECT() {
};
CONNECT.value = new CONNECT();
return CONNECT;
})();
var PROPFIND = (function () {
function PROPFIND() {
};
PROPFIND.value = new PROPFIND();
return PROPFIND;
})();
var PROPPATCH = (function () {
function PROPPATCH() {
};
PROPPATCH.value = new PROPPATCH();
return PROPPATCH;
})();
var MKCOL = (function () {
function MKCOL() {
};
MKCOL.value = new MKCOL();
return MKCOL;
})();
var COPY = (function () {
function COPY() {
};
COPY.value = new COPY();
return COPY;
})();
var MOVE = (function () {
function MOVE() {
};
MOVE.value = new MOVE();
return MOVE;
})();
var LOCK = (function () {
function LOCK() {
};
LOCK.value = new LOCK();
return LOCK;
})();
var UNLOCK = (function () {
function UNLOCK() {
};
UNLOCK.value = new UNLOCK();
return UNLOCK;
})();
var PATCH = (function () {
function PATCH() {
};
PATCH.value = new PATCH();
return PATCH;
})();
var unCustomMethod = function (v) {
return v;
};
var showMethod = new Data_Show.Show(function (v) {
if (v instanceof OPTIONS) {
return "OPTIONS";
};
if (v instanceof GET) {
return "GET";
};
if (v instanceof HEAD) {
return "HEAD";
};
if (v instanceof POST) {
return "POST";
};
if (v instanceof PUT) {
return "PUT";
};
if (v instanceof DELETE) {
return "DELETE";
};
if (v instanceof TRACE) {
return "TRACE";
};
if (v instanceof CONNECT) {
return "CONNECT";
};
if (v instanceof PROPFIND) {
return "PROPFIND";
};
if (v instanceof PROPPATCH) {
return "PROPPATCH";
};
if (v instanceof MKCOL) {
return "MKCOL";
};
if (v instanceof COPY) {
return "COPY";
};
if (v instanceof MOVE) {
return "MOVE";
};
if (v instanceof LOCK) {
return "LOCK";
};
if (v instanceof UNLOCK) {
return "UNLOCK";
};
if (v instanceof PATCH) {
return "PATCH";
};
throw new Error("Failed pattern match at Data.HTTP.Method line 40, column 1 - line 40, column 35: " + [ v.constructor.name ]);
});
var print = Data_Either.either(Data_Show.show(showMethod))(unCustomMethod);
exports["OPTIONS"] = OPTIONS;
exports["GET"] = GET;
exports["HEAD"] = HEAD;
exports["POST"] = POST;
exports["PUT"] = PUT;
exports["DELETE"] = DELETE;
exports["TRACE"] = TRACE;
exports["CONNECT"] = CONNECT;
exports["PROPFIND"] = PROPFIND;
exports["PROPPATCH"] = PROPPATCH;
exports["MKCOL"] = MKCOL;
exports["COPY"] = COPY;
exports["MOVE"] = MOVE;
exports["LOCK"] = LOCK;
exports["UNLOCK"] = UNLOCK;
exports["PATCH"] = PATCH;
exports["unCustomMethod"] = unCustomMethod;
exports["print"] = print;
exports["showMethod"] = showMethod;
})(PS["Data.HTTP.Method"] = PS["Data.HTTP.Method"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Data_Eq = PS["Data.Eq"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Ord = PS["Data.Ord"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Show = PS["Data.Show"];
var Prelude = PS["Prelude"];
var MediaType = function (x) {
return x;
};
var newtypeMediaType = new Data_Newtype.Newtype(function (n) {
return n;
}, MediaType);
exports["MediaType"] = MediaType;
exports["newtypeMediaType"] = newtypeMediaType;
})(PS["Data.MediaType"] = PS["Data.MediaType"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Data_MediaType = PS["Data.MediaType"];
var applicationJSON = "application/json";
var applicationFormURLEncoded = "application/x-www-form-urlencoded";
exports["applicationFormURLEncoded"] = applicationFormURLEncoded;
exports["applicationJSON"] = applicationJSON;
})(PS["Data.MediaType.Common"] = PS["Data.MediaType.Common"] || {});
(function(exports) {
/* globals setImmediate, clearImmediate, setTimeout, clearTimeout */
/* jshint -W083, -W098, -W003 */
"use strict";
var Aff = function () {
// A unique value for empty.
var EMPTY = {};
/*
An awkward approximation. We elide evidence we would otherwise need in PS for
efficiency sake.
data Aff eff a
= Pure a
| Throw Error
| Catch (Aff eff a) (Error -> Aff eff a)
| Sync (Eff eff a)
| Async ((Either Error a -> Eff eff Unit) -> Eff eff (Canceler eff))
| forall b. Bind (Aff eff b) (b -> Aff eff a)
| forall b. Bracket (Aff eff b) (BracketConditions eff b) (b -> Aff eff a)
| forall b. Fork Boolean (Aff eff b) ?(Fiber eff b -> a)
| Sequential (ParAff aff a)
*/
var PURE = "Pure";
var THROW = "Throw";
var CATCH = "Catch";
var SYNC = "Sync";
var ASYNC = "Async";
var BIND = "Bind";
var BRACKET = "Bracket";
var FORK = "Fork";
var SEQ = "Sequential";
/*
data ParAff eff a
= forall b. Map (b -> a) (ParAff eff b)
| forall b. Apply (ParAff eff (b -> a)) (ParAff eff b)
| Alt (ParAff eff a) (ParAff eff a)
| ?Par (Aff eff a)
*/
var MAP = "Map";
var APPLY = "Apply";
var ALT = "Alt";
// Various constructors used in interpretation
var CONS = "Cons"; // Cons-list, for stacks
var RESUME = "Resume"; // Continue indiscriminately
var RELEASE = "Release"; // Continue with bracket finalizers
var FINALIZER = "Finalizer"; // A non-interruptible effect
var FINALIZED = "Finalized"; // Marker for finalization
var FORKED = "Forked"; // Reference to a forked fiber, with resumption stack
var FIBER = "Fiber"; // Actual fiber reference
var THUNK = "Thunk"; // Primed effect, ready to invoke
function Aff(tag, _1, _2, _3) {
this.tag = tag;
this._1 = _1;
this._2 = _2;
this._3 = _3;
}
function AffCtr(tag) {
var fn = function (_1, _2, _3) {
return new Aff(tag, _1, _2, _3);
};
fn.tag = tag;
return fn;
}
function nonCanceler(error) {
return new Aff(PURE, void 0);
}
function runEff(eff) {
try {
eff();
} catch (error) {
setTimeout(function () {
throw error;
}, 0);
}
}
function runSync(left, right, eff) {
try {
return right(eff());
} catch (error) {
return left(error);
}
}
function runAsync(left, eff, k) {
try {
return eff(k)();
} catch (error) {
k(left(error))();
return nonCanceler;
}
}
var Scheduler = function () {
var limit = 1024;
var size = 0;
var ix = 0;
var queue = new Array(limit);
var draining = false;
function drain() {
var thunk;
draining = true;
while (size !== 0) {
size--;
thunk = queue[ix];
queue[ix] = void 0;
ix = (ix + 1) % limit;
thunk();
}
draining = false;
}
return {
isDraining: function () {
return draining;
},
enqueue: function (cb) {
var i, tmp;
if (size === limit) {
tmp = draining;
drain();
draining = tmp;
}
queue[(ix + size) % limit] = cb;
size++;
if (!draining) {
drain();
}
}
};
}();
function Supervisor(util) {
var fibers = {};
var fiberId = 0;
var count = 0;
return {
register: function (fiber) {
var fid = fiberId++;
fiber.onComplete({
rethrow: true,
handler: function (result) {
return function () {
count--;
delete fibers[fid];
};
}
});
fibers[fid] = fiber;
count++;
},
isEmpty: function () {
return count === 0;
},
killAll: function (killError, cb) {
return function () {
var killCount = 0;
var kills = {};
function kill(fid) {
kills[fid] = fibers[fid].kill(killError, function (result) {
return function () {
delete kills[fid];
killCount--;
if (util.isLeft(result) && util.fromLeft(result)) {
setTimeout(function () {
throw util.fromLeft(result);
}, 0);
}
if (killCount === 0) {
cb();
}
};
})();
}
for (var k in fibers) {
if (fibers.hasOwnProperty(k)) {
killCount++;
kill(k);
}
}
fibers = {};
fiberId = 0;
count = 0;
return function (error) {
return new Aff(SYNC, function () {
for (var k in kills) {
if (kills.hasOwnProperty(k)) {
kills[k]();
}
}
});
};
};
}
};
}
// Fiber state machine
var SUSPENDED = 0; // Suspended, pending a join.
var CONTINUE = 1; // Interpret the next instruction.
var STEP_BIND = 2; // Apply the next bind.
var STEP_RESULT = 3; // Handle potential failure from a result.
var PENDING = 4; // An async effect is running.
var RETURN = 5; // The current stack has returned.
var COMPLETED = 6; // The entire fiber has completed.
function Fiber(util, supervisor, aff) {
// Monotonically increasing tick, increased on each asynchronous turn.
var runTick = 0;
// The current branch of the state machine.
var status = SUSPENDED;
// The current point of interest for the state machine branch.
var step = aff; // Successful step
var fail = null; // Failure step
var interrupt = null; // Asynchronous interrupt
// Stack of continuations for the current fiber.
var bhead = null;
var btail = null;
// Stack of attempts and finalizers for error recovery. Every `Cons` is also
// tagged with current `interrupt` state. We use this to track which items
// should be ignored or evaluated as a result of a kill.
var attempts = null;
// A special state is needed for Bracket, because it cannot be killed. When
// we enter a bracket acquisition or finalizer, we increment the counter,
// and then decrement once complete.
var bracketCount = 0;
// Each join gets a new id so they can be revoked.
var joinId = 0;
var joins = null;
var rethrow = true;
// Each invocation of `run` requires a tick. When an asynchronous effect is
// resolved, we must check that the local tick coincides with the fiber
// tick before resuming. This prevents multiple async continuations from
// accidentally resuming the same fiber. A common example may be invoking
// the provided callback in `makeAff` more than once, but it may also be an
// async effect resuming after the fiber was already cancelled.
function run(localRunTick) {
var tmp, result, attempt, canceler;
while (true) {
tmp = null;
result = null;
attempt = null;
canceler = null;
switch (status) {
case STEP_BIND:
status = CONTINUE;
step = bhead(step);
if (btail === null) {
bhead = null;
} else {
bhead = btail._1;
btail = btail._2;
}
break;
case STEP_RESULT:
if (util.isLeft(step)) {
status = RETURN;
fail = step;
step = null;
} else if (bhead === null) {
status = RETURN;
} else {
status = STEP_BIND;
step = util.fromRight(step);
}
break;
case CONTINUE:
switch (step.tag) {
case BIND:
if (bhead) {
btail = new Aff(CONS, bhead, btail);
}
bhead = step._2;
status = CONTINUE;
step = step._1;
break;
case PURE:
if (bhead === null) {
status = RETURN;
step = util.right(step._1);
} else {
status = STEP_BIND;
step = step._1;
}
break;
case SYNC:
status = STEP_RESULT;
step = runSync(util.left, util.right, step._1);
break;
case ASYNC:
status = PENDING;
step = runAsync(util.left, step._1, function (result) {
return function () {
if (runTick !== localRunTick) {
return;
}
runTick++;
Scheduler.enqueue(function () {
status = STEP_RESULT;
step = result;
run(runTick);
});
};
});
return;
case THROW:
status = RETURN;
fail = util.left(step._1);
step = null;
break;
// Enqueue the Catch so that we can call the error handler later on
// in case of an exception.
case CATCH:
if (bhead === null) {
attempts = new Aff(CONS, step, attempts, interrupt);
} else {
attempts = new Aff(CONS, step, new Aff(CONS, new Aff(RESUME, bhead, btail), attempts, interrupt), interrupt);
}
bhead = null;
btail = null;
status = CONTINUE;
step = step._1;
break;
// Enqueue the Bracket so that we can call the appropriate handlers
// after resource acquisition.
case BRACKET:
bracketCount++;
if (bhead === null) {
attempts = new Aff(CONS, step, attempts, interrupt);
} else {
attempts = new Aff(CONS, step, new Aff(CONS, new Aff(RESUME, bhead, btail), attempts, interrupt), interrupt);
}
bhead = null;
btail = null;
status = CONTINUE;
step = step._1;
break;
case FORK:
status = STEP_RESULT;
tmp = Fiber(util, supervisor, step._2);
if (supervisor) {
supervisor.register(tmp);
}
if (step._1) {
tmp.run();
}
step = util.right(tmp);
break;
case SEQ:
status = CONTINUE;
step = sequential(util, supervisor, step._1);
break;
}
break;
case RETURN:
bhead = null;
btail = null;
// If the current stack has returned, and we have no other stacks to
// resume or finalizers to run, the fiber has halted and we can
// invoke all join callbacks. Otherwise we need to resume.
if (attempts === null) {
status = COMPLETED;
step = interrupt || fail || step;
} else {
// The interrupt status for the enqueued item.
tmp = attempts._3;
attempt = attempts._1;
attempts = attempts._2;
switch (attempt.tag) {
// We cannot recover from an interrupt. Otherwise we should
// continue stepping, or run the exception handler if an exception
// was raised.
case CATCH:
// We should compare the interrupt status as well because we
// only want it to apply if there has been an interrupt since
// enqueuing the catch.
if (interrupt && interrupt !== tmp) {
status = RETURN;
} else if (fail) {
status = CONTINUE;
step = attempt._2(util.fromLeft(fail));
fail = null;
}
break;
// We cannot resume from an interrupt or exception.
case RESUME:
// As with Catch, we only want to ignore in the case of an
// interrupt since enqueing the item.
if (interrupt && interrupt !== tmp || fail) {
status = RETURN;
} else {
bhead = attempt._1;
btail = attempt._2;
status = STEP_BIND;
step = util.fromRight(step);
}
break;
// If we have a bracket, we should enqueue the handlers,
// and continue with the success branch only if the fiber has
// not been interrupted. If the bracket acquisition failed, we
// should not run either.
case BRACKET:
bracketCount--;
if (fail === null) {
result = util.fromRight(step);
// We need to enqueue the Release with the same interrupt
// status as the Bracket that is initiating it.
attempts = new Aff(CONS, new Aff(RELEASE, attempt._2, result), attempts, tmp);
// We should only coninue as long as the interrupt status has not changed or
// we are currently within a non-interruptable finalizer.
if (interrupt === tmp || bracketCount > 0) {
status = CONTINUE;
step = attempt._3(result);
}
}
break;
// Enqueue the appropriate handler. We increase the bracket count
// because it should not be cancelled.
case RELEASE:
bracketCount++;
attempts = new Aff(CONS, new Aff(FINALIZED, step), attempts, interrupt);
status = CONTINUE;
// It has only been killed if the interrupt status has changed
// since we enqueued the item.
if (interrupt && interrupt !== tmp) {
step = attempt._1.killed(util.fromLeft(interrupt))(attempt._2);
} else if (fail) {
step = attempt._1.failed(util.fromLeft(fail))(attempt._2);
} else {
step = attempt._1.completed(util.fromRight(step))(attempt._2);
}
break;
case FINALIZER:
bracketCount++;
attempts = new Aff(CONS, new Aff(FINALIZED, step), attempts, interrupt);
status = CONTINUE;
step = attempt._1;
break;
case FINALIZED:
bracketCount--;
status = RETURN;
step = attempt._1;
break;
}
}
break;
case COMPLETED:
for (var k in joins) {
if (joins.hasOwnProperty(k)) {
rethrow = rethrow && joins[k].rethrow;
runEff(joins[k].handler(step));
}
}
joins = null;
// If we have an interrupt and a fail, then the thread threw while
// running finalizers. This should always rethrow in a fresh stack.
if (interrupt && fail) {
setTimeout(function () {
throw util.fromLeft(fail);
}, 0);
// If we have an unhandled exception, and no other fiber has joined
// then we need to throw the exception in a fresh stack.
} else if (util.isLeft(step) && rethrow) {
setTimeout(function () {
// Guard on reathrow because a completely synchronous fiber can
// still have an observer which was added after-the-fact.
if (rethrow) {
throw util.fromLeft(step);
}
}, 0);
}
return;
case SUSPENDED:
status = CONTINUE;
break;
case PENDING: return;
}
}
}
function onComplete(join) {
return function () {
if (status === COMPLETED) {
rethrow = rethrow && join.rethrow;
join.handler(step)();
return function () {};
}
var jid = joinId++;
joins = joins || {};
joins[jid] = join;
return function() {
if (joins !== null) {
delete joins[jid];
}
};
};
}
function kill(error, cb) {
return function () {
if (status === COMPLETED) {
cb(util.right(void 0))();
return function () {};
}
var canceler = onComplete({
rethrow: false,
handler: function (/* unused */) {
return cb(util.right(void 0));
}
})();
switch (status) {
case SUSPENDED:
interrupt = util.left(error);
status = COMPLETED;
step = interrupt;
run(runTick);
break;
case PENDING:
if (interrupt === null) {
interrupt = util.left(error);
}
if (bracketCount === 0) {
if (status === PENDING) {
attempts = new Aff(CONS, new Aff(FINALIZER, step(error)), attempts, interrupt);
}
status = RETURN;
step = null;
fail = null;
run(++runTick);
}
break;
default:
if (interrupt === null) {
interrupt = util.left(error);
}
if (bracketCount === 0) {
status = RETURN;
step = null;
fail = null;
}
}
return canceler;
};
}
function join(cb) {
return function () {
var canceler = onComplete({
rethrow: false,
handler: cb
})();
if (status === SUSPENDED) {
run(runTick);
}
return canceler;
};
}
return {
kill: kill,
join: join,
onComplete: onComplete,
isSuspended: function () {
return status === SUSPENDED;
},
run: function () {
if (status === SUSPENDED) {
if (!Scheduler.isDraining()) {
Scheduler.enqueue(function () {
run(runTick);
});
} else {
run(runTick);
}
}
}
};
}
function runPar(util, supervisor, par, cb) {
// Table of all forked fibers.
var fiberId = 0;
var fibers = {};
// Table of currently running cancelers, as a product of `Alt` behavior.
var killId = 0;
var kills = {};
// Error used for early cancelation on Alt branches.
var early = new Error("[ParAff] Early exit");
// Error used to kill the entire tree.
var interrupt = null;
// The root pointer of the tree.
var root = EMPTY;
// Walks a tree, invoking all the cancelers. Returns the table of pending
// cancellation fibers.
function kill(error, par, cb) {
var step = par;
var head = null;
var tail = null;
var count = 0;
var kills = {};
var tmp, kid;
loop: while (true) {
tmp = null;
switch (step.tag) {
case FORKED:
if (step._3 === EMPTY) {
tmp = fibers[step._1];
kills[count++] = tmp.kill(error, function (result) {
return function () {
count--;
if (count === 0) {
cb(result)();
}
};
});
}
// Terminal case.
if (head === null) {
break loop;
}
// Go down the right side of the tree.
step = head._2;
if (tail === null) {
head = null;
} else {
head = tail._1;
tail = tail._2;
}
break;
case MAP:
step = step._2;
break;
case APPLY:
case ALT:
if (head) {
tail = new Aff(CONS, head, tail);
}
head = step;
step = step._1;
break;
}
}
if (count === 0) {
cb(util.right(void 0))();
} else {
// Run the cancelation effects. We alias `count` because it's mutable.
kid = 0;
tmp = count;
for (; kid < tmp; kid++) {
kills[kid] = kills[kid]();
}
}
return kills;
}
// When a fiber resolves, we need to bubble back up the tree with the
// result, computing the applicative nodes.
function join(result, head, tail) {
var fail, step, lhs, rhs, tmp, kid;
if (util.isLeft(result)) {
fail = result;
step = null;
} else {
step = result;
fail = null;
}
loop: while (true) {
lhs = null;
rhs = null;
tmp = null;
kid = null;
// We should never continue if the entire tree has been interrupted.
if (interrupt !== null) {
return;
}
// We've made it all the way to the root of the tree, which means
// the tree has fully evaluated.
if (head === null) {
cb(fail || step)();
return;
}
// The tree has already been computed, so we shouldn't try to do it
// again. This should never happen.
// TODO: Remove this?
if (head._3 !== EMPTY) {
return;
}
switch (head.tag) {
case MAP:
if (fail === null) {
head._3 = util.right(head._1(util.fromRight(step)));
step = head._3;
} else {
head._3 = fail;
}
break;
case APPLY:
lhs = head._1._3;
rhs = head._2._3;
// If we have a failure we should kill the other side because we
// can't possible yield a result anymore.
if (fail) {
head._3 = fail;
tmp = true;
kid = killId++;
kills[kid] = kill(early, fail === lhs ? head._2 : head._1, function (/* unused */) {
return function () {
delete kills[kid];
if (tmp) {
tmp = false;
} else if (tail === null) {
join(step, null, null);
} else {
join(step, tail._1, tail._2);
}
};
});
if (tmp) {
tmp = false;
return;
}
} else if (lhs === EMPTY || rhs === EMPTY) {
// We can only proceed if both sides have resolved.
return;
} else {
step = util.right(util.fromRight(lhs)(util.fromRight(rhs)));
head._3 = step;
}
break;
case ALT:
lhs = head._1._3;
rhs = head._2._3;
// We can only proceed if both have resolved or we have a success
if (lhs === EMPTY && util.isLeft(rhs) || rhs === EMPTY && util.isLeft(lhs)) {
return;
}
// If both sides resolve with an error, we should continue with the
// first error
if (lhs !== EMPTY && util.isLeft(lhs) && rhs !== EMPTY && util.isLeft(rhs)) {
fail = step === lhs ? rhs : lhs;
step = null;
head._3 = fail;
} else {
head._3 = step;
tmp = true;
kid = killId++;
// Once a side has resolved, we need to cancel the side that is still
// pending before we can continue.
kills[kid] = kill(early, step === lhs ? head._2 : head._1, function (/* unused */) {
return function () {
delete kills[kid];
if (tmp) {
tmp = false;
} else if (tail === null) {
join(step, null, null);
} else {
join(step, tail._1, tail._2);
}
};
});
if (tmp) {
tmp = false;
return;
}
}
break;
}
if (tail === null) {
head = null;
} else {
head = tail._1;
tail = tail._2;
}
}
}
function resolve(fiber) {
return function (result) {
return function () {
delete fibers[fiber._1];
fiber._3 = result;
join(result, fiber._2._1, fiber._2._2);
};
};
}
// Walks the applicative tree, substituting non-applicative nodes with
// `FORKED` nodes. In this tree, all applicative nodes use the `_3` slot
// as a mutable slot for memoization. In an unresolved state, the `_3`
// slot is `EMPTY`. In the cases of `ALT` and `APPLY`, we always walk
// the left side first, because both operations are left-associative. As
// we `RETURN` from those branches, we then walk the right side.
function run() {
var status = CONTINUE;
var step = par;
var head = null;
var tail = null;
var tmp, fid;
loop: while (true) {
tmp = null;
fid = null;
switch (status) {
case CONTINUE:
switch (step.tag) {
case MAP:
if (head) {
tail = new Aff(CONS, head, tail);
}
head = new Aff(MAP, step._1, EMPTY, EMPTY);
step = step._2;
break;
case APPLY:
if (head) {
tail = new Aff(CONS, head, tail);
}
head = new Aff(APPLY, EMPTY, step._2, EMPTY);
step = step._1;
break;
case ALT:
if (head) {
tail = new Aff(CONS, head, tail);
}
head = new Aff(ALT, EMPTY, step._2, EMPTY);
step = step._1;
break;
default:
// When we hit a leaf value, we suspend the stack in the `FORKED`.
// When the fiber resolves, it can bubble back up the tree.
fid = fiberId++;
status = RETURN;
tmp = step;
step = new Aff(FORKED, fid, new Aff(CONS, head, tail), EMPTY);
tmp = Fiber(util, supervisor, tmp);
tmp.onComplete({
rethrow: false,
handler: resolve(step)
})();
fibers[fid] = tmp;
if (supervisor) {
supervisor.register(tmp);
}
}
break;
case RETURN:
// Terminal case, we are back at the root.
if (head === null) {
break loop;
}
// If we are done with the right side, we need to continue down the
// left. Otherwise we should continue up the stack.
if (head._1 === EMPTY) {
head._1 = step;
status = CONTINUE;
step = head._2;
head._2 = EMPTY;
} else {
head._2 = step;
step = head;
if (tail === null) {
head = null;
} else {
head = tail._1;
tail = tail._2;
}
}
}
}
// Keep a reference to the tree root so it can be cancelled.
root = step;
for (fid = 0; fid < fiberId; fid++) {
fibers[fid].run();
}
}
// Cancels the entire tree. If there are already subtrees being canceled,
// we need to first cancel those joins. We will then add fresh joins for
// all pending branches including those that were in the process of being
// canceled.
function cancel(error, cb) {
interrupt = util.left(error);
var innerKills;
for (var kid in kills) {
if (kills.hasOwnProperty(kid)) {
innerKills = kills[kid];
for (kid in innerKills) {
if (innerKills.hasOwnProperty(kid)) {
innerKills[kid]();
}
}
}
}
kills = null;
var newKills = kill(error, root, cb);
return function (killError) {
return new Aff(ASYNC, function (killCb) {
return function () {
for (var kid in newKills) {
if (newKills.hasOwnProperty(kid)) {
newKills[kid]();
}
}
return nonCanceler;
};
});
};
}
run();
return function (killError) {
return new Aff(ASYNC, function (killCb) {
return function () {
return cancel(killError, killCb);
};
});
};
}
function sequential(util, supervisor, par) {
return new Aff(ASYNC, function (cb) {
return function () {
return runPar(util, supervisor, par, cb);
};
});
}
Aff.EMPTY = EMPTY;
Aff.Pure = AffCtr(PURE);
Aff.Throw = AffCtr(THROW);
Aff.Catch = AffCtr(CATCH);
Aff.Sync = AffCtr(SYNC);
Aff.Async = AffCtr(ASYNC);
Aff.Bind = AffCtr(BIND);
Aff.Bracket = AffCtr(BRACKET);
Aff.Fork = AffCtr(FORK);
Aff.Seq = AffCtr(SEQ);
Aff.ParMap = AffCtr(MAP);
Aff.ParApply = AffCtr(APPLY);
Aff.ParAlt = AffCtr(ALT);
Aff.Fiber = Fiber;
Aff.Supervisor = Supervisor;
Aff.Scheduler = Scheduler;
Aff.nonCanceler = nonCanceler;
return Aff;
}();
exports._pure = Aff.Pure;
exports._throwError = Aff.Throw;
exports._catchError = function (aff) {
return function (k) {
return Aff.Catch(aff, k);
};
};
exports._map = function (f) {
return function (aff) {
if (aff.tag === Aff.Pure.tag) {
return Aff.Pure(f(aff._1));
} else {
return Aff.Bind(aff, function (value) {
return Aff.Pure(f(value));
});
}
};
};
exports._bind = function (aff) {
return function (k) {
return Aff.Bind(aff, k);
};
};
exports._fork = function (immediate) {
return function (aff) {
return Aff.Fork(immediate, aff);
};
};
exports._liftEffect = Aff.Sync;
exports._parAffMap = function (f) {
return function (aff) {
return Aff.ParMap(f, aff);
};
};
exports._parAffApply = function (aff1) {
return function (aff2) {
return Aff.ParApply(aff1, aff2);
};
};
exports.makeAff = Aff.Async;
exports._makeFiber = function (util, aff) {
return function () {
return Aff.Fiber(util, null, aff);
};
};
exports._sequential = Aff.Seq;
})(PS["Effect.Aff"] = PS["Effect.Aff"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Either = PS["Data.Either"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Unit = PS["Data.Unit"];
var Prelude = PS["Prelude"];
var MonadThrow = function (Monad0, throwError) {
this.Monad0 = Monad0;
this.throwError = throwError;
};
var MonadError = function (MonadThrow0, catchError) {
this.MonadThrow0 = MonadThrow0;
this.catchError = catchError;
};
var throwError = function (dict) {
return dict.throwError;
};
var catchError = function (dict) {
return dict.catchError;
};
var $$try = function (dictMonadError) {
return function (a) {
return catchError(dictMonadError)(Data_Functor.map(((((dictMonadError.MonadThrow0()).Monad0()).Bind1()).Apply0()).Functor0())(Data_Either.Right.create)(a))(function ($21) {
return Control_Applicative.pure(((dictMonadError.MonadThrow0()).Monad0()).Applicative0())(Data_Either.Left.create($21));
});
};
};
exports["catchError"] = catchError;
exports["throwError"] = throwError;
exports["MonadThrow"] = MonadThrow;
exports["MonadError"] = MonadError;
exports["try"] = $$try;
})(PS["Control.Monad.Error.Class"] = PS["Control.Monad.Error.Class"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Data_Tuple = PS["Data.Tuple"];
var Data_Unit = PS["Data.Unit"];
var Prelude = PS["Prelude"];
var MonadState = function (Monad0, state) {
this.Monad0 = Monad0;
this.state = state;
};
var state = function (dict) {
return dict.state;
};
var put = function (dictMonadState) {
return function (s) {
return state(dictMonadState)(function (v) {
return new Data_Tuple.Tuple(Data_Unit.unit, s);
});
};
};
var modify_ = function (dictMonadState) {
return function (f) {
return state(dictMonadState)(function (s) {
return new Data_Tuple.Tuple(Data_Unit.unit, f(s));
});
};
};
var gets = function (dictMonadState) {
return function (f) {
return state(dictMonadState)(function (s) {
return new Data_Tuple.Tuple(f(s), s);
});
};
};
var get = function (dictMonadState) {
return state(dictMonadState)(function (s) {
return new Data_Tuple.Tuple(s, s);
});
};
exports["state"] = state;
exports["MonadState"] = MonadState;
exports["get"] = get;
exports["gets"] = gets;
exports["put"] = put;
exports["modify_"] = modify_;
})(PS["Control.Monad.State.Class"] = PS["Control.Monad.State.Class"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Prelude = PS["Prelude"];
var MonadTrans = function (lift) {
this.lift = lift;
};
var lift = function (dict) {
return dict.lift;
};
exports["lift"] = lift;
exports["MonadTrans"] = MonadTrans;
})(PS["Control.Monad.Trans.Class"] = PS["Control.Monad.Trans.Class"] || {});
(function(exports) {
"use strict";
var Control_Category = PS["Control.Category"];
var Control_Monad = PS["Control.Monad"];
var Effect = PS["Effect"];
// | The `MonadEffect` class captures those monads which support native effects.
// |
// | Instances are provided for `Effect` itself, and the standard monad
// | transformers.
// |
// | `liftEffect` can be used in any appropriate monad transformer stack to lift an
// | action of type `Effect a` into the monad.
// |
var MonadEffect = function (Monad0, liftEffect) {
this.Monad0 = Monad0;
this.liftEffect = liftEffect;
};
var liftEffect = function (dict) {
return dict.liftEffect;
};
exports["liftEffect"] = liftEffect;
exports["MonadEffect"] = MonadEffect;
})(PS["Effect.Class"] = PS["Effect.Class"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Alt = PS["Control.Alt"];
var Control_Alternative = PS["Control.Alternative"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Monad = PS["Control.Monad"];
var Control_Monad_Cont_Class = PS["Control.Monad.Cont.Class"];
var Control_Monad_Error_Class = PS["Control.Monad.Error.Class"];
var Control_Monad_Reader_Class = PS["Control.Monad.Reader.Class"];
var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"];
var Control_Monad_State_Class = PS["Control.Monad.State.Class"];
var Control_Monad_Trans_Class = PS["Control.Monad.Trans.Class"];
var Control_Monad_Writer_Class = PS["Control.Monad.Writer.Class"];
var Control_MonadPlus = PS["Control.MonadPlus"];
var Control_MonadZero = PS["Control.MonadZero"];
var Control_Plus = PS["Control.Plus"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Either = PS["Data.Either"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Tuple = PS["Data.Tuple"];
var Effect_Class = PS["Effect.Class"];
var Prelude = PS["Prelude"];
var ExceptT = function (x) {
return x;
};
var runExceptT = function (v) {
return v;
};
var mapExceptT = function (f) {
return function (v) {
return f(v);
};
};
var functorExceptT = function (dictFunctor) {
return new Data_Functor.Functor(function (f) {
return mapExceptT(Data_Functor.map(dictFunctor)(Data_Functor.map(Data_Either.functorEither)(f)));
});
};
var monadExceptT = function (dictMonad) {
return new Control_Monad.Monad(function () {
return applicativeExceptT(dictMonad);
}, function () {
return bindExceptT(dictMonad);
});
};
var bindExceptT = function (dictMonad) {
return new Control_Bind.Bind(function () {
return applyExceptT(dictMonad);
}, function (v) {
return function (k) {
return Control_Bind.bind(dictMonad.Bind1())(v)(Data_Either.either(function ($97) {
return Control_Applicative.pure(dictMonad.Applicative0())(Data_Either.Left.create($97));
})(function (a) {
var v1 = k(a);
return v1;
}));
};
});
};
var applyExceptT = function (dictMonad) {
return new Control_Apply.Apply(function () {
return functorExceptT(((dictMonad.Bind1()).Apply0()).Functor0());
}, Control_Monad.ap(monadExceptT(dictMonad)));
};
var applicativeExceptT = function (dictMonad) {
return new Control_Applicative.Applicative(function () {
return applyExceptT(dictMonad);
}, function ($98) {
return ExceptT(Control_Applicative.pure(dictMonad.Applicative0())(Data_Either.Right.create($98)));
});
};
var monadThrowExceptT = function (dictMonad) {
return new Control_Monad_Error_Class.MonadThrow(function () {
return monadExceptT(dictMonad);
}, function ($102) {
return ExceptT(Control_Applicative.pure(dictMonad.Applicative0())(Data_Either.Left.create($102)));
});
};
exports["ExceptT"] = ExceptT;
exports["runExceptT"] = runExceptT;
exports["mapExceptT"] = mapExceptT;
exports["functorExceptT"] = functorExceptT;
exports["applyExceptT"] = applyExceptT;
exports["applicativeExceptT"] = applicativeExceptT;
exports["bindExceptT"] = bindExceptT;
exports["monadExceptT"] = monadExceptT;
exports["monadThrowExceptT"] = monadThrowExceptT;
})(PS["Control.Monad.Except.Trans"] = PS["Control.Monad.Except.Trans"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Alt = PS["Control.Alt"];
var Control_Alternative = PS["Control.Alternative"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Monad = PS["Control.Monad"];
var Control_Monad_Cont_Class = PS["Control.Monad.Cont.Class"];
var Control_Monad_Error_Class = PS["Control.Monad.Error.Class"];
var Control_Monad_Reader_Class = PS["Control.Monad.Reader.Class"];
var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"];
var Control_Monad_State_Class = PS["Control.Monad.State.Class"];
var Control_Monad_Trans_Class = PS["Control.Monad.Trans.Class"];
var Control_Monad_Writer_Class = PS["Control.Monad.Writer.Class"];
var Control_MonadPlus = PS["Control.MonadPlus"];
var Control_MonadZero = PS["Control.MonadZero"];
var Control_Plus = PS["Control.Plus"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Tuple = PS["Data.Tuple"];
var Effect_Class = PS["Effect.Class"];
var Prelude = PS["Prelude"];
var MaybeT = function (x) {
return x;
};
exports["MaybeT"] = MaybeT;
})(PS["Control.Monad.Maybe.Trans"] = PS["Control.Monad.Maybe.Trans"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Alt = PS["Control.Alt"];
var Control_Alternative = PS["Control.Alternative"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Monad_Cont_Trans = PS["Control.Monad.Cont.Trans"];
var Control_Monad_Except_Trans = PS["Control.Monad.Except.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_Plus = PS["Control.Plus"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Either = PS["Data.Either"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Functor_Compose = PS["Data.Functor.Compose"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Unit = PS["Data.Unit"];
var Effect_Class = PS["Effect.Class"];
var Effect_Ref = PS["Effect.Ref"];
var Prelude = PS["Prelude"];
var Parallel = function (Applicative1, Monad0, parallel, sequential) {
this.Applicative1 = Applicative1;
this.Monad0 = Monad0;
this.parallel = parallel;
this.sequential = sequential;
};
var sequential = function (dict) {
return dict.sequential;
};
var parallel = function (dict) {
return dict.parallel;
};
exports["parallel"] = parallel;
exports["sequential"] = sequential;
exports["Parallel"] = Parallel;
})(PS["Control.Parallel.Class"] = PS["Control.Parallel.Class"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Alternative = PS["Control.Alternative"];
var Control_Apply = PS["Control.Apply"];
var Control_Category = PS["Control.Category"];
var Control_Parallel_Class = PS["Control.Parallel.Class"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Traversable = PS["Data.Traversable"];
var Prelude = PS["Prelude"];
var parTraverse_ = function (dictParallel) {
return function (dictFoldable) {
return function (f) {
return function ($17) {
return Control_Parallel_Class.sequential(dictParallel)(Data_Foldable.traverse_(dictParallel.Applicative1())(dictFoldable)(function ($18) {
return Control_Parallel_Class.parallel(dictParallel)(f($18));
})($17));
};
};
};
};
var parSequence_ = function (dictParallel) {
return function (dictFoldable) {
return parTraverse_(dictParallel)(dictFoldable)(Control_Category.identity(Control_Category.categoryFn));
};
};
exports["parTraverse_"] = parTraverse_;
exports["parSequence_"] = parSequence_;
})(PS["Control.Parallel"] = PS["Control.Parallel"] || {});
(function(exports) {
"use strict";
exports.runFn4 = function (fn) {
return function (a) {
return function (b) {
return function (c) {
return function (d) {
return fn(a, b, c, d);
};
};
};
};
};
})(PS["Data.Function.Uncurried"] = PS["Data.Function.Uncurried"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Function.Uncurried"];
var Data_Unit = PS["Data.Unit"];
exports["runFn4"] = $foreign.runFn4;
})(PS["Data.Function.Uncurried"] = PS["Data.Function.Uncurried"] || {});
(function(exports) {
"use strict";
exports.error = function (msg) {
return new Error(msg);
};
exports.throwException = function (e) {
return function () {
throw e;
};
};
})(PS["Effect.Exception"] = PS["Effect.Exception"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Effect.Exception"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Either = PS["Data.Either"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Show = PS["Data.Show"];
var Effect = PS["Effect"];
var Prelude = PS["Prelude"];
var $$throw = function ($1) {
return $foreign.throwException($foreign.error($1));
};
exports["throw"] = $$throw;
exports["error"] = $foreign.error;
exports["throwException"] = $foreign.throwException;
})(PS["Effect.Exception"] = PS["Effect.Exception"] || {});
(function(exports) {
"use strict";
exports.unsafePerformEffect = function (f) {
return f();
};
})(PS["Effect.Unsafe"] = PS["Effect.Unsafe"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Effect.Unsafe"];
var Effect = PS["Effect"];
exports["unsafePerformEffect"] = $foreign.unsafePerformEffect;
})(PS["Effect.Unsafe"] = PS["Effect.Unsafe"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Effect.Aff"];
var Control_Alt = PS["Control.Alt"];
var Control_Alternative = PS["Control.Alternative"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Lazy = PS["Control.Lazy"];
var Control_Monad = PS["Control.Monad"];
var Control_Monad_Error_Class = PS["Control.Monad.Error.Class"];
var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"];
var Control_Parallel = PS["Control.Parallel"];
var Control_Parallel_Class = PS["Control.Parallel.Class"];
var Control_Plus = PS["Control.Plus"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Either = PS["Data.Either"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var Data_Functor = PS["Data.Functor"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Time_Duration = PS["Data.Time.Duration"];
var Data_Unit = PS["Data.Unit"];
var Effect = PS["Effect"];
var Effect_Class = PS["Effect.Class"];
var Effect_Exception = PS["Effect.Exception"];
var Effect_Unsafe = PS["Effect.Unsafe"];
var Partial_Unsafe = PS["Partial.Unsafe"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var Canceler = function (x) {
return x;
};
var suspendAff = $foreign._fork(false);
var functorParAff = new Data_Functor.Functor($foreign._parAffMap);
var functorAff = new Data_Functor.Functor($foreign._map);
var forkAff = $foreign._fork(true);
var ffiUtil = (function () {
var unsafeFromRight = function (v) {
if (v instanceof Data_Either.Right) {
return v.value0;
};
if (v instanceof Data_Either.Left) {
return Partial_Unsafe.unsafeCrashWith("unsafeFromRight: Left");
};
throw new Error("Failed pattern match at Effect.Aff line 395, column 21 - line 397, column 31: " + [ v.constructor.name ]);
};
var unsafeFromLeft = function (v) {
if (v instanceof Data_Either.Left) {
return v.value0;
};
if (v instanceof Data_Either.Right) {
return Partial_Unsafe.unsafeCrashWith("unsafeFromLeft: Right");
};
throw new Error("Failed pattern match at Effect.Aff line 390, column 20 - line 394, column 3: " + [ v.constructor.name ]);
};
var isLeft = function (v) {
if (v instanceof Data_Either.Left) {
return true;
};
if (v instanceof Data_Either.Right) {
return false;
};
throw new Error("Failed pattern match at Effect.Aff line 385, column 12 - line 387, column 20: " + [ v.constructor.name ]);
};
return {
isLeft: isLeft,
fromLeft: unsafeFromLeft,
fromRight: unsafeFromRight,
left: Data_Either.Left.create,
right: Data_Either.Right.create
};
})();
var makeFiber = function (aff) {
return $foreign._makeFiber(ffiUtil, aff);
};
var launchAff = function (aff) {
return function __do() {
var v = makeFiber(aff)();
v.run();
return v;
};
};
var applyParAff = new Control_Apply.Apply(function () {
return functorParAff;
}, $foreign._parAffApply);
var monadAff = new Control_Monad.Monad(function () {
return applicativeAff;
}, function () {
return bindAff;
});
var bindAff = new Control_Bind.Bind(function () {
return applyAff;
}, $foreign._bind);
var applyAff = new Control_Apply.Apply(function () {
return functorAff;
}, Control_Monad.ap(monadAff));
var applicativeAff = new Control_Applicative.Applicative(function () {
return applyAff;
}, $foreign._pure);
var monadEffectAff = new Effect_Class.MonadEffect(function () {
return monadAff;
}, $foreign._liftEffect);
var effectCanceler = function ($50) {
return Canceler(Data_Function["const"](Effect_Class.liftEffect(monadEffectAff)($50)));
};
var joinFiber = function (v) {
return $foreign.makeAff(function (k) {
return Data_Functor.map(Effect.functorEffect)(effectCanceler)(v.join(k));
});
};
var functorFiber = new Data_Functor.Functor(function (f) {
return function (t) {
return Effect_Unsafe.unsafePerformEffect(makeFiber(Data_Functor.map(functorAff)(f)(joinFiber(t))));
};
});
var killFiber = function (e) {
return function (v) {
return Control_Bind.bind(bindAff)(Effect_Class.liftEffect(monadEffectAff)(v.isSuspended))(function (v1) {
if (v1) {
return Effect_Class.liftEffect(monadEffectAff)(Data_Functor["void"](Effect.functorEffect)(v.kill(e, Data_Function["const"](Control_Applicative.pure(Effect.applicativeEffect)(Data_Unit.unit)))));
};
return $foreign.makeAff(function (k) {
return Data_Functor.map(Effect.functorEffect)(effectCanceler)(v.kill(e, k));
});
});
};
};
var monadThrowAff = new Control_Monad_Error_Class.MonadThrow(function () {
return monadAff;
}, $foreign._throwError);
var monadErrorAff = new Control_Monad_Error_Class.MonadError(function () {
return monadThrowAff;
}, $foreign._catchError);
var runAff = function (k) {
return function (aff) {
return launchAff(Control_Bind.bindFlipped(bindAff)(function ($51) {
return Effect_Class.liftEffect(monadEffectAff)(k($51));
})(Control_Monad_Error_Class["try"](monadErrorAff)(aff)));
};
};
var runAff_ = function (k) {
return function (aff) {
return Data_Functor["void"](Effect.functorEffect)(runAff(k)(aff));
};
};
var parallelAff = new Control_Parallel_Class.Parallel(function () {
return applicativeParAff;
}, function () {
return monadAff;
}, Unsafe_Coerce.unsafeCoerce, $foreign._sequential);
var applicativeParAff = new Control_Applicative.Applicative(function () {
return applyParAff;
}, function ($53) {
return Control_Parallel_Class.parallel(parallelAff)(Control_Applicative.pure(applicativeAff)($53));
});
var monadRecAff = new Control_Monad_Rec_Class.MonadRec(function () {
return monadAff;
}, function (k) {
var go = function (a) {
return Control_Bind.bind(bindAff)(k(a))(function (v) {
if (v instanceof Control_Monad_Rec_Class.Done) {
return Control_Applicative.pure(applicativeAff)(v.value0);
};
if (v instanceof Control_Monad_Rec_Class.Loop) {
return go(v.value0);
};
throw new Error("Failed pattern match at Effect.Aff line 99, column 7 - line 101, column 22: " + [ v.constructor.name ]);
});
};
return go;
});
var nonCanceler = Data_Function["const"](Control_Applicative.pure(applicativeAff)(Data_Unit.unit));
exports["Canceler"] = Canceler;
exports["launchAff"] = launchAff;
exports["runAff"] = runAff;
exports["runAff_"] = runAff_;
exports["forkAff"] = forkAff;
exports["suspendAff"] = suspendAff;
exports["killFiber"] = killFiber;
exports["joinFiber"] = joinFiber;
exports["nonCanceler"] = nonCanceler;
exports["effectCanceler"] = effectCanceler;
exports["functorAff"] = functorAff;
exports["applyAff"] = applyAff;
exports["applicativeAff"] = applicativeAff;
exports["bindAff"] = bindAff;
exports["monadAff"] = monadAff;
exports["monadRecAff"] = monadRecAff;
exports["monadThrowAff"] = monadThrowAff;
exports["monadErrorAff"] = monadErrorAff;
exports["monadEffectAff"] = monadEffectAff;
exports["functorParAff"] = functorParAff;
exports["applyParAff"] = applyParAff;
exports["applicativeParAff"] = applicativeParAff;
exports["parallelAff"] = parallelAff;
exports["functorFiber"] = functorFiber;
exports["makeAff"] = $foreign.makeAff;
})(PS["Effect.Aff"] = PS["Effect.Aff"] || {});
(function(exports) {
"use strict";
exports._app = function() {
return app;
}
exports._closest = function(just, nothing, selector, el) {
var node = el.closest(selector);
if(node) {
return just(node);
} else {
return nothing;
}
}
exports._innerHtml = function(el) {
return el.innerHTML;
}
exports._setInnerHtml = function(content, el) {
el.innerHTML = content;
return el;
}
exports._createFormData = function(formElement) {
return new FormData(formElement);
}
exports._createFormString = function(formElement) {
return new URLSearchParams(new FormData(formElement)).toString()
}
exports._createFormArray = function(formElement) {
return Array.from(new FormData(formElement));
}
exports._getDataAttribute = function(name, el) {
return el.dataset[name];
}
exports._setDataAttribute = function(name, value, el) {
return el.dataset[name] = value;
}
exports._moment8601 = function(tuple, s) {
var m = moment(s, moment.ISO_8601);
var s1 = m.fromNow();
var s2 = m.format('MMMM D YYYY, h:mm a') + " (" + m.format() + ") ";
return tuple(s1)(s2);
}
exports._mmoment8601 = function(just, nothing, tuple, s) {
try {
var m = moment(s, moment.ISO_8601);
var s1 = m.fromNow();
var s2 = m.format('MMMM D YYYY, h:mm a') + " (" + m.format() + ") ";
return just(tuple(s1)(s2));
} catch (error) {
return nothing
}
}
exports._closeWindow = function (window) {
window.close();
};
})(PS["Globals"] = PS["Globals"] || {});
(function(exports) {
"use strict";
exports["null"] = null;
exports.nullable = function (a, r, f) {
return a == null ? r : f(a);
};
exports.notNull = function (x) {
return x;
};
})(PS["Data.Nullable"] = PS["Data.Nullable"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Nullable"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Eq = PS["Data.Eq"];
var Data_Function = PS["Data.Function"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ord = PS["Data.Ord"];
var Data_Show = PS["Data.Show"];
var Prelude = PS["Prelude"];
var toNullable = Data_Maybe.maybe($foreign["null"])($foreign.notNull);
var toMaybe = function (n) {
return $foreign.nullable(n, Data_Maybe.Nothing.value, Data_Maybe.Just.create);
};
exports["toMaybe"] = toMaybe;
exports["toNullable"] = toNullable;
})(PS["Data.Nullable"] = PS["Data.Nullable"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Monad_Error_Class = PS["Control.Monad.Error.Class"];
var Control_Monad_Except_Trans = PS["Control.Monad.Except.Trans"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Either = PS["Data.Either"];
var Data_Identity = PS["Data.Identity"];
var Data_Newtype = PS["Data.Newtype"];
var Prelude = PS["Prelude"];
var runExcept = function ($0) {
return Data_Newtype.unwrap(Data_Identity.newtypeIdentity)(Control_Monad_Except_Trans.runExceptT($0));
};
exports["runExcept"] = runExcept;
})(PS["Control.Monad.Except"] = PS["Control.Monad.Except"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Alt = PS["Control.Alt"];
var Control_Alternative = PS["Control.Alternative"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Category = PS["Control.Category"];
var Control_Plus = PS["Control.Plus"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_FoldableWithIndex = PS["Data.FoldableWithIndex"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_FunctorWithIndex = PS["Data.FunctorWithIndex"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semigroup_Foldable = PS["Data.Semigroup.Foldable"];
var Data_Show = PS["Data.Show"];
var Data_Traversable = PS["Data.Traversable"];
var Data_TraversableWithIndex = PS["Data.TraversableWithIndex"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unfoldable = PS["Data.Unfoldable"];
var Data_Unfoldable1 = PS["Data.Unfoldable1"];
var Prelude = PS["Prelude"];
var NonEmpty = (function () {
function NonEmpty(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
NonEmpty.create = function (value0) {
return function (value1) {
return new NonEmpty(value0, value1);
};
};
return NonEmpty;
})();
var singleton = function (dictPlus) {
return function (a) {
return new NonEmpty(a, Control_Plus.empty(dictPlus));
};
};
var functorNonEmpty = function (dictFunctor) {
return new Data_Functor.Functor(function (f) {
return function (m) {
return new NonEmpty(f(m.value0), Data_Functor.map(dictFunctor)(f)(m.value1));
};
});
};
var foldableNonEmpty = function (dictFoldable) {
return new Data_Foldable.Foldable(function (dictMonoid) {
return function (f) {
return function (v) {
return Data_Semigroup.append(dictMonoid.Semigroup0())(f(v.value0))(Data_Foldable.foldMap(dictFoldable)(dictMonoid)(f)(v.value1));
};
};
}, function (f) {
return function (b) {
return function (v) {
return Data_Foldable.foldl(dictFoldable)(f)(f(b)(v.value0))(v.value1);
};
};
}, function (f) {
return function (b) {
return function (v) {
return f(v.value0)(Data_Foldable.foldr(dictFoldable)(f)(b)(v.value1));
};
};
});
};
exports["NonEmpty"] = NonEmpty;
exports["singleton"] = singleton;
exports["functorNonEmpty"] = functorNonEmpty;
exports["foldableNonEmpty"] = foldableNonEmpty;
})(PS["Data.NonEmpty"] = PS["Data.NonEmpty"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Alt = PS["Control.Alt"];
var Control_Alternative = PS["Control.Alternative"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Comonad = PS["Control.Comonad"];
var Control_Extend = PS["Control.Extend"];
var Control_Monad = PS["Control.Monad"];
var Control_MonadPlus = PS["Control.MonadPlus"];
var Control_MonadZero = PS["Control.MonadZero"];
var Control_Plus = PS["Control.Plus"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_FoldableWithIndex = PS["Data.FoldableWithIndex"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_FunctorWithIndex = PS["Data.FunctorWithIndex"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Newtype = PS["Data.Newtype"];
var Data_NonEmpty = PS["Data.NonEmpty"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Ring = PS["Data.Ring"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semigroup_Foldable = PS["Data.Semigroup.Foldable"];
var Data_Semigroup_Traversable = PS["Data.Semigroup.Traversable"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Show = PS["Data.Show"];
var Data_Traversable = PS["Data.Traversable"];
var Data_TraversableWithIndex = PS["Data.TraversableWithIndex"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unfoldable = PS["Data.Unfoldable"];
var Data_Unfoldable1 = PS["Data.Unfoldable1"];
var Prelude = PS["Prelude"];
var Nil = (function () {
function Nil() {
};
Nil.value = new Nil();
return Nil;
})();
var Cons = (function () {
function Cons(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
Cons.create = function (value0) {
return function (value1) {
return new Cons(value0, value1);
};
};
return Cons;
})();
var NonEmptyList = function (x) {
return x;
};
var foldableList = new Data_Foldable.Foldable(function (dictMonoid) {
return function (f) {
return Data_Foldable.foldl(foldableList)(function (acc) {
return function ($155) {
return Data_Semigroup.append(dictMonoid.Semigroup0())(acc)(f($155));
};
})(Data_Monoid.mempty(dictMonoid));
};
}, function (f) {
var go = function ($copy_b) {
return function ($copy_v) {
var $tco_var_b = $copy_b;
var $tco_done = false;
var $tco_result;
function $tco_loop(b, v) {
if (v instanceof Nil) {
$tco_done = true;
return b;
};
if (v instanceof Cons) {
$tco_var_b = f(b)(v.value0);
$copy_v = v.value1;
return;
};
throw new Error("Failed pattern match at Data.List.Types line 81, column 12 - line 83, column 30: " + [ v.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($tco_var_b, $copy_v);
};
return $tco_result;
};
};
return go;
}, function (f) {
return function (b) {
var rev = Data_Foldable.foldl(foldableList)(Data_Function.flip(Cons.create))(Nil.value);
return function ($156) {
return Data_Foldable.foldl(foldableList)(Data_Function.flip(f))(b)(rev($156));
};
};
});
var foldableNonEmptyList = Data_NonEmpty.foldableNonEmpty(foldableList);
var functorList = new Data_Functor.Functor(function (f) {
return Data_Foldable.foldr(foldableList)(function (x) {
return function (acc) {
return new Cons(f(x), acc);
};
})(Nil.value);
});
var functorNonEmptyList = Data_NonEmpty.functorNonEmpty(functorList);
var semigroupList = new Data_Semigroup.Semigroup(function (xs) {
return function (ys) {
return Data_Foldable.foldr(foldableList)(Cons.create)(ys)(xs);
};
});
var applyList = new Control_Apply.Apply(function () {
return functorList;
}, function (v) {
return function (v1) {
if (v instanceof Nil) {
return Nil.value;
};
if (v instanceof Cons) {
return Data_Semigroup.append(semigroupList)(Data_Functor.map(functorList)(v.value0)(v1))(Control_Apply.apply(applyList)(v.value1)(v1));
};
throw new Error("Failed pattern match at Data.List.Types line 127, column 1 - line 127, column 33: " + [ v.constructor.name, v1.constructor.name ]);
};
});
var applicativeList = new Control_Applicative.Applicative(function () {
return applyList;
}, function (a) {
return new Cons(a, Nil.value);
});
var altList = new Control_Alt.Alt(function () {
return functorList;
}, Data_Semigroup.append(semigroupList));
var plusList = new Control_Plus.Plus(function () {
return altList;
}, Nil.value);
exports["Nil"] = Nil;
exports["Cons"] = Cons;
exports["NonEmptyList"] = NonEmptyList;
exports["semigroupList"] = semigroupList;
exports["functorList"] = functorList;
exports["foldableList"] = foldableList;
exports["applyList"] = applyList;
exports["applicativeList"] = applicativeList;
exports["altList"] = altList;
exports["plusList"] = plusList;
exports["functorNonEmptyList"] = functorNonEmptyList;
exports["foldableNonEmptyList"] = foldableNonEmptyList;
})(PS["Data.List.Types"] = PS["Data.List.Types"] || {});
(function(exports) {
"use strict";
exports.unsafeToForeign = function (value) {
return value;
};
exports.unsafeFromForeign = function (value) {
return value;
};
exports.typeOf = function (value) {
return typeof value;
};
exports.tagOf = function (value) {
return Object.prototype.toString.call(value).slice(8, -1);
};
})(PS["Foreign"] = PS["Foreign"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Alt = PS["Control.Alt"];
var Control_Alternative = PS["Control.Alternative"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Lazy = PS["Control.Lazy"];
var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Bifunctor = PS["Data.Bifunctor"];
var Data_Boolean = PS["Data.Boolean"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_FunctorWithIndex = PS["Data.FunctorWithIndex"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_List_Types = PS["Data.List.Types"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Newtype = PS["Data.Newtype"];
var Data_NonEmpty = PS["Data.NonEmpty"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Ring = PS["Data.Ring"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Show = PS["Data.Show"];
var Data_Traversable = PS["Data.Traversable"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unfoldable = PS["Data.Unfoldable"];
var Data_Unit = PS["Data.Unit"];
var Prelude = PS["Prelude"];
var reverse = (function () {
var go = function ($copy_acc) {
return function ($copy_v) {
var $tco_var_acc = $copy_acc;
var $tco_done = false;
var $tco_result;
function $tco_loop(acc, v) {
if (v instanceof Data_List_Types.Nil) {
$tco_done = true;
return acc;
};
if (v instanceof Data_List_Types.Cons) {
$tco_var_acc = new Data_List_Types.Cons(v.value0, acc);
$copy_v = v.value1;
return;
};
throw new Error("Failed pattern match at Data.List line 368, column 3 - line 368, column 19: " + [ acc.constructor.name, v.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($tco_var_acc, $copy_v);
};
return $tco_result;
};
};
return go(Data_List_Types.Nil.value);
})();
var $$null = function (v) {
if (v instanceof Data_List_Types.Nil) {
return true;
};
return false;
};
var fromFoldable = function (dictFoldable) {
return Data_Foldable.foldr(dictFoldable)(Data_List_Types.Cons.create)(Data_List_Types.Nil.value);
};
exports["fromFoldable"] = fromFoldable;
exports["null"] = $$null;
exports["reverse"] = reverse;
})(PS["Data.List"] = PS["Data.List"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Boolean = PS["Data.Boolean"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_List = PS["Data.List"];
var Data_List_Types = PS["Data.List.Types"];
var Data_Maybe = PS["Data.Maybe"];
var Data_NonEmpty = PS["Data.NonEmpty"];
var Data_Ord = PS["Data.Ord"];
var Data_Ring = PS["Data.Ring"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semigroup_Foldable = PS["Data.Semigroup.Foldable"];
var Data_Semigroup_Traversable = PS["Data.Semigroup.Traversable"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Traversable = PS["Data.Traversable"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unfoldable = PS["Data.Unfoldable"];
var Partial_Unsafe = PS["Partial.Unsafe"];
var Prelude = PS["Prelude"];
var singleton = function ($160) {
return Data_List_Types.NonEmptyList(Data_NonEmpty.singleton(Data_List_Types.plusList)($160));
};
var cons = function (y) {
return function (v) {
return new Data_NonEmpty.NonEmpty(y, new Data_List_Types.Cons(v.value0, v.value1));
};
};
exports["singleton"] = singleton;
exports["cons"] = cons;
})(PS["Data.List.NonEmpty"] = PS["Data.List.NonEmpty"] || {});
(function(exports) {
"use strict";
exports.singleton = function (c) {
return c;
};
exports.length = function (s) {
return s.length;
};
exports.drop = function (n) {
return function (s) {
return s.substring(n);
};
};
})(PS["Data.String.CodeUnits"] = PS["Data.String.CodeUnits"] || {});
(function(exports) {
"use strict";
exports.charAt = function (i) {
return function (s) {
if (i >= 0 && i < s.length) return s.charAt(i);
throw new Error("Data.String.Unsafe.charAt: Invalid index.");
};
};
})(PS["Data.String.Unsafe"] = PS["Data.String.Unsafe"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.String.Unsafe"];
exports["charAt"] = $foreign.charAt;
})(PS["Data.String.Unsafe"] = PS["Data.String.Unsafe"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.String.CodeUnits"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Boolean = PS["Data.Boolean"];
var Data_Eq = PS["Data.Eq"];
var Data_Function = PS["Data.Function"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ord = PS["Data.Ord"];
var Data_Ring = PS["Data.Ring"];
var Data_Semiring = PS["Data.Semiring"];
var Data_String_Pattern = PS["Data.String.Pattern"];
var Data_String_Unsafe = PS["Data.String.Unsafe"];
var Prelude = PS["Prelude"];
exports["singleton"] = $foreign.singleton;
exports["length"] = $foreign.length;
exports["drop"] = $foreign.drop;
})(PS["Data.String.CodeUnits"] = PS["Data.String.CodeUnits"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Foreign"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Monad_Error_Class = PS["Control.Monad.Error.Class"];
var Control_Monad_Except = PS["Control.Monad.Except"];
var Control_Monad_Except_Trans = PS["Control.Monad.Except.Trans"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Boolean = PS["Data.Boolean"];
var Data_Either = PS["Data.Either"];
var Data_Eq = PS["Data.Eq"];
var Data_Function = PS["Data.Function"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Identity = PS["Data.Identity"];
var Data_Int = PS["Data.Int"];
var Data_List_NonEmpty = PS["Data.List.NonEmpty"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Show = PS["Data.Show"];
var Data_String_CodeUnits = PS["Data.String.CodeUnits"];
var Prelude = PS["Prelude"];
var ForeignError = (function () {
function ForeignError(value0) {
this.value0 = value0;
};
ForeignError.create = function (value0) {
return new ForeignError(value0);
};
return ForeignError;
})();
var TypeMismatch = (function () {
function TypeMismatch(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
TypeMismatch.create = function (value0) {
return function (value1) {
return new TypeMismatch(value0, value1);
};
};
return TypeMismatch;
})();
var ErrorAtIndex = (function () {
function ErrorAtIndex(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
ErrorAtIndex.create = function (value0) {
return function (value1) {
return new ErrorAtIndex(value0, value1);
};
};
return ErrorAtIndex;
})();
var ErrorAtProperty = (function () {
function ErrorAtProperty(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
ErrorAtProperty.create = function (value0) {
return function (value1) {
return new ErrorAtProperty(value0, value1);
};
};
return ErrorAtProperty;
})();
var renderForeignError = function (v) {
if (v instanceof ForeignError) {
return v.value0;
};
if (v instanceof ErrorAtIndex) {
return "Error at array index " + (Data_Show.show(Data_Show.showInt)(v.value0) + (": " + renderForeignError(v.value1)));
};
if (v instanceof ErrorAtProperty) {
return "Error at property " + (Data_Show.show(Data_Show.showString)(v.value0) + (": " + renderForeignError(v.value1)));
};
if (v instanceof TypeMismatch) {
return "Type mismatch: expected " + (v.value0 + (", found " + v.value1));
};
throw new Error("Failed pattern match at Foreign line 72, column 1 - line 72, column 45: " + [ v.constructor.name ]);
};
var fail = function ($107) {
return Control_Monad_Error_Class.throwError(Control_Monad_Except_Trans.monadThrowExceptT(Data_Identity.monadIdentity))(Data_List_NonEmpty.singleton($107));
};
var unsafeReadTagged = function (tag) {
return function (value) {
if ($foreign.tagOf(value) === tag) {
return Control_Applicative.pure(Control_Monad_Except_Trans.applicativeExceptT(Data_Identity.monadIdentity))($foreign.unsafeFromForeign(value));
};
if (Data_Boolean.otherwise) {
return fail(new TypeMismatch(tag, $foreign.tagOf(value)));
};
throw new Error("Failed pattern match at Foreign line 106, column 1 - line 106, column 55: " + [ tag.constructor.name, value.constructor.name ]);
};
};
var readBoolean = unsafeReadTagged("Boolean");
var readString = unsafeReadTagged("String");
exports["ForeignError"] = ForeignError;
exports["TypeMismatch"] = TypeMismatch;
exports["ErrorAtIndex"] = ErrorAtIndex;
exports["ErrorAtProperty"] = ErrorAtProperty;
exports["renderForeignError"] = renderForeignError;
exports["unsafeReadTagged"] = unsafeReadTagged;
exports["readString"] = readString;
exports["readBoolean"] = readBoolean;
exports["fail"] = fail;
exports["unsafeToForeign"] = $foreign.unsafeToForeign;
exports["typeOf"] = $foreign.typeOf;
})(PS["Foreign"] = PS["Foreign"] || {});
(function(exports) {
"use strict";
exports.unsafeReadPropImpl = function (f, s, key, value) {
return value == null ? f : s(value[key]);
};
})(PS["Foreign.Index"] = PS["Foreign.Index"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Foreign.Index"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Monad_Except_Trans = PS["Control.Monad.Except.Trans"];
var Data_Eq = PS["Data.Eq"];
var Data_Function = PS["Data.Function"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Identity = PS["Data.Identity"];
var Data_List_NonEmpty = PS["Data.List.NonEmpty"];
var Foreign = PS["Foreign"];
var Prelude = PS["Prelude"];
var unsafeReadProp = function (k) {
return function (value) {
return $foreign.unsafeReadPropImpl(Foreign.fail(new Foreign.TypeMismatch("object", Foreign.typeOf(value))), Control_Applicative.pure(Control_Monad_Except_Trans.applicativeExceptT(Data_Identity.monadIdentity)), k, value);
};
};
var readProp = unsafeReadProp;
exports["readProp"] = readProp;
})(PS["Foreign.Index"] = PS["Foreign.Index"] || {});
(function(exports) {
"use strict";
exports.empty = {};
exports._lookup = function (no, yes, k, m) {
return k in m ? yes(m[k]) : no;
};
function toArrayWithKey(f) {
return function (m) {
var r = [];
for (var k in m) {
if (hasOwnProperty.call(m, k)) {
r.push(f(k)(m[k]));
}
}
return r;
};
}
})(PS["Foreign.Object"] = PS["Foreign.Object"] || {});
(function(exports) {
"use strict";
exports["new"] = function () {
return {};
};
})(PS["Foreign.Object.ST"] = PS["Foreign.Object.ST"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Foreign.Object.ST"];
var Control_Monad_ST = PS["Control.Monad.ST"];
var Data_Maybe = PS["Data.Maybe"];
exports["new"] = $foreign["new"];
})(PS["Foreign.Object.ST"] = PS["Foreign.Object.ST"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Foreign.Object"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Monad_ST = PS["Control.Monad.ST"];
var Control_Monad_ST_Internal = PS["Control.Monad.ST.Internal"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Array = PS["Data.Array"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_FoldableWithIndex = PS["Data.FoldableWithIndex"];
var Data_Function = PS["Data.Function"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var Data_Functor = PS["Data.Functor"];
var Data_FunctorWithIndex = PS["Data.FunctorWithIndex"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Ord = PS["Data.Ord"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Show = PS["Data.Show"];
var Data_Traversable = PS["Data.Traversable"];
var Data_TraversableWithIndex = PS["Data.TraversableWithIndex"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unfoldable = PS["Data.Unfoldable"];
var Foreign_Object_ST = PS["Foreign.Object.ST"];
var Prelude = PS["Prelude"];
var lookup = Data_Function_Uncurried.runFn4($foreign._lookup)(Data_Maybe.Nothing.value)(Data_Maybe.Just.create);
exports["lookup"] = lookup;
exports["empty"] = $foreign.empty;
})(PS["Foreign.Object"] = PS["Foreign.Object"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Type_Data_Boolean = PS["Type.Data.Boolean"];
var Type_Data_Symbol = PS["Type.Data.Symbol"];
var Type_Equality = PS["Type.Equality"];
var RLProxy = (function () {
function RLProxy() {
};
RLProxy.value = new RLProxy();
return RLProxy;
})();
exports["RLProxy"] = RLProxy;
})(PS["Type.Row"] = PS["Type.Row"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Data_Eq = PS["Data.Eq"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Symbol = PS["Data.Symbol"];
var Prelude = PS["Prelude"];
var Record_Unsafe = PS["Record.Unsafe"];
var Record_Unsafe_Union = PS["Record.Unsafe.Union"];
var Type_Row = PS["Type.Row"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var get = function (dictIsSymbol) {
return function (dictCons) {
return function (l) {
return function (r) {
return Record_Unsafe.unsafeGet(Data_Symbol.reflectSymbol(dictIsSymbol)(l))(r);
};
};
};
};
exports["get"] = get;
})(PS["Record"] = PS["Record"] || {});
(function(exports) {
"use strict";
exports.copyRecord = function(rec) {
var copy = {};
for (var key in rec) {
if ({}.hasOwnProperty.call(rec, key)) {
copy[key] = rec[key];
}
}
return copy;
};
exports.unsafeInsert = function(l) {
return function(a) {
return function(rec) {
rec[l] = a;
return rec;
};
};
};
})(PS["Record.Builder"] = PS["Record.Builder"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Record.Builder"];
var Control_Category = PS["Control.Category"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var Data_Symbol = PS["Data.Symbol"];
var Prelude = PS["Prelude"];
var Record_Unsafe_Union = PS["Record.Unsafe.Union"];
var Type_Row = PS["Type.Row"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var semigroupoidBuilder = Control_Semigroupoid.semigroupoidFn;
var insert = function (dictCons) {
return function (dictLacks) {
return function (dictIsSymbol) {
return function (l) {
return function (a) {
return function (r1) {
return $foreign.unsafeInsert(Data_Symbol.reflectSymbol(dictIsSymbol)(l))(a)(r1);
};
};
};
};
};
};
var categoryBuilder = Control_Category.categoryFn;
var build = function (v) {
return function (r1) {
return v($foreign.copyRecord(r1));
};
};
exports["build"] = build;
exports["insert"] = insert;
exports["semigroupoidBuilder"] = semigroupoidBuilder;
exports["categoryBuilder"] = categoryBuilder;
})(PS["Record.Builder"] = PS["Record.Builder"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Simple.JSON"];
var Control_Alt = PS["Control.Alt"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Monad_Except = PS["Control.Monad.Except"];
var Control_Monad_Except_Trans = PS["Control.Monad.Except.Trans"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Bifunctor = PS["Data.Bifunctor"];
var Data_Boolean = PS["Data.Boolean"];
var Data_Either = PS["Data.Either"];
var Data_Eq = PS["Data.Eq"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Identity = PS["Data.Identity"];
var Data_List_Types = PS["Data.List.Types"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Nullable = PS["Data.Nullable"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Symbol = PS["Data.Symbol"];
var Data_Traversable = PS["Data.Traversable"];
var Data_Variant = PS["Data.Variant"];
var Effect_Exception = PS["Effect.Exception"];
var Effect_Uncurried = PS["Effect.Uncurried"];
var Effect_Unsafe = PS["Effect.Unsafe"];
var Foreign = PS["Foreign"];
var Foreign_Index = PS["Foreign.Index"];
var Foreign_Object = PS["Foreign.Object"];
var Global_Unsafe = PS["Global.Unsafe"];
var Partial_Unsafe = PS["Partial.Unsafe"];
var Prelude = PS["Prelude"];
var Record = PS["Record"];
var Record_Builder = PS["Record.Builder"];
var Type_Prelude = PS["Type.Prelude"];
var Type_Row = PS["Type.Row"];
var WriteForeign = function (writeImpl) {
this.writeImpl = writeImpl;
};
var WriteForeignFields = function (writeImplFields) {
this.writeImplFields = writeImplFields;
};
var writeImplFields = function (dict) {
return dict.writeImplFields;
};
var writeImpl = function (dict) {
return dict.writeImpl;
};
var writeJSON = function (dictWriteForeign) {
return function ($71) {
return Global_Unsafe.unsafeStringify(writeImpl(dictWriteForeign)($71));
};
};
var writeForeignString = new WriteForeign(Foreign.unsafeToForeign);
var writeForeignInt = new WriteForeign(Foreign.unsafeToForeign);
var writeForeignBoolean = new WriteForeign(Foreign.unsafeToForeign);
var recordWriteForeign = function (dictRowToList) {
return function (dictWriteForeignFields) {
return new WriteForeign(function (rec) {
var steps = writeImplFields(dictWriteForeignFields)(Type_Row.RLProxy.value)(rec);
return Foreign.unsafeToForeign(Record_Builder.build(steps)({}));
});
};
};
var nilWriteForeignFields = new WriteForeignFields(function (v) {
return function (v1) {
return Control_Category.identity(Record_Builder.categoryBuilder);
};
});
var consWriteForeignFields = function (dictIsSymbol) {
return function (dictWriteForeign) {
return function (dictWriteForeignFields) {
return function (dictCons) {
return function (dictLacks) {
return function (dictCons1) {
return new WriteForeignFields(function (v) {
return function (rec) {
var rest = writeImplFields(dictWriteForeignFields)(Type_Row.RLProxy.value)(rec);
var value = writeImpl(dictWriteForeign)(Record.get(dictIsSymbol)(dictCons)(Data_Symbol.SProxy.value)(rec));
var result = Control_Semigroupoid.compose(Record_Builder.semigroupoidBuilder)(Record_Builder.insert(dictCons1)(dictLacks)(dictIsSymbol)(Data_Symbol.SProxy.value)(value))(rest);
return result;
};
});
};
};
};
};
};
};
exports["writeJSON"] = writeJSON;
exports["WriteForeign"] = WriteForeign;
exports["writeImpl"] = writeImpl;
exports["WriteForeignFields"] = WriteForeignFields;
exports["writeImplFields"] = writeImplFields;
exports["writeForeignString"] = writeForeignString;
exports["writeForeignInt"] = writeForeignInt;
exports["writeForeignBoolean"] = writeForeignBoolean;
exports["recordWriteForeign"] = recordWriteForeign;
exports["consWriteForeignFields"] = consWriteForeignFields;
exports["nilWriteForeignFields"] = nilWriteForeignFields;
})(PS["Simple.JSON"] = PS["Simple.JSON"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Data_Symbol = PS["Data.Symbol"];
var Simple_JSON = PS["Simple.JSON"];
var wfI = Simple_JSON.recordWriteForeign()(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "bid";
}))(Simple_JSON.writeForeignInt)(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "description";
}))(Simple_JSON.writeForeignString)(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "private";
}))(Simple_JSON.writeForeignBoolean)(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "selected";
}))(Simple_JSON.writeForeignBoolean)(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "tags";
}))(Simple_JSON.writeForeignString)(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "time";
}))(Simple_JSON.writeForeignString)(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "title";
}))(Simple_JSON.writeForeignString)(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "toread";
}))(Simple_JSON.writeForeignBoolean)(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "url";
}))(Simple_JSON.writeForeignString)(Simple_JSON.nilWriteForeignFields)()()())()()())()()())()()())()()())()()())()()())()()())()()());
exports["wfI"] = wfI;
})(PS["Model"] = PS["Model"] || {});
(function(exports) {
/* global window */
"use strict";
exports.window = function () {
return window;
};
})(PS["Web.HTML"] = PS["Web.HTML"] || {});
(function(exports) {
"use strict";
exports._body = function (doc) {
return function () {
return doc.body;
};
};
})(PS["Web.HTML.HTMLDocument"] = PS["Web.HTML.HTMLDocument"] || {});
(function(exports) {
"use strict";
exports.removeAttribute = function (name) {
return function (element) {
return function () {
element.removeAttribute(name);
return {};
};
};
};
})(PS["Web.DOM.Element"] = PS["Web.DOM.Element"] || {});
(function(exports) {
"use strict";
exports._querySelector = function (selector) {
return function (node) {
return function () {
return node.querySelector(selector);
};
};
};
exports.querySelectorAll = function (selector) {
return function (node) {
return function () {
return node.querySelectorAll(selector);
};
};
};
})(PS["Web.DOM.ParentNode"] = PS["Web.DOM.ParentNode"] || {});
(function(exports) {
"use strict";
exports.toArray = function (list) {
return function () {
return [].slice.call(list);
};
};
})(PS["Web.DOM.NodeList"] = PS["Web.DOM.NodeList"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Web.DOM.NodeList"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Nullable = PS["Data.Nullable"];
var Effect = PS["Effect"];
var Prelude = PS["Prelude"];
var Web_DOM_Internal_Types = PS["Web.DOM.Internal.Types"];
exports["toArray"] = $foreign.toArray;
})(PS["Web.DOM.NodeList"] = PS["Web.DOM.NodeList"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Web.DOM.ParentNode"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Eq = PS["Data.Eq"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Nullable = PS["Data.Nullable"];
var Data_Ord = PS["Data.Ord"];
var Effect = PS["Effect"];
var Prelude = PS["Prelude"];
var Web_DOM_HTMLCollection = PS["Web.DOM.HTMLCollection"];
var Web_DOM_Internal_Types = PS["Web.DOM.Internal.Types"];
var Web_DOM_NodeList = PS["Web.DOM.NodeList"];
var querySelector = function (qs) {
return function ($3) {
return Data_Functor.map(Effect.functorEffect)(Data_Nullable.toMaybe)($foreign._querySelector(qs)($3));
};
};
exports["querySelector"] = querySelector;
exports["querySelectorAll"] = $foreign.querySelectorAll;
})(PS["Web.DOM.ParentNode"] = PS["Web.DOM.ParentNode"] || {});
(function(exports) {
"use strict";
exports.eventListener = function (fn) {
return function () {
return function (event) {
return fn(event)();
};
};
};
})(PS["Web.Event.EventTarget"] = PS["Web.Event.EventTarget"] || {});
(function(exports) {
"use strict";
exports._currentTarget = function (e) {
return e.currentTarget;
};
exports.preventDefault = function (e) {
return function () {
return e.preventDefault();
};
};
})(PS["Web.Event.Event"] = PS["Web.Event.Event"] || {});
(function(exports) {
"use strict";
exports.toCharCode = function (c) {
return c.charCodeAt(0);
};
exports.fromCharCode = function (c) {
return String.fromCharCode(c);
};
})(PS["Data.Enum"] = PS["Data.Enum"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Enum"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_MonadPlus = PS["Control.MonadPlus"];
var Control_MonadZero = PS["Control.MonadZero"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Boolean = PS["Data.Boolean"];
var Data_Bounded = PS["Data.Bounded"];
var Data_Either = PS["Data.Either"];
var Data_Eq = PS["Data.Eq"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Ring = PS["Data.Ring"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Show = PS["Data.Show"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unfoldable = PS["Data.Unfoldable"];
var Data_Unfoldable1 = PS["Data.Unfoldable1"];
var Data_Unit = PS["Data.Unit"];
var Partial_Unsafe = PS["Partial.Unsafe"];
var Prelude = PS["Prelude"];
var Enum = function (Ord0, pred, succ) {
this.Ord0 = Ord0;
this.pred = pred;
this.succ = succ;
};
var BoundedEnum = function (Bounded0, Enum1, cardinality, fromEnum, toEnum) {
this.Bounded0 = Bounded0;
this.Enum1 = Enum1;
this.cardinality = cardinality;
this.fromEnum = fromEnum;
this.toEnum = toEnum;
};
var toEnum = function (dict) {
return dict.toEnum;
};
var succ = function (dict) {
return dict.succ;
};
var pred = function (dict) {
return dict.pred;
};
var fromEnum = function (dict) {
return dict.fromEnum;
};
var toEnumWithDefaults = function (dictBoundedEnum) {
return function (low) {
return function (high) {
return function (x) {
var v = toEnum(dictBoundedEnum)(x);
if (v instanceof Data_Maybe.Just) {
return v.value0;
};
if (v instanceof Data_Maybe.Nothing) {
var $51 = x < fromEnum(dictBoundedEnum)(Data_Bounded.bottom(dictBoundedEnum.Bounded0()));
if ($51) {
return low;
};
return high;
};
throw new Error("Failed pattern match at Data.Enum line 158, column 33 - line 160, column 62: " + [ v.constructor.name ]);
};
};
};
};
var defaultSucc = function (toEnum$prime) {
return function (fromEnum$prime) {
return function (a) {
return toEnum$prime(fromEnum$prime(a) + 1 | 0);
};
};
};
var defaultPred = function (toEnum$prime) {
return function (fromEnum$prime) {
return function (a) {
return toEnum$prime(fromEnum$prime(a) - 1 | 0);
};
};
};
var charToEnum = function (v) {
if (v >= Data_Bounded.bottom(Data_Bounded.boundedInt) && v <= Data_Bounded.top(Data_Bounded.boundedInt)) {
return new Data_Maybe.Just($foreign.fromCharCode(v));
};
return Data_Maybe.Nothing.value;
};
var enumChar = new Enum(function () {
return Data_Ord.ordChar;
}, defaultPred(charToEnum)($foreign.toCharCode), defaultSucc(charToEnum)($foreign.toCharCode));
var cardinality = function (dict) {
return dict.cardinality;
};
var boundedEnumChar = new BoundedEnum(function () {
return Data_Bounded.boundedChar;
}, function () {
return enumChar;
}, $foreign.toCharCode(Data_Bounded.top(Data_Bounded.boundedChar)) - $foreign.toCharCode(Data_Bounded.bottom(Data_Bounded.boundedChar)) | 0, $foreign.toCharCode, charToEnum);
exports["Enum"] = Enum;
exports["succ"] = succ;
exports["pred"] = pred;
exports["BoundedEnum"] = BoundedEnum;
exports["cardinality"] = cardinality;
exports["toEnum"] = toEnum;
exports["fromEnum"] = fromEnum;
exports["toEnumWithDefaults"] = toEnumWithDefaults;
exports["defaultSucc"] = defaultSucc;
exports["defaultPred"] = defaultPred;
exports["enumChar"] = enumChar;
exports["boundedEnumChar"] = boundedEnumChar;
})(PS["Data.Enum"] = PS["Data.Enum"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Web.Event.Event"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_DateTime_Instant = PS["Data.DateTime.Instant"];
var Data_Enum = PS["Data.Enum"];
var Data_Eq = PS["Data.Eq"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Nullable = PS["Data.Nullable"];
var Data_Ord = PS["Data.Ord"];
var Effect = PS["Effect"];
var Prelude = PS["Prelude"];
var Web_Event_EventPhase = PS["Web.Event.EventPhase"];
var Web_Event_Internal_Types = PS["Web.Event.Internal.Types"];
var currentTarget = function ($6) {
return Data_Nullable.toMaybe($foreign._currentTarget($6));
};
exports["currentTarget"] = currentTarget;
exports["preventDefault"] = $foreign.preventDefault;
})(PS["Web.Event.Event"] = PS["Web.Event.Event"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Web.Event.EventTarget"];
var Effect = PS["Effect"];
var Prelude = PS["Prelude"];
var Web_Event_Event = PS["Web.Event.Event"];
var Web_Event_Internal_Types = PS["Web.Event.Internal.Types"];
exports["eventListener"] = $foreign.eventListener;
})(PS["Web.Event.EventTarget"] = PS["Web.Event.EventTarget"] || {});
(function(exports) {
"use strict";
exports._unsafeReadProtoTagged = function (nothing, just, name, value) {
var obj = value;
while (obj != null) {
var proto = Object.getPrototypeOf(obj);
var ctor = proto.constructor.name;
if (ctor === name) {
return just(value);
} else if (ctor === "Object") {
return nothing;
}
obj = proto;
}
return nothing;
};
})(PS["Web.Internal.FFI"] = PS["Web.Internal.FFI"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Web.Internal.FFI"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var Data_Maybe = PS["Data.Maybe"];
var unsafeReadProtoTagged = function (name) {
return function (value) {
return $foreign._unsafeReadProtoTagged(Data_Maybe.Nothing.value, Data_Maybe.Just.create, name, value);
};
};
exports["unsafeReadProtoTagged"] = unsafeReadProtoTagged;
})(PS["Web.Internal.FFI"] = PS["Web.Internal.FFI"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Web.DOM.Element"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Nullable = PS["Data.Nullable"];
var Effect = PS["Effect"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var Web_DOM_ChildNode = PS["Web.DOM.ChildNode"];
var Web_DOM_Internal_Types = PS["Web.DOM.Internal.Types"];
var Web_DOM_NonDocumentTypeChildNode = PS["Web.DOM.NonDocumentTypeChildNode"];
var Web_DOM_ParentNode = PS["Web.DOM.ParentNode"];
var Web_Event_EventTarget = PS["Web.Event.EventTarget"];
var Web_Internal_FFI = PS["Web.Internal.FFI"];
var toParentNode = Unsafe_Coerce.unsafeCoerce;
var toNode = Unsafe_Coerce.unsafeCoerce;
var fromNode = Web_Internal_FFI.unsafeReadProtoTagged("Element");
exports["fromNode"] = fromNode;
exports["toNode"] = toNode;
exports["toParentNode"] = toParentNode;
exports["removeAttribute"] = $foreign.removeAttribute;
})(PS["Web.DOM.Element"] = PS["Web.DOM.Element"] || {});
(function(exports) {
"use strict";
exports._getElementById = function (id) {
return function (node) {
return function () {
return node.getElementById(id);
};
};
};
})(PS["Web.DOM.NonElementParentNode"] = PS["Web.DOM.NonElementParentNode"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Web.DOM.NonElementParentNode"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Nullable = PS["Data.Nullable"];
var Effect = PS["Effect"];
var Prelude = PS["Prelude"];
var Web_DOM_Element = PS["Web.DOM.Element"];
var getElementById = function (eid) {
return function ($0) {
return Data_Functor.map(Effect.functorEffect)(Data_Nullable.toMaybe)($foreign._getElementById(eid)($0));
};
};
exports["getElementById"] = getElementById;
})(PS["Web.DOM.NonElementParentNode"] = PS["Web.DOM.NonElementParentNode"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Web.DOM.Document"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Nullable = PS["Data.Nullable"];
var Effect = PS["Effect"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var Web_DOM_Comment = PS["Web.DOM.Comment"];
var Web_DOM_DocumentFragment = PS["Web.DOM.DocumentFragment"];
var Web_DOM_DocumentType = PS["Web.DOM.DocumentType"];
var Web_DOM_Element = PS["Web.DOM.Element"];
var Web_DOM_HTMLCollection = PS["Web.DOM.HTMLCollection"];
var Web_DOM_Internal_Types = PS["Web.DOM.Internal.Types"];
var Web_DOM_NonElementParentNode = PS["Web.DOM.NonElementParentNode"];
var Web_DOM_ParentNode = PS["Web.DOM.ParentNode"];
var Web_DOM_ProcessingInstruction = PS["Web.DOM.ProcessingInstruction"];
var Web_DOM_Text = PS["Web.DOM.Text"];
var Web_Event_EventTarget = PS["Web.Event.EventTarget"];
var Web_Internal_FFI = PS["Web.Internal.FFI"];
var toNonElementParentNode = Unsafe_Coerce.unsafeCoerce;
exports["toNonElementParentNode"] = toNonElementParentNode;
})(PS["Web.DOM.Document"] = PS["Web.DOM.Document"] || {});
(function(exports) {
"use strict";
exports._read = function (nothing, just, value) {
var tag = Object.prototype.toString.call(value);
if (tag.indexOf("[object HTML") === 0 && tag.indexOf("Element]") === tag.length - 8) {
return just(value);
} else {
return nothing;
}
};
})(PS["Web.HTML.HTMLElement"] = PS["Web.HTML.HTMLElement"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Web.HTML.HTMLElement"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Nullable = PS["Data.Nullable"];
var Effect = PS["Effect"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var Web_DOM = PS["Web.DOM"];
var Web_DOM_DOMTokenList = PS["Web.DOM.DOMTokenList"];
var Web_DOM_Element = PS["Web.DOM.Element"];
var Web_DOM_Internal_Types = PS["Web.DOM.Internal.Types"];
var Web_DOM_NonDocumentTypeChildNode = PS["Web.DOM.NonDocumentTypeChildNode"];
var Web_DOM_ParentNode = PS["Web.DOM.ParentNode"];
var Web_Event_EventTarget = PS["Web.Event.EventTarget"];
var toNode = Unsafe_Coerce.unsafeCoerce;
var toElement = Unsafe_Coerce.unsafeCoerce;
var fromElement = function (x) {
return $foreign._read(Data_Maybe.Nothing.value, Data_Maybe.Just.create, x);
};
exports["fromElement"] = fromElement;
exports["toElement"] = toElement;
exports["toNode"] = toNode;
})(PS["Web.HTML.HTMLElement"] = PS["Web.HTML.HTMLElement"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Web.HTML.HTMLDocument"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Nullable = PS["Data.Nullable"];
var Effect = PS["Effect"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var Web_DOM_Document = PS["Web.DOM.Document"];
var Web_DOM_Internal_Types = PS["Web.DOM.Internal.Types"];
var Web_DOM_NonElementParentNode = PS["Web.DOM.NonElementParentNode"];
var Web_DOM_ParentNode = PS["Web.DOM.ParentNode"];
var Web_Event_EventTarget = PS["Web.Event.EventTarget"];
var Web_HTML_HTMLDocument_ReadyState = PS["Web.HTML.HTMLDocument.ReadyState"];
var Web_HTML_HTMLElement = PS["Web.HTML.HTMLElement"];
var Web_Internal_FFI = PS["Web.Internal.FFI"];
var toParentNode = Unsafe_Coerce.unsafeCoerce;
var toDocument = Unsafe_Coerce.unsafeCoerce;
var body = function ($2) {
return Data_Functor.map(Effect.functorEffect)(Data_Nullable.toMaybe)($foreign._body($2));
};
exports["toDocument"] = toDocument;
exports["toParentNode"] = toParentNode;
exports["body"] = body;
})(PS["Web.HTML.HTMLDocument"] = PS["Web.HTML.HTMLDocument"] || {});
(function(exports) {
"use strict";
// ----------------------------------------------------------------------------
exports.href = function (location) {
return function () {
return location.href;
};
};
exports.setHref = function (href) {
return function (location) {
return function () {
location.href = href;
};
};
};
// ----------------------------------------------------------------------------
exports.search = function (location) {
return function () {
return location.search;
};
};
// ----------------------------------------------------------------------------
exports.reload = function (location) {
return function () {
location.reload();
};
};
})(PS["Web.HTML.Location"] = PS["Web.HTML.Location"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Web.HTML.Location"];
var Effect = PS["Effect"];
var Prelude = PS["Prelude"];
exports["setHref"] = $foreign.setHref;
exports["search"] = $foreign.search;
exports["reload"] = $foreign.reload;
})(PS["Web.HTML.Location"] = PS["Web.HTML.Location"] || {});
(function(exports) {
"use strict";
exports.document = function (window) {
return function () {
return window.document;
};
};
exports.location = function (window) {
return function () {
return window.location;
};
};
})(PS["Web.HTML.Window"] = PS["Web.HTML.Window"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Web.HTML.Window"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Eq = PS["Data.Eq"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Nullable = PS["Data.Nullable"];
var Data_Ord = PS["Data.Ord"];
var Effect = PS["Effect"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var Web_Event_EventTarget = PS["Web.Event.EventTarget"];
var Web_HTML_HTMLDocument = PS["Web.HTML.HTMLDocument"];
var Web_HTML_History = PS["Web.HTML.History"];
var Web_HTML_Location = PS["Web.HTML.Location"];
var Web_HTML_Navigator = PS["Web.HTML.Navigator"];
var Web_Storage_Storage = PS["Web.Storage.Storage"];
exports["document"] = $foreign.document;
exports["location"] = $foreign.location;
})(PS["Web.HTML.Window"] = PS["Web.HTML.Window"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Web.HTML"];
var Effect = PS["Effect"];
var Web_HTML_HTMLAnchorElement = PS["Web.HTML.HTMLAnchorElement"];
var Web_HTML_HTMLAreaElement = PS["Web.HTML.HTMLAreaElement"];
var Web_HTML_HTMLAudioElement = PS["Web.HTML.HTMLAudioElement"];
var Web_HTML_HTMLBRElement = PS["Web.HTML.HTMLBRElement"];
var Web_HTML_HTMLBaseElement = PS["Web.HTML.HTMLBaseElement"];
var Web_HTML_HTMLBodyElement = PS["Web.HTML.HTMLBodyElement"];
var Web_HTML_HTMLButtonElement = PS["Web.HTML.HTMLButtonElement"];
var Web_HTML_HTMLCanvasElement = PS["Web.HTML.HTMLCanvasElement"];
var Web_HTML_HTMLDListElement = PS["Web.HTML.HTMLDListElement"];
var Web_HTML_HTMLDataElement = PS["Web.HTML.HTMLDataElement"];
var Web_HTML_HTMLDataListElement = PS["Web.HTML.HTMLDataListElement"];
var Web_HTML_HTMLDivElement = PS["Web.HTML.HTMLDivElement"];
var Web_HTML_HTMLDocument = PS["Web.HTML.HTMLDocument"];
var Web_HTML_HTMLElement = PS["Web.HTML.HTMLElement"];
var Web_HTML_HTMLEmbedElement = PS["Web.HTML.HTMLEmbedElement"];
var Web_HTML_HTMLFieldSetElement = PS["Web.HTML.HTMLFieldSetElement"];
var Web_HTML_HTMLFormElement = PS["Web.HTML.HTMLFormElement"];
var Web_HTML_HTMLHRElement = PS["Web.HTML.HTMLHRElement"];
var Web_HTML_HTMLHeadElement = PS["Web.HTML.HTMLHeadElement"];
var Web_HTML_HTMLHeadingElement = PS["Web.HTML.HTMLHeadingElement"];
var Web_HTML_HTMLIFrameElement = PS["Web.HTML.HTMLIFrameElement"];
var Web_HTML_HTMLImageElement = PS["Web.HTML.HTMLImageElement"];
var Web_HTML_HTMLInputElement = PS["Web.HTML.HTMLInputElement"];
var Web_HTML_HTMLKeygenElement = PS["Web.HTML.HTMLKeygenElement"];
var Web_HTML_HTMLLIElement = PS["Web.HTML.HTMLLIElement"];
var Web_HTML_HTMLLabelElement = PS["Web.HTML.HTMLLabelElement"];
var Web_HTML_HTMLLegendElement = PS["Web.HTML.HTMLLegendElement"];
var Web_HTML_HTMLLinkElement = PS["Web.HTML.HTMLLinkElement"];
var Web_HTML_HTMLMapElement = PS["Web.HTML.HTMLMapElement"];
var Web_HTML_HTMLMediaElement = PS["Web.HTML.HTMLMediaElement"];
var Web_HTML_HTMLMetaElement = PS["Web.HTML.HTMLMetaElement"];
var Web_HTML_HTMLMeterElement = PS["Web.HTML.HTMLMeterElement"];
var Web_HTML_HTMLModElement = PS["Web.HTML.HTMLModElement"];
var Web_HTML_HTMLOListElement = PS["Web.HTML.HTMLOListElement"];
var Web_HTML_HTMLObjectElement = PS["Web.HTML.HTMLObjectElement"];
var Web_HTML_HTMLOptGroupElement = PS["Web.HTML.HTMLOptGroupElement"];
var Web_HTML_HTMLOptionElement = PS["Web.HTML.HTMLOptionElement"];
var Web_HTML_HTMLOutputElement = PS["Web.HTML.HTMLOutputElement"];
var Web_HTML_HTMLParagraphElement = PS["Web.HTML.HTMLParagraphElement"];
var Web_HTML_HTMLParamElement = PS["Web.HTML.HTMLParamElement"];
var Web_HTML_HTMLPreElement = PS["Web.HTML.HTMLPreElement"];
var Web_HTML_HTMLProgressElement = PS["Web.HTML.HTMLProgressElement"];
var Web_HTML_HTMLQuoteElement = PS["Web.HTML.HTMLQuoteElement"];
var Web_HTML_HTMLScriptElement = PS["Web.HTML.HTMLScriptElement"];
var Web_HTML_HTMLSelectElement = PS["Web.HTML.HTMLSelectElement"];
var Web_HTML_HTMLSourceElement = PS["Web.HTML.HTMLSourceElement"];
var Web_HTML_HTMLSpanElement = PS["Web.HTML.HTMLSpanElement"];
var Web_HTML_HTMLStyleElement = PS["Web.HTML.HTMLStyleElement"];
var Web_HTML_HTMLTableCaptionElement = PS["Web.HTML.HTMLTableCaptionElement"];
var Web_HTML_HTMLTableCellElement = PS["Web.HTML.HTMLTableCellElement"];
var Web_HTML_HTMLTableColElement = PS["Web.HTML.HTMLTableColElement"];
var Web_HTML_HTMLTableDataCellElement = PS["Web.HTML.HTMLTableDataCellElement"];
var Web_HTML_HTMLTableElement = PS["Web.HTML.HTMLTableElement"];
var Web_HTML_HTMLTableHeaderCellElement = PS["Web.HTML.HTMLTableHeaderCellElement"];
var Web_HTML_HTMLTableRowElement = PS["Web.HTML.HTMLTableRowElement"];
var Web_HTML_HTMLTableSectionElement = PS["Web.HTML.HTMLTableSectionElement"];
var Web_HTML_HTMLTemplateElement = PS["Web.HTML.HTMLTemplateElement"];
var Web_HTML_HTMLTextAreaElement = PS["Web.HTML.HTMLTextAreaElement"];
var Web_HTML_HTMLTimeElement = PS["Web.HTML.HTMLTimeElement"];
var Web_HTML_HTMLTitleElement = PS["Web.HTML.HTMLTitleElement"];
var Web_HTML_HTMLTrackElement = PS["Web.HTML.HTMLTrackElement"];
var Web_HTML_HTMLUListElement = PS["Web.HTML.HTMLUListElement"];
var Web_HTML_HTMLVideoElement = PS["Web.HTML.HTMLVideoElement"];
var Web_HTML_History = PS["Web.HTML.History"];
var Web_HTML_Location = PS["Web.HTML.Location"];
var Web_HTML_Navigator = PS["Web.HTML.Navigator"];
var Web_HTML_Window = PS["Web.HTML.Window"];
exports["window"] = $foreign.window;
})(PS["Web.HTML"] = PS["Web.HTML"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Globals"];
var Control_Applicative = PS["Control.Applicative"];
var Data_Function = PS["Data.Function"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Nullable = PS["Data.Nullable"];
var Data_Tuple = PS["Data.Tuple"];
var Effect = PS["Effect"];
var Model = PS["Model"];
var Prelude = PS["Prelude"];
var Web_DOM = PS["Web.DOM"];
var Web_HTML = PS["Web.HTML"];
var Web_XHR_FormData = PS["Web.XHR.FormData"];
var setInnerHtml = function (c) {
return function (n) {
return Control_Applicative.pure(Effect.applicativeEffect)($foreign._setInnerHtml(c, n));
};
};
var setDataAttribute = function (k) {
return function (v) {
return function (n) {
return Control_Applicative.pure(Effect.applicativeEffect)($foreign._setDataAttribute(k, v, n));
};
};
};
var moment8601 = function (s) {
return Control_Applicative.pure(Effect.applicativeEffect)($foreign._moment8601(Data_Tuple.Tuple.create, s));
};
var mmoment8601 = function (s) {
return $foreign._mmoment8601(Data_Maybe.Just.create, Data_Maybe.Nothing.value, Data_Tuple.Tuple.create, s);
};
var innerHtml = function (n) {
return Control_Applicative.pure(Effect.applicativeEffect)($foreign._innerHtml(n));
};
var getDataAttribute = function (k) {
return function (n) {
return Control_Applicative.pure(Effect.applicativeEffect)(Data_Nullable.toMaybe($foreign._getDataAttribute(k, n)));
};
};
var createFormString = function (f) {
return $foreign._createFormString(f);
};
var createFormData = function (f) {
return $foreign._createFormData(f);
};
var createFormArray = function (f) {
return $foreign._createFormArray(f);
};
var closest = function (selector) {
return function (node) {
return Control_Applicative.pure(Effect.applicativeEffect)($foreign._closest(Data_Maybe.Just.create, Data_Maybe.Nothing.value, selector, node));
};
};
var closeWindow = function (win) {
return Control_Applicative.pure(Effect.applicativeEffect)($foreign._closeWindow(win));
};
var app$prime = function (v) {
return $foreign._app();
};
exports["app'"] = app$prime;
exports["closest"] = closest;
exports["moment8601"] = moment8601;
exports["mmoment8601"] = mmoment8601;
exports["innerHtml"] = innerHtml;
exports["setInnerHtml"] = setInnerHtml;
exports["createFormData"] = createFormData;
exports["createFormString"] = createFormString;
exports["createFormArray"] = createFormArray;
exports["getDataAttribute"] = getDataAttribute;
exports["setDataAttribute"] = setDataAttribute;
exports["closeWindow"] = closeWindow;
exports["_app"] = $foreign._app;
exports["_closest"] = $foreign._closest;
exports["_moment8601"] = $foreign._moment8601;
exports["_mmoment8601"] = $foreign._mmoment8601;
exports["_innerHtml"] = $foreign._innerHtml;
exports["_setInnerHtml"] = $foreign._setInnerHtml;
exports["_createFormData"] = $foreign._createFormData;
exports["_createFormString"] = $foreign._createFormString;
exports["_createFormArray"] = $foreign._createFormArray;
exports["_getDataAttribute"] = $foreign._getDataAttribute;
exports["_setDataAttribute"] = $foreign._setDataAttribute;
exports["_closeWindow"] = $foreign._closeWindow;
})(PS["Globals"] = PS["Globals"] || {});
(function(exports) {
/* global exports */
/* global XMLHttpRequest */
/* global module */
/* global process */
"use strict";
exports._ajax = function () {
var platformSpecific = { };
if (typeof module !== "undefined" && module.require && !(typeof process !== "undefined" && process.versions["electron"])) {
// We are on node.js
platformSpecific.newXHR = function () {
var XHR = module.require("xhr2");
return new XHR();
};
platformSpecific.fixupUrl = function (url) {
var urllib = module.require("url");
var u = urllib.parse(url);
u.protocol = u.protocol || "http:";
u.hostname = u.hostname || "localhost";
return urllib.format(u);
};
platformSpecific.getResponse = function (xhr) {
return xhr.response;
};
} else {
// We are in the browser
platformSpecific.newXHR = function () {
return new XMLHttpRequest();
};
platformSpecific.fixupUrl = function (url) {
return url || "/";
};
platformSpecific.getResponse = function (xhr) {
return xhr.response;
};
}
return function (mkHeader, options) {
return function (errback, callback) {
var xhr = platformSpecific.newXHR();
var fixedUrl = platformSpecific.fixupUrl(options.url);
xhr.open(options.method || "GET", fixedUrl, true, options.username, options.password);
if (options.headers) {
try {
for (var i = 0, header; (header = options.headers[i]) != null; i++) {
xhr.setRequestHeader(header.field, header.value);
}
} catch (e) {
errback(e);
}
}
xhr.onerror = function () {
errback(new Error("AJAX request failed: " + options.method + " " + options.url));
};
xhr.onload = function () {
callback({
status: xhr.status,
statusText: xhr.statusText,
headers: xhr.getAllResponseHeaders().split("\r\n")
.filter(function (header) {
return header.length > 0;
})
.map(function (header) {
var i = header.indexOf(":");
return mkHeader(header.substring(0, i))(header.substring(i + 2));
}),
response: platformSpecific.getResponse(xhr)
});
};
xhr.responseType = options.responseType;
xhr.withCredentials = options.withCredentials;
xhr.send(options.content);
return function (error, cancelErrback, cancelCallback) {
try {
xhr.abort();
} catch (e) {
return cancelErrback(e);
}
return cancelCallback();
};
};
};
}();
})(PS["Network.HTTP.Affjax"] = PS["Network.HTTP.Affjax"] || {});
(function(exports) {
"use strict";
function id(x) {
return x;
}
exports.fromObject = id;
exports.stringify = function (j) {
return JSON.stringify(j);
};
function isArray(a) {
return objToString.call(a) === "[object Array]";
}
})(PS["Data.Argonaut.Core"] = PS["Data.Argonaut.Core"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Argonaut.Core"];
var Data_Eq = PS["Data.Eq"];
var Data_Function = PS["Data.Function"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Foreign_Object = PS["Foreign.Object"];
var Prelude = PS["Prelude"];
var jsonEmptyObject = $foreign.fromObject(Foreign_Object.empty);
exports["jsonEmptyObject"] = jsonEmptyObject;
exports["stringify"] = $foreign.stringify;
})(PS["Data.Argonaut.Core"] = PS["Data.Argonaut.Core"] || {});
(function(exports) {
"use strict";
exports._jsonParser = function (fail, succ, s) {
try {
return succ(JSON.parse(s));
}
catch (e) {
return fail(e.message);
}
};
})(PS["Data.Argonaut.Parser"] = PS["Data.Argonaut.Parser"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.Argonaut.Parser"];
var Data_Argonaut_Core = PS["Data.Argonaut.Core"];
var Data_Either = PS["Data.Either"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var jsonParser = function (j) {
return $foreign._jsonParser(Data_Either.Left.create, Data_Either.Right.create, j);
};
exports["jsonParser"] = jsonParser;
})(PS["Data.Argonaut.Parser"] = PS["Data.Argonaut.Parser"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Either = PS["Data.Either"];
var Data_Function = PS["Data.Function"];
var Effect = PS["Effect"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Exception = PS["Effect.Exception"];
var Effect_Uncurried = PS["Effect.Uncurried"];
var Prelude = PS["Prelude"];
var fromEffectFnAff = function (v) {
return Effect_Aff.makeAff(function (k) {
return function __do() {
var v1 = v(function ($4) {
return k(Data_Either.Left.create($4))();
}, function ($5) {
return k(Data_Either.Right.create($5))();
});
return function (e) {
return Effect_Aff.makeAff(function (k2) {
return function __do() {
v1(e, function ($6) {
return k2(Data_Either.Left.create($6))();
}, function ($7) {
return k2(Data_Either.Right.create($7))();
});
return Effect_Aff.nonCanceler;
};
});
};
};
});
};
exports["fromEffectFnAff"] = fromEffectFnAff;
})(PS["Effect.Aff.Compat"] = PS["Effect.Aff.Compat"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Data_Argonaut_Core = PS["Data.Argonaut.Core"];
var Data_ArrayBuffer_Types = PS["Data.ArrayBuffer.Types"];
var Data_FormURLEncoded = PS["Data.FormURLEncoded"];
var Data_Maybe = PS["Data.Maybe"];
var Data_MediaType = PS["Data.MediaType"];
var Data_MediaType_Common = PS["Data.MediaType.Common"];
var Web_DOM_Document = PS["Web.DOM.Document"];
var Web_File_Blob = PS["Web.File.Blob"];
var Web_XHR_FormData = PS["Web.XHR.FormData"];
var ArrayView = (function () {
function ArrayView(value0) {
this.value0 = value0;
};
ArrayView.create = function (value0) {
return new ArrayView(value0);
};
return ArrayView;
})();
var Blob = (function () {
function Blob(value0) {
this.value0 = value0;
};
Blob.create = function (value0) {
return new Blob(value0);
};
return Blob;
})();
var Document = (function () {
function Document(value0) {
this.value0 = value0;
};
Document.create = function (value0) {
return new Document(value0);
};
return Document;
})();
var $$String = (function () {
function $$String(value0) {
this.value0 = value0;
};
$$String.create = function (value0) {
return new $$String(value0);
};
return $$String;
})();
var FormData = (function () {
function FormData(value0) {
this.value0 = value0;
};
FormData.create = function (value0) {
return new FormData(value0);
};
return FormData;
})();
var FormURLEncoded = (function () {
function FormURLEncoded(value0) {
this.value0 = value0;
};
FormURLEncoded.create = function (value0) {
return new FormURLEncoded(value0);
};
return FormURLEncoded;
})();
var Json = (function () {
function Json(value0) {
this.value0 = value0;
};
Json.create = function (value0) {
return new Json(value0);
};
return Json;
})();
var toMediaType = function (v) {
if (v instanceof FormURLEncoded) {
return new Data_Maybe.Just(Data_MediaType_Common.applicationFormURLEncoded);
};
if (v instanceof Json) {
return new Data_Maybe.Just(Data_MediaType_Common.applicationJSON);
};
return Data_Maybe.Nothing.value;
};
var string = $$String.create;
exports["ArrayView"] = ArrayView;
exports["Blob"] = Blob;
exports["Document"] = Document;
exports["String"] = $$String;
exports["FormData"] = FormData;
exports["FormURLEncoded"] = FormURLEncoded;
exports["Json"] = Json;
exports["string"] = string;
exports["toMediaType"] = toMediaType;
})(PS["Network.HTTP.Affjax.Request"] = PS["Network.HTTP.Affjax.Request"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Category = PS["Control.Category"];
var Data_Argonaut_Core = PS["Data.Argonaut.Core"];
var Data_ArrayBuffer_Types = PS["Data.ArrayBuffer.Types"];
var Data_Maybe = PS["Data.Maybe"];
var Data_MediaType = PS["Data.MediaType"];
var Data_MediaType_Common = PS["Data.MediaType.Common"];
var Prelude = PS["Prelude"];
var Web_DOM_Document = PS["Web.DOM.Document"];
var Web_File_Blob = PS["Web.File.Blob"];
var $$ArrayBuffer = (function () {
function $$ArrayBuffer(value0) {
this.value0 = value0;
};
$$ArrayBuffer.create = function (value0) {
return new $$ArrayBuffer(value0);
};
return $$ArrayBuffer;
})();
var Blob = (function () {
function Blob(value0) {
this.value0 = value0;
};
Blob.create = function (value0) {
return new Blob(value0);
};
return Blob;
})();
var Document = (function () {
function Document(value0) {
this.value0 = value0;
};
Document.create = function (value0) {
return new Document(value0);
};
return Document;
})();
var Json = (function () {
function Json(value0) {
this.value0 = value0;
};
Json.create = function (value0) {
return new Json(value0);
};
return Json;
})();
var $$String = (function () {
function $$String(value0) {
this.value0 = value0;
};
$$String.create = function (value0) {
return new $$String(value0);
};
return $$String;
})();
var Ignore = (function () {
function Ignore(value0) {
this.value0 = value0;
};
Ignore.create = function (value0) {
return new Ignore(value0);
};
return Ignore;
})();
var toResponseType = function (v) {
if (v instanceof $$ArrayBuffer) {
return "arraybuffer";
};
if (v instanceof Blob) {
return "blob";
};
if (v instanceof Document) {
return "document";
};
if (v instanceof Json) {
return "text";
};
if (v instanceof $$String) {
return "text";
};
if (v instanceof Ignore) {
return "";
};
throw new Error("Failed pattern match at Network.HTTP.Affjax.Response line 41, column 3 - line 49, column 1: " + [ v.constructor.name ]);
};
var toMediaType = function (v) {
if (v instanceof Json) {
return new Data_Maybe.Just(Data_MediaType_Common.applicationJSON);
};
return Data_Maybe.Nothing.value;
};
var ignore = new Ignore(Control_Category.identity(Control_Category.categoryFn));
exports["ArrayBuffer"] = $$ArrayBuffer;
exports["Blob"] = Blob;
exports["Document"] = Document;
exports["Json"] = Json;
exports["String"] = $$String;
exports["Ignore"] = Ignore;
exports["ignore"] = ignore;
exports["toResponseType"] = toResponseType;
exports["toMediaType"] = toMediaType;
})(PS["Network.HTTP.Affjax.Response"] = PS["Network.HTTP.Affjax.Response"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Data_Eq = PS["Data.Eq"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_MediaType = PS["Data.MediaType"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Show = PS["Data.Show"];
var Prelude = PS["Prelude"];
var Accept = (function () {
function Accept(value0) {
this.value0 = value0;
};
Accept.create = function (value0) {
return new Accept(value0);
};
return Accept;
})();
var ContentType = (function () {
function ContentType(value0) {
this.value0 = value0;
};
ContentType.create = function (value0) {
return new ContentType(value0);
};
return ContentType;
})();
var RequestHeader = (function () {
function RequestHeader(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
RequestHeader.create = function (value0) {
return function (value1) {
return new RequestHeader(value0, value1);
};
};
return RequestHeader;
})();
var requestHeaderValue = function (v) {
if (v instanceof Accept) {
return Data_Newtype.unwrap(Data_MediaType.newtypeMediaType)(v.value0);
};
if (v instanceof ContentType) {
return Data_Newtype.unwrap(Data_MediaType.newtypeMediaType)(v.value0);
};
if (v instanceof RequestHeader) {
return v.value1;
};
throw new Error("Failed pattern match at Network.HTTP.RequestHeader line 29, column 1 - line 29, column 46: " + [ v.constructor.name ]);
};
var requestHeaderName = function (v) {
if (v instanceof Accept) {
return "Accept";
};
if (v instanceof ContentType) {
return "Content-Type";
};
if (v instanceof RequestHeader) {
return v.value0;
};
throw new Error("Failed pattern match at Network.HTTP.RequestHeader line 24, column 1 - line 24, column 45: " + [ v.constructor.name ]);
};
exports["Accept"] = Accept;
exports["ContentType"] = ContentType;
exports["RequestHeader"] = RequestHeader;
exports["requestHeaderName"] = requestHeaderName;
exports["requestHeaderValue"] = requestHeaderValue;
})(PS["Network.HTTP.RequestHeader"] = PS["Network.HTTP.RequestHeader"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Data_Eq = PS["Data.Eq"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Show = PS["Data.Show"];
var Prelude = PS["Prelude"];
var ResponseHeader = (function () {
function ResponseHeader(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
ResponseHeader.create = function (value0) {
return function (value1) {
return new ResponseHeader(value0, value1);
};
};
return ResponseHeader;
})();
var responseHeader = function (field) {
return function (value) {
return new ResponseHeader(field, value);
};
};
exports["responseHeader"] = responseHeader;
})(PS["Network.HTTP.ResponseHeader"] = PS["Network.HTTP.ResponseHeader"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Network.HTTP.Affjax"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Monad_Error_Class = PS["Control.Monad.Error.Class"];
var Control_Monad_Except = PS["Control.Monad.Except"];
var Control_Monad_Except_Trans = PS["Control.Monad.Except.Trans"];
var Control_Parallel = PS["Control.Parallel"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Argonaut_Core = PS["Data.Argonaut.Core"];
var Data_Argonaut_Parser = PS["Data.Argonaut.Parser"];
var Data_Array = PS["Data.Array"];
var Data_Either = PS["Data.Either"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_FormURLEncoded = PS["Data.FormURLEncoded"];
var Data_Function = PS["Data.Function"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var Data_Functor = PS["Data.Functor"];
var Data_HTTP_Method = PS["Data.HTTP.Method"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Identity = PS["Data.Identity"];
var Data_Int = PS["Data.Int"];
var Data_List_Types = PS["Data.List.Types"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Nullable = PS["Data.Nullable"];
var Data_Ord = PS["Data.Ord"];
var Data_Ring = PS["Data.Ring"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Time_Duration = PS["Data.Time.Duration"];
var Data_Unit = PS["Data.Unit"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Aff_Compat = PS["Effect.Aff.Compat"];
var Effect_Class = PS["Effect.Class"];
var Effect_Exception = PS["Effect.Exception"];
var Effect_Ref = PS["Effect.Ref"];
var Foreign = PS["Foreign"];
var $$Math = PS["Math"];
var Network_HTTP_Affjax_Request = PS["Network.HTTP.Affjax.Request"];
var Network_HTTP_Affjax_Response = PS["Network.HTTP.Affjax.Response"];
var Network_HTTP_RequestHeader = PS["Network.HTTP.RequestHeader"];
var Network_HTTP_ResponseHeader = PS["Network.HTTP.ResponseHeader"];
var Network_HTTP_StatusCode = PS["Network.HTTP.StatusCode"];
var Prelude = PS["Prelude"];
var defaultRequest = {
method: new Data_Either.Left(Data_HTTP_Method.GET.value),
url: "/",
headers: [ ],
content: Data_Maybe.Nothing.value,
username: Data_Maybe.Nothing.value,
password: Data_Maybe.Nothing.value,
withCredentials: false
};
var affjax = function (rt) {
return function (req) {
var parseJSON = function (v) {
if (v === "") {
return Control_Applicative.pure(Control_Monad_Except_Trans.applicativeExceptT(Data_Identity.monadIdentity))(Data_Argonaut_Core.jsonEmptyObject);
};
return Data_Either.either(function ($58) {
return Foreign.fail(Foreign.ForeignError.create($58));
})(Control_Applicative.pure(Control_Monad_Except_Trans.applicativeExceptT(Data_Identity.monadIdentity)))(Data_Argonaut_Parser.jsonParser(v));
};
var fromResponse$prime = (function () {
if (rt instanceof Network_HTTP_Affjax_Response["ArrayBuffer"]) {
return Foreign.unsafeReadTagged("ArrayBuffer");
};
if (rt instanceof Network_HTTP_Affjax_Response.Blob) {
return Foreign.unsafeReadTagged("Blob");
};
if (rt instanceof Network_HTTP_Affjax_Response.Document) {
return Foreign.unsafeReadTagged("Document");
};
if (rt instanceof Network_HTTP_Affjax_Response.Json) {
return Control_Bind.composeKleisliFlipped(Control_Monad_Except_Trans.bindExceptT(Data_Identity.monadIdentity))(function ($59) {
return rt.value0(parseJSON($59));
})(Foreign.unsafeReadTagged("String"));
};
if (rt instanceof Network_HTTP_Affjax_Response["String"]) {
return Foreign.unsafeReadTagged("String");
};
if (rt instanceof Network_HTTP_Affjax_Response.Ignore) {
return Data_Function["const"](rt.value0(Control_Applicative.pure(Control_Monad_Except_Trans.applicativeExceptT(Data_Identity.monadIdentity))(Data_Unit.unit)));
};
throw new Error("Failed pattern match at Network.HTTP.Affjax line 261, column 19 - line 267, column 51: " + [ rt.constructor.name ]);
})();
var extractContent = function (v) {
if (v instanceof Network_HTTP_Affjax_Request.ArrayView) {
return v.value0(Foreign.unsafeToForeign);
};
if (v instanceof Network_HTTP_Affjax_Request.Blob) {
return Foreign.unsafeToForeign(v.value0);
};
if (v instanceof Network_HTTP_Affjax_Request.Document) {
return Foreign.unsafeToForeign(v.value0);
};
if (v instanceof Network_HTTP_Affjax_Request["String"]) {
return Foreign.unsafeToForeign(v.value0);
};
if (v instanceof Network_HTTP_Affjax_Request.FormData) {
return Foreign.unsafeToForeign(v.value0);
};
if (v instanceof Network_HTTP_Affjax_Request.FormURLEncoded) {
return Foreign.unsafeToForeign(Data_FormURLEncoded.encode(v.value0));
};
if (v instanceof Network_HTTP_Affjax_Request.Json) {
return Foreign.unsafeToForeign(Data_Argonaut_Core.stringify(v.value0));
};
throw new Error("Failed pattern match at Network.HTTP.Affjax line 235, column 20 - line 242, column 53: " + [ v.constructor.name ]);
};
var addHeader = function (mh) {
return function (hs) {
if (mh instanceof Data_Maybe.Just && !Data_Foldable.any(Data_Foldable.foldableArray)(Data_HeytingAlgebra.heytingAlgebraBoolean)(Data_Function.on(Data_Eq.eq(Data_Eq.eqString))(Network_HTTP_RequestHeader.requestHeaderName)(mh.value0))(hs)) {
return Data_Array.snoc(hs)(mh.value0);
};
return hs;
};
};
var headers = function (reqContent) {
return addHeader(Data_Functor.map(Data_Maybe.functorMaybe)(Network_HTTP_RequestHeader.ContentType.create)(Control_Bind.bindFlipped(Data_Maybe.bindMaybe)(Network_HTTP_Affjax_Request.toMediaType)(reqContent)))(addHeader(Data_Functor.map(Data_Maybe.functorMaybe)(Network_HTTP_RequestHeader.Accept.create)(Network_HTTP_Affjax_Response.toMediaType(rt)))(req.headers));
};
var req$prime = {
method: Data_HTTP_Method.print(req.method),
url: req.url,
headers: Data_Functor.map(Data_Functor.functorArray)(function (h) {
return {
field: Network_HTTP_RequestHeader.requestHeaderName(h),
value: Network_HTTP_RequestHeader.requestHeaderValue(h)
};
})(headers(req.content)),
content: Data_Nullable.toNullable(Data_Functor.map(Data_Maybe.functorMaybe)(extractContent)(req.content)),
responseType: Network_HTTP_Affjax_Response.toResponseType(rt),
username: Data_Nullable.toNullable(req.username),
password: Data_Nullable.toNullable(req.password),
withCredentials: req.withCredentials
};
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Aff_Compat.fromEffectFnAff($foreign._ajax(Network_HTTP_ResponseHeader.responseHeader, req$prime)))(function (v) {
var v1 = Control_Monad_Except.runExcept(fromResponse$prime(v.response));
if (v1 instanceof Data_Either.Left) {
return Control_Monad_Error_Class.throwError(Effect_Aff.monadThrowAff)(Effect_Exception.error(Data_Foldable.intercalate(Data_List_Types.foldableNonEmptyList)(Data_Monoid.monoidString)("\x0a")(Data_Functor.map(Data_List_Types.functorNonEmptyList)(Foreign.renderForeignError)(v1.value0))));
};
if (v1 instanceof Data_Either.Right) {
return Control_Applicative.pure(Effect_Aff.applicativeAff)({
response: v1.value0,
headers: v.headers,
status: v.status,
statusText: v.statusText
});
};
throw new Error("Failed pattern match at Network.HTTP.Affjax line 217, column 3 - line 219, column 49: " + [ v1.constructor.name ]);
});
};
};
exports["defaultRequest"] = defaultRequest;
exports["affjax"] = affjax;
})(PS["Network.HTTP.Affjax"] = PS["Network.HTTP.Affjax"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Bind = PS["Control.Bind"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Array = PS["Data.Array"];
var Data_Either = PS["Data.Either"];
var Data_FormURLEncoded = PS["Data.FormURLEncoded"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_HTTP_Method = PS["Data.HTTP.Method"];
var Data_Maybe = PS["Data.Maybe"];
var Data_MediaType_Common = PS["Data.MediaType.Common"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Show = PS["Data.Show"];
var Data_Unit = PS["Data.Unit"];
var Effect = PS["Effect"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Class = PS["Effect.Class"];
var Globals = PS["Globals"];
var Model = PS["Model"];
var Network_HTTP_Affjax = PS["Network.HTTP.Affjax"];
var Network_HTTP_Affjax_Request = PS["Network.HTTP.Affjax.Request"];
var Network_HTTP_Affjax_Response = PS["Network.HTTP.Affjax.Response"];
var Network_HTTP_RequestHeader = PS["Network.HTTP.RequestHeader"];
var Prelude = PS["Prelude"];
var Simple_JSON = PS["Simple.JSON"];
var Web_Event_Event = PS["Web.Event.Event"];
var Web_HTML = PS["Web.HTML"];
var Web_HTML_Location = PS["Web.HTML.Location"];
var Web_HTML_Window = PS["Web.HTML.Window"];
var Star = (function () {
function Star() {
};
Star.value = new Star();
return Star;
})();
var UnStar = (function () {
function UnStar() {
};
UnStar.value = new UnStar();
return UnStar;
})();
var showStar = new Data_Show.Show(function (v) {
if (v instanceof Star) {
return "star";
};
if (v instanceof UnStar) {
return "unstar";
};
throw new Error("Failed pattern match at App line 28, column 1 - line 28, column 37: " + [ v.constructor.name ]);
});
var fetchUrl = function (method) {
return function (url) {
return function (headers) {
return function (content) {
return function (rt) {
var app = Globals["app'"](Data_Unit.unit);
return Network_HTTP_Affjax.affjax(rt)({
method: new Data_Either.Left(method),
url: url,
headers: Data_Array.cons(new Network_HTTP_RequestHeader.RequestHeader(app.csrfHeaderName, app.csrfToken))(headers),
content: content,
username: Network_HTTP_Affjax.defaultRequest.username,
password: Network_HTTP_Affjax.defaultRequest.password,
withCredentials: Network_HTTP_Affjax.defaultRequest.withCredentials
});
};
};
};
};
};
var logout = function (u) {
var app = Globals["app'"](u);
return Control_Bind.discard(Control_Bind.discardUnit)(Effect_Aff.bindAff)(Data_Functor["void"](Effect_Aff.functorAff)(fetchUrl(Data_HTTP_Method.POST.value)(app.authRlogoutR)([ ])(Data_Maybe.Nothing.value)(Network_HTTP_Affjax_Response.ignore)))(function () {
return Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Control_Bind.bind(Effect.bindEffect)(Control_Bind.bind(Effect.bindEffect)(Web_HTML.window)(Web_HTML_Window.location))(Web_HTML_Location.reload));
});
};
var logoutE = function (e) {
return Control_Bind.bindFlipped(Effect.bindEffect)(function ($4) {
return Data_Functor["void"](Effect.functorEffect)(Effect_Aff.launchAff(logout($4)));
})(Web_Event_Event.preventDefault(e));
};
var fetchPath = function (method) {
return function (path) {
return function (headers) {
return function (content) {
return function (rt) {
return fetchUrl(method)((Globals["app'"](Data_Unit.unit)).homeR + path)(headers)(content)(rt);
};
};
};
};
};
var fetchUrlEnc = function (method) {
return function (path) {
return function (content) {
return function (rt) {
return fetchPath(method)(path)([ new Network_HTTP_RequestHeader.ContentType(Data_MediaType_Common.applicationFormURLEncoded) ])(Data_Functor.map(Data_Maybe.functorMaybe)(Network_HTTP_Affjax_Request.FormURLEncoded.create)(content))(rt);
};
};
};
};
var markRead = function (bid) {
var path = "bm/" + (Data_Show.show(Data_Show.showInt)(bid) + "/read");
return fetchUrlEnc(Data_HTTP_Method.POST.value)(path)(Data_Maybe.Nothing.value)(Network_HTTP_Affjax_Response.ignore);
};
var toggleStar = function (bid) {
return function (action) {
var path = "bm/" + (Data_Show.show(Data_Show.showInt)(bid) + ("/" + Data_Show.show(showStar)(action)));
return Data_Functor["void"](Effect_Aff.functorAff)(fetchUrlEnc(Data_HTTP_Method.POST.value)(path)(Data_Maybe.Nothing.value)(Network_HTTP_Affjax_Response.ignore));
};
};
var fetchJson = function (dictWriteForeign) {
return function (method) {
return function (path) {
return function (content) {
return function (rt) {
return fetchPath(method)(path)([ new Network_HTTP_RequestHeader.ContentType(Data_MediaType_Common.applicationJSON) ])(Data_Functor.map(Data_Maybe.functorMaybe)(function ($5) {
return Network_HTTP_Affjax_Request.string(Simple_JSON.writeJSON(dictWriteForeign)($5));
})(content))(rt);
};
};
};
};
};
var editBookmark = function (bm) {
return fetchJson(Model.wfI)(Data_HTTP_Method.POST.value)("api/add")(Data_Maybe.Just.create(bm))(Network_HTTP_Affjax_Response.ignore);
};
var destroy = function (bid) {
return fetchUrlEnc(Data_HTTP_Method.DELETE.value)("bm/" + Data_Show.show(Data_Show.showInt)(bid))(Data_Maybe.Nothing.value)(Network_HTTP_Affjax_Response.ignore);
};
exports["Star"] = Star;
exports["UnStar"] = UnStar;
exports["toggleStar"] = toggleStar;
exports["destroy"] = destroy;
exports["markRead"] = markRead;
exports["editBookmark"] = editBookmark;
exports["logoutE"] = logoutE;
exports["logout"] = logout;
exports["fetchJson"] = fetchJson;
exports["fetchUrlEnc"] = fetchUrlEnc;
exports["fetchPath"] = fetchPath;
exports["fetchUrl"] = fetchUrl;
exports["showStar"] = showStar;
})(PS["App"] = PS["App"] || {});
(function(exports) {
"use strict";
var ButtonButton = (function () {
function ButtonButton() {
};
ButtonButton.value = new ButtonButton();
return ButtonButton;
})();
var ButtonSubmit = (function () {
function ButtonSubmit() {
};
ButtonSubmit.value = new ButtonSubmit();
return ButtonSubmit;
})();
var ButtonReset = (function () {
function ButtonReset() {
};
ButtonReset.value = new ButtonReset();
return ButtonReset;
})();
var renderButtonType = function (v) {
if (v instanceof ButtonButton) {
return "button";
};
if (v instanceof ButtonSubmit) {
return "submit";
};
if (v instanceof ButtonReset) {
return "reset";
};
throw new Error("Failed pattern match at DOM.HTML.Indexed.ButtonType line 9, column 20 - line 12, column 18: " + [ v.constructor.name ]);
};
exports["ButtonButton"] = ButtonButton;
exports["ButtonSubmit"] = ButtonSubmit;
exports["ButtonReset"] = ButtonReset;
exports["renderButtonType"] = renderButtonType;
})(PS["DOM.HTML.Indexed.ButtonType"] = PS["DOM.HTML.Indexed.ButtonType"] || {});
(function(exports) {
"use strict";
var InputButton = (function () {
function InputButton() {
};
InputButton.value = new InputButton();
return InputButton;
})();
var InputCheckbox = (function () {
function InputCheckbox() {
};
InputCheckbox.value = new InputCheckbox();
return InputCheckbox;
})();
var InputColor = (function () {
function InputColor() {
};
InputColor.value = new InputColor();
return InputColor;
})();
var InputDate = (function () {
function InputDate() {
};
InputDate.value = new InputDate();
return InputDate;
})();
var InputDatetimeLocal = (function () {
function InputDatetimeLocal() {
};
InputDatetimeLocal.value = new InputDatetimeLocal();
return InputDatetimeLocal;
})();
var InputEmail = (function () {
function InputEmail() {
};
InputEmail.value = new InputEmail();
return InputEmail;
})();
var InputFile = (function () {
function InputFile() {
};
InputFile.value = new InputFile();
return InputFile;
})();
var InputHidden = (function () {
function InputHidden() {
};
InputHidden.value = new InputHidden();
return InputHidden;
})();
var InputImage = (function () {
function InputImage() {
};
InputImage.value = new InputImage();
return InputImage;
})();
var InputMonth = (function () {
function InputMonth() {
};
InputMonth.value = new InputMonth();
return InputMonth;
})();
var InputNumber = (function () {
function InputNumber() {
};
InputNumber.value = new InputNumber();
return InputNumber;
})();
var InputPassword = (function () {
function InputPassword() {
};
InputPassword.value = new InputPassword();
return InputPassword;
})();
var InputRadio = (function () {
function InputRadio() {
};
InputRadio.value = new InputRadio();
return InputRadio;
})();
var InputRange = (function () {
function InputRange() {
};
InputRange.value = new InputRange();
return InputRange;
})();
var InputReset = (function () {
function InputReset() {
};
InputReset.value = new InputReset();
return InputReset;
})();
var InputSearch = (function () {
function InputSearch() {
};
InputSearch.value = new InputSearch();
return InputSearch;
})();
var InputSubmit = (function () {
function InputSubmit() {
};
InputSubmit.value = new InputSubmit();
return InputSubmit;
})();
var InputTel = (function () {
function InputTel() {
};
InputTel.value = new InputTel();
return InputTel;
})();
var InputText = (function () {
function InputText() {
};
InputText.value = new InputText();
return InputText;
})();
var InputTime = (function () {
function InputTime() {
};
InputTime.value = new InputTime();
return InputTime;
})();
var InputUrl = (function () {
function InputUrl() {
};
InputUrl.value = new InputUrl();
return InputUrl;
})();
var InputWeek = (function () {
function InputWeek() {
};
InputWeek.value = new InputWeek();
return InputWeek;
})();
var renderInputType = function (v) {
if (v instanceof InputButton) {
return "button";
};
if (v instanceof InputCheckbox) {
return "checkbox";
};
if (v instanceof InputColor) {
return "color";
};
if (v instanceof InputDate) {
return "date";
};
if (v instanceof InputDatetimeLocal) {
return "datetime-local";
};
if (v instanceof InputEmail) {
return "email";
};
if (v instanceof InputFile) {
return "file";
};
if (v instanceof InputHidden) {
return "hidden";
};
if (v instanceof InputImage) {
return "image";
};
if (v instanceof InputMonth) {
return "month";
};
if (v instanceof InputNumber) {
return "number";
};
if (v instanceof InputPassword) {
return "password";
};
if (v instanceof InputRadio) {
return "radio";
};
if (v instanceof InputRange) {
return "range";
};
if (v instanceof InputReset) {
return "reset";
};
if (v instanceof InputSearch) {
return "search";
};
if (v instanceof InputSubmit) {
return "submit";
};
if (v instanceof InputTel) {
return "tel";
};
if (v instanceof InputText) {
return "text";
};
if (v instanceof InputTime) {
return "time";
};
if (v instanceof InputUrl) {
return "url";
};
if (v instanceof InputWeek) {
return "week";
};
throw new Error("Failed pattern match at DOM.HTML.Indexed.InputType line 28, column 19 - line 50, column 16: " + [ v.constructor.name ]);
};
exports["InputButton"] = InputButton;
exports["InputCheckbox"] = InputCheckbox;
exports["InputColor"] = InputColor;
exports["InputDate"] = InputDate;
exports["InputDatetimeLocal"] = InputDatetimeLocal;
exports["InputEmail"] = InputEmail;
exports["InputFile"] = InputFile;
exports["InputHidden"] = InputHidden;
exports["InputImage"] = InputImage;
exports["InputMonth"] = InputMonth;
exports["InputNumber"] = InputNumber;
exports["InputPassword"] = InputPassword;
exports["InputRadio"] = InputRadio;
exports["InputRange"] = InputRange;
exports["InputReset"] = InputReset;
exports["InputSearch"] = InputSearch;
exports["InputSubmit"] = InputSubmit;
exports["InputTel"] = InputTel;
exports["InputText"] = InputText;
exports["InputTime"] = InputTime;
exports["InputUrl"] = InputUrl;
exports["InputWeek"] = InputWeek;
exports["renderInputType"] = renderInputType;
})(PS["DOM.HTML.Indexed.InputType"] = PS["DOM.HTML.Indexed.InputType"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Category = PS["Control.Category"];
var Control_Monad_Cont_Trans = PS["Control.Monad.Cont.Trans"];
var Control_Monad_Except_Trans = PS["Control.Monad.Except.Trans"];
var Control_Monad_List_Trans = PS["Control.Monad.List.Trans"];
var Control_Monad_Maybe_Trans = PS["Control.Monad.Maybe.Trans"];
var Control_Monad_RWS_Trans = PS["Control.Monad.RWS.Trans"];
var Control_Monad_Reader_Trans = PS["Control.Monad.Reader.Trans"];
var Control_Monad_State_Trans = PS["Control.Monad.State.Trans"];
var Control_Monad_Trans_Class = PS["Control.Monad.Trans.Class"];
var Control_Monad_Writer_Trans = PS["Control.Monad.Writer.Trans"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Class = PS["Effect.Class"];
var Prelude = PS["Prelude"];
var MonadAff = function (MonadEffect0, liftAff) {
this.MonadEffect0 = MonadEffect0;
this.liftAff = liftAff;
};
var monadAffAff = new MonadAff(function () {
return Effect_Aff.monadEffectAff;
}, Control_Category.identity(Control_Category.categoryFn));
var liftAff = function (dict) {
return dict.liftAff;
};
exports["liftAff"] = liftAff;
exports["MonadAff"] = MonadAff;
exports["monadAffAff"] = monadAffAff;
})(PS["Effect.Aff.Class"] = PS["Effect.Aff.Class"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Data_Eq = PS["Data.Eq"];
var Data_Ord = PS["Data.Ord"];
var Prelude = PS["Prelude"];
var OrdBox = (function () {
function OrdBox(value0, value1, value2) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
};
OrdBox.create = function (value0) {
return function (value1) {
return function (value2) {
return new OrdBox(value0, value1, value2);
};
};
};
return OrdBox;
})();
var unOrdBox = function (v) {
return v.value2;
};
var mkOrdBox = function (dictOrd) {
return OrdBox.create(Data_Eq.eq(dictOrd.Eq0()))(Data_Ord.compare(dictOrd));
};
var eqOrdBox = new Data_Eq.Eq(function (v) {
return function (v1) {
return v.value0(v.value2)(v1.value2);
};
});
var ordOrdBox = new Data_Ord.Ord(function () {
return eqOrdBox;
}, function (v) {
return function (v1) {
return v.value1(v.value2)(v1.value2);
};
});
exports["mkOrdBox"] = mkOrdBox;
exports["unOrdBox"] = unOrdBox;
exports["eqOrdBox"] = eqOrdBox;
exports["ordOrdBox"] = ordOrdBox;
})(PS["Halogen.Data.OrdBox"] = PS["Halogen.Data.OrdBox"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var On = (function () {
function On() {
};
On.value = new On();
return On;
})();
var Off = (function () {
function Off() {
};
Off.value = new Off();
return Off;
})();
var renderOnOff = function (v) {
if (v instanceof On) {
return "on";
};
if (v instanceof Off) {
return "off";
};
throw new Error("Failed pattern match at DOM.HTML.Indexed.OnOff line 8, column 15 - line 10, column 10: " + [ v.constructor.name ]);
};
exports["On"] = On;
exports["Off"] = Off;
exports["renderOnOff"] = renderOnOff;
})(PS["DOM.HTML.Indexed.OnOff"] = PS["DOM.HTML.Indexed.OnOff"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Data_Bifunctor = PS["Data.Bifunctor"];
var Data_Eq = PS["Data.Eq"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Ord = PS["Data.Ord"];
var Prelude = PS["Prelude"];
var Web_DOM = PS["Web.DOM"];
var RefUpdate = (function () {
function RefUpdate(value0, value1, value2) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
};
RefUpdate.create = function (value0) {
return function (value1) {
return function (value2) {
return new RefUpdate(value0, value1, value2);
};
};
};
return RefUpdate;
})();
var Query = (function () {
function Query(value0) {
this.value0 = value0;
};
Query.create = function (value0) {
return new Query(value0);
};
return Query;
})();
var bifunctorInputF = new Data_Bifunctor.Bifunctor(function (f) {
return function (g) {
return function (v) {
if (v instanceof RefUpdate) {
return new RefUpdate(v.value0, v.value1, f(v.value2));
};
if (v instanceof Query) {
return new Query(g(v.value0));
};
throw new Error("Failed pattern match at Halogen.Query.InputF line 21, column 15 - line 23, column 27: " + [ v.constructor.name ]);
};
};
});
var functorInputF = new Data_Functor.Functor(Data_Bifunctor.rmap(bifunctorInputF));
exports["RefUpdate"] = RefUpdate;
exports["Query"] = Query;
exports["bifunctorInputF"] = bifunctorInputF;
exports["functorInputF"] = functorInputF;
})(PS["Halogen.Query.InputF"] = PS["Halogen.Query.InputF"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Effect = PS["Effect"];
var Effect_Uncurried = PS["Effect.Uncurried"];
var Prelude = PS["Prelude"];
var Step = (function () {
function Step(value0, value1, value2) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
};
Step.create = function (value0) {
return function (value1) {
return function (value2) {
return new Step(value0, value1, value2);
};
};
};
return Step;
})();
var step = function (v) {
return v.value1;
};
var halt = function (v) {
return v.value2;
};
var extract = function (v) {
return v.value0;
};
exports["Step"] = Step;
exports["extract"] = extract;
exports["step"] = step;
exports["halt"] = halt;
})(PS["Halogen.VDom.Machine"] = PS["Halogen.VDom.Machine"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Category = PS["Control.Category"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Bifunctor = PS["Data.Bifunctor"];
var Data_Eq = PS["Data.Eq"];
var Data_Functor = PS["Data.Functor"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Tuple = PS["Data.Tuple"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var ElemSpec = (function () {
function ElemSpec(value0, value1, value2) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
};
ElemSpec.create = function (value0) {
return function (value1) {
return function (value2) {
return new ElemSpec(value0, value1, value2);
};
};
};
return ElemSpec;
})();
var Text = (function () {
function Text(value0) {
this.value0 = value0;
};
Text.create = function (value0) {
return new Text(value0);
};
return Text;
})();
var Elem = (function () {
function Elem(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
Elem.create = function (value0) {
return function (value1) {
return new Elem(value0, value1);
};
};
return Elem;
})();
var Keyed = (function () {
function Keyed(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
Keyed.create = function (value0) {
return function (value1) {
return new Keyed(value0, value1);
};
};
return Keyed;
})();
var Widget = (function () {
function Widget(value0) {
this.value0 = value0;
};
Widget.create = function (value0) {
return new Widget(value0);
};
return Widget;
})();
var Grafted = (function () {
function Grafted(value0) {
this.value0 = value0;
};
Grafted.create = function (value0) {
return new Grafted(value0);
};
return Grafted;
})();
var Graft = (function () {
function Graft(value0, value1, value2) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
};
Graft.create = function (value0) {
return function (value1) {
return function (value2) {
return new Graft(value0, value1, value2);
};
};
};
return Graft;
})();
var unGraft = function (f) {
return function ($90) {
return f($90);
};
};
var graft = Unsafe_Coerce.unsafeCoerce;
var functorElemSpec = new Data_Functor.Functor(function (f) {
return function (m) {
return new ElemSpec(m.value0, m.value1, f(m.value2));
};
});
var bifunctorGraft = new Data_Bifunctor.Bifunctor(function (f) {
return function (g) {
return unGraft(function (v) {
return graft(new Graft(function ($92) {
return f(v.value0($92));
}, function ($93) {
return g(v.value1($93));
}, v.value2));
});
};
});
var bifunctorVDom = new Data_Bifunctor.Bifunctor(function (f) {
return function (g) {
return function (v) {
if (v instanceof Text) {
return new Text(v.value0);
};
if (v instanceof Grafted) {
return new Grafted(Data_Bifunctor.bimap(bifunctorGraft)(f)(g)(v.value0));
};
return new Grafted(graft(new Graft(f, g, v)));
};
};
});
var runGraft = unGraft(function (v) {
var go = function (v2) {
if (v2 instanceof Text) {
return new Text(v2.value0);
};
if (v2 instanceof Elem) {
return new Elem(Data_Functor.map(functorElemSpec)(v.value0)(v2.value0), Data_Functor.map(Data_Functor.functorArray)(go)(v2.value1));
};
if (v2 instanceof Keyed) {
return new Keyed(Data_Functor.map(functorElemSpec)(v.value0)(v2.value0), Data_Functor.map(Data_Functor.functorArray)(Data_Functor.map(Data_Tuple.functorTuple)(go))(v2.value1));
};
if (v2 instanceof Widget) {
return new Widget(v.value1(v2.value0));
};
if (v2 instanceof Grafted) {
return new Grafted(Data_Bifunctor.bimap(bifunctorGraft)(v.value0)(v.value1)(v2.value0));
};
throw new Error("Failed pattern match at Halogen.VDom.Types line 74, column 7 - line 74, column 27: " + [ v2.constructor.name ]);
};
return go(v.value2);
});
exports["Text"] = Text;
exports["Elem"] = Elem;
exports["Keyed"] = Keyed;
exports["Widget"] = Widget;
exports["Grafted"] = Grafted;
exports["Graft"] = Graft;
exports["graft"] = graft;
exports["unGraft"] = unGraft;
exports["runGraft"] = runGraft;
exports["ElemSpec"] = ElemSpec;
exports["bifunctorVDom"] = bifunctorVDom;
exports["bifunctorGraft"] = bifunctorGraft;
exports["functorElemSpec"] = functorElemSpec;
})(PS["Halogen.VDom.Types"] = PS["Halogen.VDom.Types"] || {});
(function(exports) {
"use strict";
exports.unsafeGetAny = function (key, obj) {
return obj[key];
};
exports.unsafeHasAny = function (key, obj) {
return obj.hasOwnProperty(key);
};
exports.unsafeSetAny = function (key, val, obj) {
obj[key] = val;
};
exports.forE = function (a, f) {
var b = [];
for (var i = 0; i < a.length; i++) {
b.push(f(i, a[i]));
}
return b;
};
exports.forInE = function (o, f) {
var ks = Object.keys(o);
for (var i = 0; i < ks.length; i++) {
var k = ks[i];
f(k, o[k]);
}
};
exports.diffWithIxE = function (a1, a2, f1, f2, f3) {
var a3 = [];
var l1 = a1.length;
var l2 = a2.length;
var i = 0;
while (1) {
if (i < l1) {
if (i < l2) {
a3.push(f1(i, a1[i], a2[i]));
} else {
f2(i, a1[i]);
}
} else if (i < l2) {
a3.push(f3(i, a2[i]));
} else {
break;
}
i++;
}
return a3;
};
exports.strMapWithIxE = function (as, fk, f) {
var o = {};
for (var i = 0; i < as.length; i++) {
var a = as[i];
var k = fk(a);
o[k] = f(k, i, a);
}
return o;
};
exports.diffWithKeyAndIxE = function (o1, as, fk, f1, f2, f3) {
var o2 = {};
for (var i = 0; i < as.length; i++) {
var a = as[i];
var k = fk(a);
if (o1.hasOwnProperty(k)) {
o2[k] = f1(k, i, o1[k], a);
} else {
o2[k] = f3(k, i, a);
}
}
for (var k in o1) {
if (k in o2) {
continue;
}
f2(k, o1[k]);
}
return o2;
};
exports.refEq = function (a, b) {
return a === b;
};
exports.createTextNode = function (s, doc) {
return doc.createTextNode(s);
};
exports.setTextContent = function (s, n) {
n.textContent = s;
};
exports.createElement = function (ns, name, doc) {
if (ns != null) {
return doc.createElementNS(ns, name);
} else {
return doc.createElement(name)
}
};
exports.insertChildIx = function (i, a, b) {
var n = b.childNodes.item(i) || null;
if (n !== a) {
b.insertBefore(a, n);
}
};
exports.removeChild = function (a, b) {
if (b && a.parentNode === b) {
b.removeChild(a);
}
};
exports.parentNode = function (a) {
return a.parentNode;
};
exports.setAttribute = function (ns, attr, val, el) {
if (ns != null) {
el.setAttributeNS(ns, attr, val);
} else {
el.setAttribute(attr, val);
}
};
exports.removeAttribute = function (ns, attr, el) {
if (ns != null) {
el.removeAttributeNS(ns, attr);
} else {
el.removeAttribute(attr);
}
};
exports.addEventListener = function (ev, listener, el) {
el.addEventListener(ev, listener, false);
};
exports.removeEventListener = function (ev, listener, el) {
el.removeEventListener(ev, listener, false);
};
exports.jsUndefined = void 0;
})(PS["Halogen.VDom.Util"] = PS["Halogen.VDom.Util"] || {});
(function(exports) {
"use strict";
var getEffProp = function (name) {
return function (node) {
return function () {
return node[name];
};
};
};
exports._parentNode = getEffProp("parentNode");
exports._nextSibling = getEffProp("nextSibling");
exports.insertBefore = function (node1) {
return function (node2) {
return function (parent) {
return function () {
return parent.insertBefore(node1, node2);
};
};
};
};
exports.appendChild = function (node) {
return function (parent) {
return function () {
return parent.appendChild(node);
};
};
};
exports.removeChild = function (node) {
return function (parent) {
return function () {
return parent.removeChild(node);
};
};
};
})(PS["Web.DOM.Node"] = PS["Web.DOM.Node"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Web.DOM.Node"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Enum = PS["Data.Enum"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Nullable = PS["Data.Nullable"];
var Effect = PS["Effect"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var Web_DOM_Document = PS["Web.DOM.Document"];
var Web_DOM_Element = PS["Web.DOM.Element"];
var Web_DOM_Internal_Types = PS["Web.DOM.Internal.Types"];
var Web_DOM_NodeType = PS["Web.DOM.NodeType"];
var Web_Event_EventTarget = PS["Web.Event.EventTarget"];
var Web_Internal_FFI = PS["Web.Internal.FFI"];
var parentNode = function ($2) {
return Data_Functor.map(Effect.functorEffect)(Data_Nullable.toMaybe)($foreign._parentNode($2));
};
var nextSibling = function ($6) {
return Data_Functor.map(Effect.functorEffect)(Data_Nullable.toMaybe)($foreign._nextSibling($6));
};
exports["parentNode"] = parentNode;
exports["nextSibling"] = nextSibling;
exports["insertBefore"] = $foreign.insertBefore;
exports["appendChild"] = $foreign.appendChild;
exports["removeChild"] = $foreign.removeChild;
})(PS["Web.DOM.Node"] = PS["Web.DOM.Node"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Halogen.VDom.Util"];
var Control_Applicative = PS["Control.Applicative"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var Data_Nullable = PS["Data.Nullable"];
var Data_Unit = PS["Data.Unit"];
var Effect = PS["Effect"];
var Effect_Uncurried = PS["Effect.Uncurried"];
var Foreign_Object = PS["Foreign.Object"];
var Foreign_Object_ST = PS["Foreign.Object.ST"];
var Halogen_VDom_Types = PS["Halogen.VDom.Types"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var Web_DOM_Document = PS["Web.DOM.Document"];
var Web_DOM_Element = PS["Web.DOM.Element"];
var Web_DOM_Node = PS["Web.DOM.Node"];
var Web_Event_EventTarget = PS["Web.Event.EventTarget"];
var unsafeLookup = $foreign.unsafeGetAny;
var unsafeFreeze = Unsafe_Coerce.unsafeCoerce;
var pokeMutMap = $foreign.unsafeSetAny;
var newMutMap = Foreign_Object_ST["new"];
var effectUnit = Control_Applicative.pure(Effect.applicativeEffect)(Data_Unit.unit);
exports["effectUnit"] = effectUnit;
exports["newMutMap"] = newMutMap;
exports["pokeMutMap"] = pokeMutMap;
exports["unsafeFreeze"] = unsafeFreeze;
exports["unsafeLookup"] = unsafeLookup;
exports["unsafeGetAny"] = $foreign.unsafeGetAny;
exports["unsafeHasAny"] = $foreign.unsafeHasAny;
exports["unsafeSetAny"] = $foreign.unsafeSetAny;
exports["forE"] = $foreign.forE;
exports["forInE"] = $foreign.forInE;
exports["diffWithIxE"] = $foreign.diffWithIxE;
exports["diffWithKeyAndIxE"] = $foreign.diffWithKeyAndIxE;
exports["strMapWithIxE"] = $foreign.strMapWithIxE;
exports["refEq"] = $foreign.refEq;
exports["createTextNode"] = $foreign.createTextNode;
exports["setTextContent"] = $foreign.setTextContent;
exports["createElement"] = $foreign.createElement;
exports["insertChildIx"] = $foreign.insertChildIx;
exports["removeChild"] = $foreign.removeChild;
exports["parentNode"] = $foreign.parentNode;
exports["setAttribute"] = $foreign.setAttribute;
exports["removeAttribute"] = $foreign.removeAttribute;
exports["addEventListener"] = $foreign.addEventListener;
exports["removeEventListener"] = $foreign.removeEventListener;
exports["jsUndefined"] = $foreign.jsUndefined;
})(PS["Halogen.VDom.Util"] = PS["Halogen.VDom.Util"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Data_Eq = PS["Data.Eq"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Nullable = PS["Data.Nullable"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unit = PS["Data.Unit"];
var Effect = PS["Effect"];
var Effect_Ref = PS["Effect.Ref"];
var Effect_Uncurried = PS["Effect.Uncurried"];
var Foreign = PS["Foreign"];
var Foreign_Object = PS["Foreign.Object"];
var Halogen_VDom = PS["Halogen.VDom"];
var Halogen_VDom_Machine = PS["Halogen.VDom.Machine"];
var Halogen_VDom_Types = PS["Halogen.VDom.Types"];
var Halogen_VDom_Util = PS["Halogen.VDom.Util"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var Web_DOM_Element = PS["Web.DOM.Element"];
var Web_Event_Event = PS["Web.Event.Event"];
var Web_Event_EventTarget = PS["Web.Event.EventTarget"];
var Created = (function () {
function Created(value0) {
this.value0 = value0;
};
Created.create = function (value0) {
return new Created(value0);
};
return Created;
})();
var Removed = (function () {
function Removed(value0) {
this.value0 = value0;
};
Removed.create = function (value0) {
return new Removed(value0);
};
return Removed;
})();
var Attribute = (function () {
function Attribute(value0, value1, value2) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
};
Attribute.create = function (value0) {
return function (value1) {
return function (value2) {
return new Attribute(value0, value1, value2);
};
};
};
return Attribute;
})();
var Property = (function () {
function Property(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
Property.create = function (value0) {
return function (value1) {
return new Property(value0, value1);
};
};
return Property;
})();
var Handler = (function () {
function Handler(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
Handler.create = function (value0) {
return function (value1) {
return new Handler(value0, value1);
};
};
return Handler;
})();
var Ref = (function () {
function Ref(value0) {
this.value0 = value0;
};
Ref.create = function (value0) {
return new Ref(value0);
};
return Ref;
})();
var unsafeGetProperty = Halogen_VDom_Util.unsafeGetAny;
var setProperty = Halogen_VDom_Util.unsafeSetAny;
var removeProperty = function (key, el) {
var v = Foreign.typeOf(Halogen_VDom_Util.unsafeGetAny(key, el));
if (v === "string") {
return Halogen_VDom_Util.unsafeSetAny(key, "", el);
};
if (key === "rowSpan") {
return Halogen_VDom_Util.unsafeSetAny(key, 1, el);
};
if (key === "colSpan") {
return Halogen_VDom_Util.unsafeSetAny(key, 1, el);
};
return Halogen_VDom_Util.unsafeSetAny(key, Halogen_VDom_Util.jsUndefined, el);
};
var propToStrKey = function (v) {
if (v instanceof Attribute && v.value0 instanceof Data_Maybe.Just) {
return "attr/" + (v.value0.value0 + (":" + v.value1));
};
if (v instanceof Attribute) {
return "attr/:" + v.value1;
};
if (v instanceof Property) {
return "prop/" + v.value0;
};
if (v instanceof Handler) {
return "handler/" + v.value0;
};
if (v instanceof Ref) {
return "ref";
};
throw new Error("Failed pattern match at Halogen.VDom.DOM.Prop line 178, column 16 - line 185, column 1: " + [ v.constructor.name ]);
};
var propFromString = Unsafe_Coerce.unsafeCoerce;
var propFromInt = Unsafe_Coerce.unsafeCoerce;
var propFromBoolean = Unsafe_Coerce.unsafeCoerce;
var functorProp = new Data_Functor.Functor(function (f) {
return function (v) {
if (v instanceof Handler) {
return new Handler(v.value0, Data_Functor.map(Data_Functor.functorFn)(Data_Functor.map(Data_Maybe.functorMaybe)(f))(v.value1));
};
if (v instanceof Ref) {
return new Ref(Data_Functor.map(Data_Functor.functorFn)(Data_Functor.map(Data_Maybe.functorMaybe)(f))(v.value0));
};
return v;
};
});
var buildProp = function (emit) {
return function (el) {
var removeProp = function (prevEvents) {
return function (v, v1) {
if (v1 instanceof Attribute) {
return Halogen_VDom_Util.removeAttribute(Data_Nullable.toNullable(v1.value0), v1.value1, el);
};
if (v1 instanceof Property) {
return removeProperty(v1.value0, el);
};
if (v1 instanceof Handler) {
var handler = Halogen_VDom_Util.unsafeLookup(v1.value0, prevEvents);
return Halogen_VDom_Util.removeEventListener(v1.value0, Data_Tuple.fst(handler), el);
};
if (v1 instanceof Ref) {
return Data_Unit.unit;
};
throw new Error("Failed pattern match at Halogen.VDom.DOM.Prop line 165, column 5 - line 175, column 18: " + [ v1.constructor.name ]);
};
};
var mbEmit = function (v) {
if (v instanceof Data_Maybe.Just) {
return emit(v.value0)();
};
return Data_Unit.unit;
};
var done = function (ps) {
var v = Foreign_Object.lookup("ref")(ps);
if (v instanceof Data_Maybe.Just && v.value0 instanceof Ref) {
return function () {
return mbEmit(v.value0.value0(new Removed(el)));
};
};
return Halogen_VDom_Util.effectUnit;
};
var diffProp = function (prevEvents, events) {
return function (v, v1, v11, v2) {
if (v11 instanceof Attribute && v2 instanceof Attribute) {
var $61 = v11.value2 === v2.value2;
if ($61) {
return v2;
};
Halogen_VDom_Util.setAttribute(Data_Nullable.toNullable(v2.value0), v2.value1, v2.value2, el);
return v2;
};
if (v11 instanceof Property && v2 instanceof Property) {
var v4 = Halogen_VDom_Util.refEq(v11.value1, v2.value1);
if (v4) {
return v2;
};
if (v2.value0 === "value") {
var elVal = unsafeGetProperty("value", el);
var $70 = Halogen_VDom_Util.refEq(elVal, v2.value1);
if ($70) {
return v2;
};
setProperty(v2.value0, v2.value1, el);
return v2;
};
setProperty(v2.value0, v2.value1, el);
return v2;
};
if (v11 instanceof Handler && v2 instanceof Handler) {
var handler = Halogen_VDom_Util.unsafeLookup(v2.value0, prevEvents);
Effect_Ref.write(v2.value1)(Data_Tuple.snd(handler))();
Halogen_VDom_Util.pokeMutMap(v2.value0, handler, events);
return v2;
};
return v2;
};
};
var applyProp = function (events) {
return function (v, v1, v2) {
if (v2 instanceof Attribute) {
Halogen_VDom_Util.setAttribute(Data_Nullable.toNullable(v2.value0), v2.value1, v2.value2, el);
return v2;
};
if (v2 instanceof Property) {
setProperty(v2.value0, v2.value1, el);
return v2;
};
if (v2 instanceof Handler) {
var v3 = Halogen_VDom_Util.unsafeGetAny(v2.value0, events);
if (Halogen_VDom_Util.unsafeHasAny(v2.value0, events)) {
Effect_Ref.write(v2.value1)(Data_Tuple.snd(v3))();
return v2;
};
var v4 = Effect_Ref["new"](v2.value1)();
var v5 = Web_Event_EventTarget.eventListener(function (ev) {
return function __do() {
var v5 = Effect_Ref.read(v4)();
return mbEmit(v5(ev));
};
})();
Halogen_VDom_Util.pokeMutMap(v2.value0, new Data_Tuple.Tuple(v5, v4), events);
Halogen_VDom_Util.addEventListener(v2.value0, v5, el);
return v2;
};
if (v2 instanceof Ref) {
mbEmit(v2.value0(new Created(el)));
return v2;
};
throw new Error("Failed pattern match at Halogen.VDom.DOM.Prop line 109, column 5 - line 131, column 15: " + [ v2.constructor.name ]);
};
};
var patch = function (prevEvents, ps1) {
return function (ps2) {
var v = Halogen_VDom_Util.newMutMap();
var onThis = removeProp(prevEvents);
var onThese = diffProp(prevEvents, v);
var onThat = applyProp(v);
var v1 = Halogen_VDom_Util.diffWithKeyAndIxE(ps1, ps2, propToStrKey, onThese, onThis, onThat);
return new Halogen_VDom_Machine.Step(Data_Unit.unit, patch(Halogen_VDom_Util.unsafeFreeze(v), v1), done(v1));
};
};
var render = function (ps1) {
var v = Halogen_VDom_Util.newMutMap();
var v1 = Halogen_VDom_Util.strMapWithIxE(ps1, propToStrKey, applyProp(v));
return new Halogen_VDom_Machine.Step(Data_Unit.unit, patch(Halogen_VDom_Util.unsafeFreeze(v), v1), done(v1));
};
return render;
};
};
exports["Attribute"] = Attribute;
exports["Property"] = Property;
exports["Handler"] = Handler;
exports["Ref"] = Ref;
exports["Created"] = Created;
exports["Removed"] = Removed;
exports["propFromString"] = propFromString;
exports["propFromBoolean"] = propFromBoolean;
exports["propFromInt"] = propFromInt;
exports["buildProp"] = buildProp;
exports["functorProp"] = functorProp;
})(PS["Halogen.VDom.DOM.Prop"] = PS["Halogen.VDom.DOM.Prop"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var DOM_HTML_Indexed_ButtonType = PS["DOM.HTML.Indexed.ButtonType"];
var DOM_HTML_Indexed_CrossOriginValue = PS["DOM.HTML.Indexed.CrossOriginValue"];
var DOM_HTML_Indexed_DirValue = PS["DOM.HTML.Indexed.DirValue"];
var DOM_HTML_Indexed_FormMethod = PS["DOM.HTML.Indexed.FormMethod"];
var DOM_HTML_Indexed_InputType = PS["DOM.HTML.Indexed.InputType"];
var DOM_HTML_Indexed_KindValue = PS["DOM.HTML.Indexed.KindValue"];
var DOM_HTML_Indexed_MenuType = PS["DOM.HTML.Indexed.MenuType"];
var DOM_HTML_Indexed_MenuitemType = PS["DOM.HTML.Indexed.MenuitemType"];
var DOM_HTML_Indexed_OnOff = PS["DOM.HTML.Indexed.OnOff"];
var DOM_HTML_Indexed_OrderedListType = PS["DOM.HTML.Indexed.OrderedListType"];
var DOM_HTML_Indexed_PreloadValue = PS["DOM.HTML.Indexed.PreloadValue"];
var DOM_HTML_Indexed_ScopeValue = PS["DOM.HTML.Indexed.ScopeValue"];
var DOM_HTML_Indexed_StepValue = PS["DOM.HTML.Indexed.StepValue"];
var DOM_HTML_Indexed_WrapValue = PS["DOM.HTML.Indexed.WrapValue"];
var Data_Bifunctor = PS["Data.Bifunctor"];
var Data_Eq = PS["Data.Eq"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_MediaType = PS["Data.MediaType"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Ord = PS["Data.Ord"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Tuple = PS["Data.Tuple"];
var Halogen_Query_InputF = PS["Halogen.Query.InputF"];
var Halogen_VDom = PS["Halogen.VDom"];
var Halogen_VDom_DOM_Prop = PS["Halogen.VDom.DOM.Prop"];
var Halogen_VDom_Types = PS["Halogen.VDom.Types"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var Web_DOM_Element = PS["Web.DOM.Element"];
var Web_Event_Event = PS["Web.Event.Event"];
var HTML = function (x) {
return x;
};
var ClassName = function (x) {
return x;
};
var IsProp = function (toPropValue) {
this.toPropValue = toPropValue;
};
var toPropValue = function (dict) {
return dict.toPropValue;
};
var text = function ($27) {
return HTML(Halogen_VDom_Types.Text.create($27));
};
var stringIsProp = new IsProp(Halogen_VDom_DOM_Prop.propFromString);
var slot = function ($29) {
return HTML(Halogen_VDom_Types.Widget.create($29));
};
var prop = function (dictIsProp) {
return function (v) {
return function ($32) {
return Halogen_VDom_DOM_Prop.Property.create(v)(toPropValue(dictIsProp)($32));
};
};
};
var onOffIsProp = new IsProp(function ($35) {
return Halogen_VDom_DOM_Prop.propFromString(DOM_HTML_Indexed_OnOff.renderOnOff($35));
});
var newtypeClassName = new Data_Newtype.Newtype(function (n) {
return n;
}, ClassName);
var intIsProp = new IsProp(Halogen_VDom_DOM_Prop.propFromInt);
var inputTypeIsProp = new IsProp(function ($40) {
return Halogen_VDom_DOM_Prop.propFromString(DOM_HTML_Indexed_InputType.renderInputType($40));
});
var handler = Halogen_VDom_DOM_Prop.Handler.create;
var element = function (ns) {
return function (name) {
return function (props) {
return function (children) {
return new Halogen_VDom_Types.Elem(new Halogen_VDom_Types.ElemSpec(ns, name, props), children);
};
};
};
};
var buttonTypeIsProp = new IsProp(function ($44) {
return Halogen_VDom_DOM_Prop.propFromString(DOM_HTML_Indexed_ButtonType.renderButtonType($44));
});
var booleanIsProp = new IsProp(Halogen_VDom_DOM_Prop.propFromBoolean);
var bifunctorHTML = new Data_Bifunctor.Bifunctor(function (f) {
return function (g) {
return function (v) {
return Data_Bifunctor.bimap(Halogen_VDom_Types.bifunctorVDom)(Data_Functor.map(Data_Functor.functorArray)(Data_Functor.map(Halogen_VDom_DOM_Prop.functorProp)(Data_Functor.map(Halogen_Query_InputF.functorInputF)(g))))(f)(v);
};
};
});
var attr = function (ns) {
return function (v) {
return Halogen_VDom_DOM_Prop.Attribute.create(ns)(v);
};
};
exports["HTML"] = HTML;
exports["slot"] = slot;
exports["text"] = text;
exports["element"] = element;
exports["prop"] = prop;
exports["attr"] = attr;
exports["handler"] = handler;
exports["IsProp"] = IsProp;
exports["toPropValue"] = toPropValue;
exports["ClassName"] = ClassName;
exports["bifunctorHTML"] = bifunctorHTML;
exports["stringIsProp"] = stringIsProp;
exports["intIsProp"] = intIsProp;
exports["booleanIsProp"] = booleanIsProp;
exports["buttonTypeIsProp"] = buttonTypeIsProp;
exports["inputTypeIsProp"] = inputTypeIsProp;
exports["onOffIsProp"] = onOffIsProp;
exports["newtypeClassName"] = newtypeClassName;
})(PS["Halogen.HTML.Core"] = PS["Halogen.HTML.Core"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Category = PS["Control.Category"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Const = PS["Data.Const"];
var Data_Either = PS["Data.Either"];
var Data_Eq = PS["Data.Eq"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_List = PS["Data.List"];
var Data_List_NonEmpty = PS["Data.List.NonEmpty"];
var Data_List_Types = PS["Data.List.Types"];
var Data_Newtype = PS["Data.Newtype"];
var Data_NonEmpty = PS["Data.NonEmpty"];
var Data_Ring = PS["Data.Ring"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Tuple = PS["Data.Tuple"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var Pure = (function () {
function Pure(value0) {
this.value0 = value0;
};
Pure.create = function (value0) {
return new Pure(value0);
};
return Pure;
})();
var Lift = (function () {
function Lift(value0) {
this.value0 = value0;
};
Lift.create = function (value0) {
return new Lift(value0);
};
return Lift;
})();
var Ap = (function () {
function Ap(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
Ap.create = function (value0) {
return function (value1) {
return new Ap(value0, value1);
};
};
return Ap;
})();
var mkAp = function (fba) {
return function (fb) {
return new Ap(fba, fb);
};
};
var liftFreeAp = Lift.create;
var goLeft = function ($copy_dictApplicative) {
return function ($copy_fStack) {
return function ($copy_valStack) {
return function ($copy_nat) {
return function ($copy_func) {
return function ($copy_count) {
var $tco_var_dictApplicative = $copy_dictApplicative;
var $tco_var_fStack = $copy_fStack;
var $tco_var_valStack = $copy_valStack;
var $tco_var_nat = $copy_nat;
var $tco_var_func = $copy_func;
var $tco_done = false;
var $tco_result;
function $tco_loop(dictApplicative, fStack, valStack, nat, func, count) {
if (func instanceof Pure) {
$tco_done = true;
return new Data_Tuple.Tuple(new Data_List_Types.Cons({
func: Control_Applicative.pure(dictApplicative)(func.value0),
count: count
}, fStack), valStack);
};
if (func instanceof Lift) {
$tco_done = true;
return new Data_Tuple.Tuple(new Data_List_Types.Cons({
func: nat(func.value0),
count: count
}, fStack), valStack);
};
if (func instanceof Ap) {
$tco_var_dictApplicative = dictApplicative;
$tco_var_fStack = fStack;
$tco_var_valStack = Data_List_NonEmpty.cons(func.value1)(valStack);
$tco_var_nat = nat;
$tco_var_func = func.value0;
$copy_count = count + 1 | 0;
return;
};
throw new Error("Failed pattern match at Control.Applicative.Free line 102, column 41 - line 105, column 81: " + [ func.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($tco_var_dictApplicative, $tco_var_fStack, $tco_var_valStack, $tco_var_nat, $tco_var_func, $copy_count);
};
return $tco_result;
};
};
};
};
};
};
var goApply = function ($copy_dictApplicative) {
return function ($copy_fStack) {
return function ($copy_vals) {
return function ($copy_gVal) {
var $tco_var_dictApplicative = $copy_dictApplicative;
var $tco_var_fStack = $copy_fStack;
var $tco_var_vals = $copy_vals;
var $tco_done = false;
var $tco_result;
function $tco_loop(dictApplicative, fStack, vals, gVal) {
if (fStack instanceof Data_List_Types.Nil) {
$tco_done = true;
return new Data_Either.Left(gVal);
};
if (fStack instanceof Data_List_Types.Cons) {
var gRes = Control_Apply.apply(dictApplicative.Apply0())(fStack.value0.func)(gVal);
var $14 = fStack.value0.count === 1;
if ($14) {
if (fStack.value1 instanceof Data_List_Types.Nil) {
$tco_done = true;
return new Data_Either.Left(gRes);
};
$tco_var_dictApplicative = dictApplicative;
$tco_var_fStack = fStack.value1;
$tco_var_vals = vals;
$copy_gVal = gRes;
return;
};
if (vals instanceof Data_List_Types.Nil) {
$tco_done = true;
return new Data_Either.Left(gRes);
};
if (vals instanceof Data_List_Types.Cons) {
$tco_done = true;
return Data_Either.Right.create(new Data_Tuple.Tuple(new Data_List_Types.Cons({
func: gRes,
count: fStack.value0.count - 1 | 0
}, fStack.value1), new Data_NonEmpty.NonEmpty(vals.value0, vals.value1)));
};
throw new Error("Failed pattern match at Control.Applicative.Free line 83, column 11 - line 88, column 50: " + [ vals.constructor.name ]);
};
throw new Error("Failed pattern match at Control.Applicative.Free line 72, column 3 - line 88, column 50: " + [ fStack.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($tco_var_dictApplicative, $tco_var_fStack, $tco_var_vals, $copy_gVal);
};
return $tco_result;
};
};
};
};
var functorFreeAp = new Data_Functor.Functor(function (f) {
return function (x) {
return mkAp(new Pure(f))(x);
};
});
var foldFreeAp = function (dictApplicative) {
return function (nat) {
return function (z) {
var go = function ($copy_v) {
var $tco_done = false;
var $tco_result;
function $tco_loop(v) {
if (v.value1.value0 instanceof Pure) {
var v1 = goApply(dictApplicative)(v.value0)(v.value1.value1)(Control_Applicative.pure(dictApplicative)(v.value1.value0.value0));
if (v1 instanceof Data_Either.Left) {
$tco_done = true;
return v1.value0;
};
if (v1 instanceof Data_Either.Right) {
$copy_v = v1.value0;
return;
};
throw new Error("Failed pattern match at Control.Applicative.Free line 54, column 17 - line 56, column 24: " + [ v1.constructor.name ]);
};
if (v.value1.value0 instanceof Lift) {
var v1 = goApply(dictApplicative)(v.value0)(v.value1.value1)(nat(v.value1.value0.value0));
if (v1 instanceof Data_Either.Left) {
$tco_done = true;
return v1.value0;
};
if (v1 instanceof Data_Either.Right) {
$copy_v = v1.value0;
return;
};
throw new Error("Failed pattern match at Control.Applicative.Free line 57, column 17 - line 59, column 24: " + [ v1.constructor.name ]);
};
if (v.value1.value0 instanceof Ap) {
var nextVals = new Data_NonEmpty.NonEmpty(v.value1.value0.value1, v.value1.value1);
$copy_v = goLeft(dictApplicative)(v.value0)(nextVals)(nat)(v.value1.value0.value0)(1);
return;
};
throw new Error("Failed pattern match at Control.Applicative.Free line 53, column 5 - line 64, column 1: " + [ v.value1.value0.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($copy_v);
};
return $tco_result;
};
return go(new Data_Tuple.Tuple(Data_List_Types.Nil.value, Data_List_NonEmpty.singleton(z)));
};
};
};
var retractFreeAp = function (dictApplicative) {
return foldFreeAp(dictApplicative)(Control_Category.identity(Control_Category.categoryFn));
};
var applyFreeAp = new Control_Apply.Apply(function () {
return functorFreeAp;
}, function (fba) {
return function (fb) {
return mkAp(fba)(fb);
};
});
var applicativeFreeAp = new Control_Applicative.Applicative(function () {
return applyFreeAp;
}, Pure.create);
var hoistFreeAp = function (f) {
return foldFreeAp(applicativeFreeAp)(function ($37) {
return liftFreeAp(f($37));
});
};
exports["liftFreeAp"] = liftFreeAp;
exports["retractFreeAp"] = retractFreeAp;
exports["foldFreeAp"] = foldFreeAp;
exports["hoistFreeAp"] = hoistFreeAp;
exports["functorFreeAp"] = functorFreeAp;
exports["applyFreeAp"] = applyFreeAp;
exports["applicativeFreeAp"] = applicativeFreeAp;
})(PS["Control.Applicative.Free"] = PS["Control.Applicative.Free"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Alt = PS["Control.Alt"];
var Control_Alternative = PS["Control.Alternative"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Monad = PS["Control.Monad"];
var Control_MonadPlus = PS["Control.MonadPlus"];
var Control_MonadZero = PS["Control.MonadZero"];
var Control_Plus = PS["Control.Plus"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_List = PS["Data.List"];
var Data_List_Types = PS["Data.List.Types"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Show = PS["Data.Show"];
var Data_Traversable = PS["Data.Traversable"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unfoldable = PS["Data.Unfoldable"];
var Data_Unfoldable1 = PS["Data.Unfoldable1"];
var Prelude = PS["Prelude"];
var CatQueue = (function () {
function CatQueue(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
CatQueue.create = function (value0) {
return function (value1) {
return new CatQueue(value0, value1);
};
};
return CatQueue;
})();
var uncons = function ($copy_v) {
var $tco_done = false;
var $tco_result;
function $tco_loop(v) {
if (v.value0 instanceof Data_List_Types.Nil && v.value1 instanceof Data_List_Types.Nil) {
$tco_done = true;
return Data_Maybe.Nothing.value;
};
if (v.value0 instanceof Data_List_Types.Nil) {
$copy_v = new CatQueue(Data_List.reverse(v.value1), Data_List_Types.Nil.value);
return;
};
if (v.value0 instanceof Data_List_Types.Cons) {
$tco_done = true;
return new Data_Maybe.Just(new Data_Tuple.Tuple(v.value0.value0, new CatQueue(v.value0.value1, v.value1)));
};
throw new Error("Failed pattern match at Data.CatQueue line 83, column 1 - line 83, column 63: " + [ v.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($copy_v);
};
return $tco_result;
};
var snoc = function (v) {
return function (a) {
return new CatQueue(v.value0, new Data_List_Types.Cons(a, v.value1));
};
};
var $$null = function (v) {
if (v.value0 instanceof Data_List_Types.Nil && v.value1 instanceof Data_List_Types.Nil) {
return true;
};
return false;
};
var empty = new CatQueue(Data_List_Types.Nil.value, Data_List_Types.Nil.value);
exports["CatQueue"] = CatQueue;
exports["empty"] = empty;
exports["null"] = $$null;
exports["snoc"] = snoc;
exports["uncons"] = uncons;
})(PS["Data.CatQueue"] = PS["Data.CatQueue"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Alt = PS["Control.Alt"];
var Control_Alternative = PS["Control.Alternative"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Monad = PS["Control.Monad"];
var Control_MonadPlus = PS["Control.MonadPlus"];
var Control_MonadZero = PS["Control.MonadZero"];
var Control_Plus = PS["Control.Plus"];
var Data_CatQueue = PS["Data.CatQueue"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_List = PS["Data.List"];
var Data_List_Types = PS["Data.List.Types"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Show = PS["Data.Show"];
var Data_Traversable = PS["Data.Traversable"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unfoldable = PS["Data.Unfoldable"];
var Data_Unfoldable1 = PS["Data.Unfoldable1"];
var Prelude = PS["Prelude"];
var CatNil = (function () {
function CatNil() {
};
CatNil.value = new CatNil();
return CatNil;
})();
var CatCons = (function () {
function CatCons(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
CatCons.create = function (value0) {
return function (value1) {
return new CatCons(value0, value1);
};
};
return CatCons;
})();
var link = function (v) {
return function (cat) {
if (v instanceof CatNil) {
return cat;
};
if (v instanceof CatCons) {
return new CatCons(v.value0, Data_CatQueue.snoc(v.value1)(cat));
};
throw new Error("Failed pattern match at Data.CatList line 111, column 1 - line 111, column 54: " + [ v.constructor.name, cat.constructor.name ]);
};
};
var foldr = function (k) {
return function (b) {
return function (q) {
var foldl = function ($copy_v) {
return function ($copy_c) {
return function ($copy_v1) {
var $tco_var_v = $copy_v;
var $tco_var_c = $copy_c;
var $tco_done = false;
var $tco_result;
function $tco_loop(v, c, v1) {
if (v1 instanceof Data_List_Types.Nil) {
$tco_done = true;
return c;
};
if (v1 instanceof Data_List_Types.Cons) {
$tco_var_v = v;
$tco_var_c = v(c)(v1.value0);
$copy_v1 = v1.value1;
return;
};
throw new Error("Failed pattern match at Data.CatList line 126, column 3 - line 126, column 59: " + [ v.constructor.name, c.constructor.name, v1.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($tco_var_v, $tco_var_c, $copy_v1);
};
return $tco_result;
};
};
};
var go = function ($copy_xs) {
return function ($copy_ys) {
var $tco_var_xs = $copy_xs;
var $tco_done = false;
var $tco_result;
function $tco_loop(xs, ys) {
var v = Data_CatQueue.uncons(xs);
if (v instanceof Data_Maybe.Nothing) {
$tco_done = true;
return foldl(function (x) {
return function (i) {
return i(x);
};
})(b)(ys);
};
if (v instanceof Data_Maybe.Just) {
$tco_var_xs = v.value0.value1;
$copy_ys = new Data_List_Types.Cons(k(v.value0.value0), ys);
return;
};
throw new Error("Failed pattern match at Data.CatList line 122, column 14 - line 124, column 67: " + [ v.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($tco_var_xs, $copy_ys);
};
return $tco_result;
};
};
return go(q)(Data_List_Types.Nil.value);
};
};
};
var uncons = function (v) {
if (v instanceof CatNil) {
return Data_Maybe.Nothing.value;
};
if (v instanceof CatCons) {
return new Data_Maybe.Just(new Data_Tuple.Tuple(v.value0, (function () {
var $45 = Data_CatQueue["null"](v.value1);
if ($45) {
return CatNil.value;
};
return foldr(link)(CatNil.value)(v.value1);
})()));
};
throw new Error("Failed pattern match at Data.CatList line 102, column 1 - line 102, column 61: " + [ v.constructor.name ]);
};
var empty = CatNil.value;
var append = function (v) {
return function (v1) {
if (v1 instanceof CatNil) {
return v;
};
if (v instanceof CatNil) {
return v1;
};
return link(v)(v1);
};
};
var semigroupCatList = new Data_Semigroup.Semigroup(append);
var snoc = function (cat) {
return function (a) {
return append(cat)(new CatCons(a, Data_CatQueue.empty));
};
};
exports["CatNil"] = CatNil;
exports["CatCons"] = CatCons;
exports["empty"] = empty;
exports["append"] = append;
exports["snoc"] = snoc;
exports["uncons"] = uncons;
exports["semigroupCatList"] = semigroupCatList;
})(PS["Data.CatList"] = PS["Data.CatList"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Monad = PS["Control.Monad"];
var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"];
var Control_Monad_Trans_Class = PS["Control.Monad.Trans.Class"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_CatList = PS["Data.CatList"];
var Data_Either = PS["Data.Either"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Traversable = PS["Data.Traversable"];
var Data_Tuple = PS["Data.Tuple"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var Free = (function () {
function Free(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
Free.create = function (value0) {
return function (value1) {
return new Free(value0, value1);
};
};
return Free;
})();
var Return = (function () {
function Return(value0) {
this.value0 = value0;
};
Return.create = function (value0) {
return new Return(value0);
};
return Return;
})();
var Bind = (function () {
function Bind(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
Bind.create = function (value0) {
return function (value1) {
return new Bind(value0, value1);
};
};
return Bind;
})();
var toView = function ($copy_v) {
var $tco_done = false;
var $tco_result;
function $tco_loop(v) {
var runExpF = function (v2) {
return v2;
};
var concatF = function (v2) {
return function (r) {
return new Free(v2.value0, Data_Semigroup.append(Data_CatList.semigroupCatList)(v2.value1)(r));
};
};
if (v.value0 instanceof Return) {
var v2 = Data_CatList.uncons(v.value1);
if (v2 instanceof Data_Maybe.Nothing) {
$tco_done = true;
return new Return(v.value0.value0);
};
if (v2 instanceof Data_Maybe.Just) {
$copy_v = concatF(runExpF(v2.value0.value0)(v.value0.value0))(v2.value0.value1);
return;
};
throw new Error("Failed pattern match at Control.Monad.Free line 220, column 7 - line 224, column 64: " + [ v2.constructor.name ]);
};
if (v.value0 instanceof Bind) {
$tco_done = true;
return new Bind(v.value0.value0, function (a) {
return concatF(v.value0.value1(a))(v.value1);
});
};
throw new Error("Failed pattern match at Control.Monad.Free line 218, column 3 - line 226, column 56: " + [ v.value0.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($copy_v);
};
return $tco_result;
};
var fromView = function (f) {
return new Free(f, Data_CatList.empty);
};
var freeMonad = new Control_Monad.Monad(function () {
return freeApplicative;
}, function () {
return freeBind;
});
var freeFunctor = new Data_Functor.Functor(function (k) {
return function (f) {
return Control_Bind.bindFlipped(freeBind)(function ($118) {
return Control_Applicative.pure(freeApplicative)(k($118));
})(f);
};
});
var freeBind = new Control_Bind.Bind(function () {
return freeApply;
}, function (v) {
return function (k) {
return new Free(v.value0, Data_CatList.snoc(v.value1)(k));
};
});
var freeApply = new Control_Apply.Apply(function () {
return freeFunctor;
}, Control_Monad.ap(freeMonad));
var freeApplicative = new Control_Applicative.Applicative(function () {
return freeApply;
}, function ($119) {
return fromView(Return.create($119));
});
var liftF = function (f) {
return fromView(new Bind(f, function ($120) {
return Control_Applicative.pure(freeApplicative)($120);
}));
};
var foldFree = function (dictMonadRec) {
return function (k) {
var go = function (f) {
var v = toView(f);
if (v instanceof Return) {
return Data_Functor.map((((dictMonadRec.Monad0()).Bind1()).Apply0()).Functor0())(Control_Monad_Rec_Class.Done.create)(Control_Applicative.pure((dictMonadRec.Monad0()).Applicative0())(v.value0));
};
if (v instanceof Bind) {
return Data_Functor.map((((dictMonadRec.Monad0()).Bind1()).Apply0()).Functor0())(function ($127) {
return Control_Monad_Rec_Class.Loop.create(v.value1($127));
})(k(v.value0));
};
throw new Error("Failed pattern match at Control.Monad.Free line 151, column 10 - line 153, column 37: " + [ v.constructor.name ]);
};
return Control_Monad_Rec_Class.tailRecM(dictMonadRec)(go);
};
};
exports["liftF"] = liftF;
exports["foldFree"] = foldFree;
exports["freeFunctor"] = freeFunctor;
exports["freeBind"] = freeBind;
exports["freeApplicative"] = freeApplicative;
exports["freeApply"] = freeApply;
exports["freeMonad"] = freeMonad;
})(PS["Control.Monad.Free"] = PS["Control.Monad.Free"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var runExists = Unsafe_Coerce.unsafeCoerce;
var mkExists = Unsafe_Coerce.unsafeCoerce;
exports["mkExists"] = mkExists;
exports["runExists"] = runExists;
})(PS["Data.Exists"] = PS["Data.Exists"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Alt = PS["Control.Alt"];
var Control_Alternative = PS["Control.Alternative"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Comonad = PS["Control.Comonad"];
var Control_Extend = PS["Control.Extend"];
var Control_Monad = PS["Control.Monad"];
var Control_Monad_Trans_Class = PS["Control.Monad.Trans.Class"];
var Control_MonadPlus = PS["Control.MonadPlus"];
var Control_MonadZero = PS["Control.MonadZero"];
var Control_Plus = PS["Control.Plus"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Distributive = PS["Data.Distributive"];
var Data_Eq = PS["Data.Eq"];
var Data_Exists = PS["Data.Exists"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Functor_Invariant = PS["Data.Functor.Invariant"];
var Data_Ord = PS["Data.Ord"];
var Data_Semigroup_Foldable = PS["Data.Semigroup.Foldable"];
var Data_Semigroup_Traversable = PS["Data.Semigroup.Traversable"];
var Data_Traversable = PS["Data.Traversable"];
var Prelude = PS["Prelude"];
var unCoyoneda = function (f) {
return function (v) {
return Data_Exists.runExists(function (v1) {
return f(v1.value0)(v1.value1);
})(v);
};
};
exports["unCoyoneda"] = unCoyoneda;
})(PS["Data.Coyoneda"] = PS["Data.Coyoneda"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Monad = PS["Control.Monad"];
var Control_Monad_Error_Class = PS["Control.Monad.Error.Class"];
var Control_Monad_Reader_Class = PS["Control.Monad.Reader.Class"];
var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"];
var Control_Monad_State_Class = PS["Control.Monad.State.Class"];
var Control_Monad_Trans_Class = PS["Control.Monad.Trans.Class"];
var Control_Monad_Writer_Class = PS["Control.Monad.Writer.Class"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Bifunctor = PS["Data.Bifunctor"];
var Data_Either = PS["Data.Either"];
var Data_Exists = PS["Data.Exists"];
var Data_Functor = PS["Data.Functor"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Unit = PS["Data.Unit"];
var Effect_Class = PS["Effect.Class"];
var Prelude = PS["Prelude"];
var Bound = (function () {
function Bound(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
Bound.create = function (value0) {
return function (value1) {
return new Bound(value0, value1);
};
};
return Bound;
})();
var FreeT = (function () {
function FreeT(value0) {
this.value0 = value0;
};
FreeT.create = function (value0) {
return new FreeT(value0);
};
return FreeT;
})();
var Bind = (function () {
function Bind(value0) {
this.value0 = value0;
};
Bind.create = function (value0) {
return new Bind(value0);
};
return Bind;
})();
var monadTransFreeT = function (dictFunctor) {
return new Control_Monad_Trans_Class.MonadTrans(function (dictMonad) {
return function (ma) {
return new FreeT(function (v) {
return Data_Functor.map(((dictMonad.Bind1()).Apply0()).Functor0())(Data_Either.Left.create)(ma);
});
};
});
};
var freeT = FreeT.create;
var bound = function (m) {
return function (f) {
return new Bind(Data_Exists.mkExists(new Bound(m, f)));
};
};
var functorFreeT = function (dictFunctor) {
return function (dictFunctor1) {
return new Data_Functor.Functor(function (f) {
return function (v) {
if (v instanceof FreeT) {
return new FreeT(function (v1) {
return Data_Functor.map(dictFunctor1)(Data_Bifunctor.bimap(Data_Either.bifunctorEither)(f)(Data_Functor.map(dictFunctor)(Data_Functor.map(functorFreeT(dictFunctor)(dictFunctor1))(f))))(v.value0(Data_Unit.unit));
});
};
if (v instanceof Bind) {
return Data_Exists.runExists(function (v1) {
return bound(v1.value0)(function ($104) {
return Data_Functor.map(functorFreeT(dictFunctor)(dictFunctor1))(f)(v1.value1($104));
});
})(v.value0);
};
throw new Error("Failed pattern match at Control.Monad.Free.Trans line 57, column 1 - line 57, column 71: " + [ f.constructor.name, v.constructor.name ]);
};
});
};
};
var monadFreeT = function (dictFunctor) {
return function (dictMonad) {
return new Control_Monad.Monad(function () {
return applicativeFreeT(dictFunctor)(dictMonad);
}, function () {
return bindFreeT(dictFunctor)(dictMonad);
});
};
};
var bindFreeT = function (dictFunctor) {
return function (dictMonad) {
return new Control_Bind.Bind(function () {
return applyFreeT(dictFunctor)(dictMonad);
}, function (v) {
return function (f) {
if (v instanceof Bind) {
return Data_Exists.runExists(function (v1) {
return bound(v1.value0)(function (x) {
return bound(function (v2) {
return v1.value1(x);
})(f);
});
})(v.value0);
};
return bound(function (v1) {
return v;
})(f);
};
});
};
};
var applyFreeT = function (dictFunctor) {
return function (dictMonad) {
return new Control_Apply.Apply(function () {
return functorFreeT(dictFunctor)(((dictMonad.Bind1()).Apply0()).Functor0());
}, Control_Monad.ap(monadFreeT(dictFunctor)(dictMonad)));
};
};
var applicativeFreeT = function (dictFunctor) {
return function (dictMonad) {
return new Control_Applicative.Applicative(function () {
return applyFreeT(dictFunctor)(dictMonad);
}, function (a) {
return new FreeT(function (v) {
return Control_Applicative.pure(dictMonad.Applicative0())(new Data_Either.Left(a));
});
});
};
};
var liftFreeT = function (dictFunctor) {
return function (dictMonad) {
return function (fa) {
return new FreeT(function (v) {
return Control_Applicative.pure(dictMonad.Applicative0())(new Data_Either.Right(Data_Functor.map(dictFunctor)(Control_Applicative.pure(applicativeFreeT(dictFunctor)(dictMonad)))(fa)));
});
};
};
};
var resume = function (dictFunctor) {
return function (dictMonadRec) {
var go = function (v) {
if (v instanceof FreeT) {
return Data_Functor.map((((dictMonadRec.Monad0()).Bind1()).Apply0()).Functor0())(Control_Monad_Rec_Class.Done.create)(v.value0(Data_Unit.unit));
};
if (v instanceof Bind) {
return Data_Exists.runExists(function (v1) {
var v2 = v1.value0(Data_Unit.unit);
if (v2 instanceof FreeT) {
return Control_Bind.bind((dictMonadRec.Monad0()).Bind1())(v2.value0(Data_Unit.unit))(function (v3) {
if (v3 instanceof Data_Either.Left) {
return Control_Applicative.pure((dictMonadRec.Monad0()).Applicative0())(new Control_Monad_Rec_Class.Loop(v1.value1(v3.value0)));
};
if (v3 instanceof Data_Either.Right) {
return Control_Applicative.pure((dictMonadRec.Monad0()).Applicative0())(new Control_Monad_Rec_Class.Done(new Data_Either.Right(Data_Functor.map(dictFunctor)(function (h) {
return Control_Bind.bind(bindFreeT(dictFunctor)(dictMonadRec.Monad0()))(h)(v1.value1);
})(v3.value0))));
};
throw new Error("Failed pattern match at Control.Monad.Free.Trans line 52, column 20 - line 54, column 67: " + [ v3.constructor.name ]);
});
};
if (v2 instanceof Bind) {
return Data_Exists.runExists(function (v3) {
return Control_Applicative.pure((dictMonadRec.Monad0()).Applicative0())(new Control_Monad_Rec_Class.Loop(Control_Bind.bind(bindFreeT(dictFunctor)(dictMonadRec.Monad0()))(v3.value0(Data_Unit.unit))(function (z) {
return Control_Bind.bind(bindFreeT(dictFunctor)(dictMonadRec.Monad0()))(v3.value1(z))(v1.value1);
})));
})(v2.value0);
};
throw new Error("Failed pattern match at Control.Monad.Free.Trans line 50, column 5 - line 55, column 98: " + [ v2.constructor.name ]);
})(v.value0);
};
throw new Error("Failed pattern match at Control.Monad.Free.Trans line 47, column 3 - line 47, column 75: " + [ v.constructor.name ]);
};
return Control_Monad_Rec_Class.tailRecM(dictMonadRec)(go);
};
};
var runFreeT = function (dictFunctor) {
return function (dictMonadRec) {
return function (interp) {
var go = function (v) {
if (v instanceof Data_Either.Left) {
return Control_Applicative.pure((dictMonadRec.Monad0()).Applicative0())(new Control_Monad_Rec_Class.Done(v.value0));
};
if (v instanceof Data_Either.Right) {
return Data_Functor.map((((dictMonadRec.Monad0()).Bind1()).Apply0()).Functor0())(Control_Monad_Rec_Class.Loop.create)(interp(v.value0));
};
throw new Error("Failed pattern match at Control.Monad.Free.Trans line 126, column 3 - line 126, column 63: " + [ v.constructor.name ]);
};
return Control_Monad_Rec_Class.tailRecM(dictMonadRec)(Control_Bind.composeKleisliFlipped((dictMonadRec.Monad0()).Bind1())(go)(resume(dictFunctor)(dictMonadRec)));
};
};
};
var monadRecFreeT = function (dictFunctor) {
return function (dictMonad) {
return new Control_Monad_Rec_Class.MonadRec(function () {
return monadFreeT(dictFunctor)(dictMonad);
}, function (f) {
var go = function (s) {
return Control_Bind.bind(bindFreeT(dictFunctor)(dictMonad))(f(s))(function (v) {
if (v instanceof Control_Monad_Rec_Class.Loop) {
return go(v.value0);
};
if (v instanceof Control_Monad_Rec_Class.Done) {
return Control_Applicative.pure(applicativeFreeT(dictFunctor)(dictMonad))(v.value0);
};
throw new Error("Failed pattern match at Control.Monad.Free.Trans line 80, column 15 - line 82, column 25: " + [ v.constructor.name ]);
});
};
return go;
});
};
};
exports["freeT"] = freeT;
exports["liftFreeT"] = liftFreeT;
exports["resume"] = resume;
exports["runFreeT"] = runFreeT;
exports["functorFreeT"] = functorFreeT;
exports["applyFreeT"] = applyFreeT;
exports["applicativeFreeT"] = applicativeFreeT;
exports["bindFreeT"] = bindFreeT;
exports["monadFreeT"] = monadFreeT;
exports["monadTransFreeT"] = monadTransFreeT;
exports["monadRecFreeT"] = monadRecFreeT;
})(PS["Control.Monad.Free.Trans"] = PS["Control.Monad.Free.Trans"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Category = PS["Control.Category"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Newtype = PS["Data.Newtype"];
var Prelude = PS["Prelude"];
var Profunctor = function (dimap) {
this.dimap = dimap;
};
var profunctorFn = new Profunctor(function (a2b) {
return function (c2d) {
return function (b2c) {
return function ($9) {
return c2d(b2c(a2b($9)));
};
};
};
});
var dimap = function (dict) {
return dict.dimap;
};
var rmap = function (dictProfunctor) {
return function (b2c) {
return dimap(dictProfunctor)(Control_Category.identity(Control_Category.categoryFn))(b2c);
};
};
exports["dimap"] = dimap;
exports["Profunctor"] = Profunctor;
exports["rmap"] = rmap;
exports["profunctorFn"] = profunctorFn;
})(PS["Data.Profunctor"] = PS["Data.Profunctor"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Monad_Except = PS["Control.Monad.Except"];
var Control_Monad_Except_Trans = PS["Control.Monad.Except.Trans"];
var Control_Monad_Free_Trans = PS["Control.Monad.Free.Trans"];
var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"];
var Control_Monad_Trans_Class = PS["Control.Monad.Trans.Class"];
var Control_Parallel = PS["Control.Parallel"];
var Control_Parallel_Class = PS["Control.Parallel.Class"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Bifunctor = PS["Data.Bifunctor"];
var Data_Either = PS["Data.Either"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Identity = PS["Data.Identity"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Profunctor = PS["Data.Profunctor"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unit = PS["Data.Unit"];
var Prelude = PS["Prelude"];
var Emit = (function () {
function Emit(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
Emit.create = function (value0) {
return function (value1) {
return new Emit(value0, value1);
};
};
return Emit;
})();
var runProcess = function (dictMonadRec) {
return Control_Monad_Free_Trans.runFreeT(Data_Identity.functorIdentity)(dictMonadRec)(function ($186) {
return Control_Applicative.pure((dictMonadRec.Monad0()).Applicative0())(Data_Newtype.unwrap(Data_Identity.newtypeIdentity)($186));
});
};
var profunctorAwait = new Data_Profunctor.Profunctor(function (f) {
return function (g) {
return function (v) {
return Data_Profunctor.dimap(Data_Profunctor.profunctorFn)(f)(g)(v);
};
};
});
var loop = function (dictFunctor) {
return function (dictMonad) {
return function (me) {
return Control_Monad_Rec_Class.tailRecM(Control_Monad_Free_Trans.monadRecFreeT(dictFunctor)(dictMonad))(function (v) {
return Data_Functor.map(Control_Monad_Free_Trans.functorFreeT(dictFunctor)(((dictMonad.Bind1()).Apply0()).Functor0()))(Data_Maybe.maybe(new Control_Monad_Rec_Class.Loop(Data_Unit.unit))(Control_Monad_Rec_Class.Done.create))(me);
})(Data_Unit.unit);
};
};
};
var fuseWithL = function (dictFunctor) {
return function (dictFunctor1) {
return function (dictFunctor2) {
return function (dictMonadRec) {
return function (zap) {
return function (fs) {
return function (gs) {
var go = function (v) {
return Control_Monad_Except_Trans.runExceptT(Control_Bind.bind(Control_Monad_Except_Trans.bindExceptT(dictMonadRec.Monad0()))(Control_Monad_Except_Trans.ExceptT(Control_Monad_Free_Trans.resume(dictFunctor)(dictMonadRec)(v.value0)))(function (v1) {
return Control_Bind.bind(Control_Monad_Except_Trans.bindExceptT(dictMonadRec.Monad0()))(Control_Monad_Except_Trans.ExceptT(Control_Monad_Free_Trans.resume(dictFunctor1)(dictMonadRec)(v.value1)))(function (v2) {
return Control_Applicative.pure(Control_Monad_Except_Trans.applicativeExceptT(dictMonadRec.Monad0()))(Data_Functor.map(dictFunctor2)(function (t) {
return Control_Monad_Free_Trans.freeT(function (v3) {
return go(t);
});
})(zap(Data_Tuple.Tuple.create)(v1)(v2)));
});
}));
};
return Control_Monad_Free_Trans.freeT(function (v) {
return go(new Data_Tuple.Tuple(fs, gs));
});
};
};
};
};
};
};
};
var fuseWith = function (dictFunctor) {
return function (dictFunctor1) {
return function (dictFunctor2) {
return function (dictMonadRec) {
return function (dictParallel) {
return function (zap) {
return function (fs) {
return function (gs) {
var go = function (v) {
return Control_Bind.bind((dictMonadRec.Monad0()).Bind1())(Control_Parallel_Class.sequential(dictParallel)(Control_Apply.apply((dictParallel.Applicative1()).Apply0())(Data_Functor.map(((dictParallel.Applicative1()).Apply0()).Functor0())(Control_Apply.lift2(Data_Either.applyEither)(zap(Data_Tuple.Tuple.create)))(Control_Parallel_Class.parallel(dictParallel)(Control_Monad_Free_Trans.resume(dictFunctor)(dictMonadRec)(v.value0))))(Control_Parallel_Class.parallel(dictParallel)(Control_Monad_Free_Trans.resume(dictFunctor1)(dictMonadRec)(v.value1)))))(function (v1) {
if (v1 instanceof Data_Either.Left) {
return Control_Applicative.pure((dictMonadRec.Monad0()).Applicative0())(new Data_Either.Left(v1.value0));
};
if (v1 instanceof Data_Either.Right) {
return Control_Applicative.pure((dictMonadRec.Monad0()).Applicative0())(new Data_Either.Right(Data_Functor.map(dictFunctor2)(function (t) {
return Control_Monad_Free_Trans.freeT(function (v2) {
return go(t);
});
})(v1.value0)));
};
throw new Error("Failed pattern match at Control.Coroutine line 79, column 5 - line 81, column 63: " + [ v1.constructor.name ]);
});
};
return Control_Monad_Free_Trans.freeT(function (v) {
return go(new Data_Tuple.Tuple(fs, gs));
});
};
};
};
};
};
};
};
};
var functorAwait = new Data_Functor.Functor(Data_Profunctor.rmap(profunctorAwait));
var bifunctorEmit = new Data_Bifunctor.Bifunctor(function (f) {
return function (g) {
return function (v) {
return new Emit(f(v.value0), g(v.value1));
};
};
});
var functorEmit = new Data_Functor.Functor(Data_Bifunctor.rmap(bifunctorEmit));
var connect = function (dictMonadRec) {
return function (dictParallel) {
return fuseWith(functorEmit)(functorAwait)(Data_Identity.functorIdentity)(dictMonadRec)(dictParallel)(function (f) {
return function (v) {
return function (v1) {
return f(v.value1)(v1(v.value0));
};
};
});
};
};
var emit = function (dictMonad) {
return function (o) {
return Control_Monad_Free_Trans.liftFreeT(functorEmit)(dictMonad)(new Emit(o, Data_Unit.unit));
};
};
var producer = function (dictMonad) {
return function (recv) {
return loop(functorEmit)(dictMonad)(Control_Bind.bind(Control_Monad_Free_Trans.bindFreeT(functorEmit)(dictMonad))(Control_Monad_Trans_Class.lift(Control_Monad_Free_Trans.monadTransFreeT(functorEmit))(dictMonad)(recv))(function (v) {
if (v instanceof Data_Either.Left) {
return Data_Functor.voidLeft(Control_Monad_Free_Trans.functorFreeT(functorEmit)(((dictMonad.Bind1()).Apply0()).Functor0()))(emit(dictMonad)(v.value0))(Data_Maybe.Nothing.value);
};
if (v instanceof Data_Either.Right) {
return Control_Applicative.pure(Control_Monad_Free_Trans.applicativeFreeT(functorEmit)(dictMonad))(new Data_Maybe.Just(v.value0));
};
throw new Error("Failed pattern match at Control.Coroutine line 125, column 3 - line 127, column 29: " + [ v.constructor.name ]);
}));
};
};
var pullFrom = function (dictMonadRec) {
return fuseWithL(functorAwait)(functorEmit)(Data_Identity.functorIdentity)(dictMonadRec)(function (f) {
return function (v) {
return function (v1) {
return Control_Applicative.pure(Data_Identity.applicativeIdentity)(f(v(v1.value0))(v1.value1));
};
};
});
};
var $$await = function (dictMonad) {
return Control_Monad_Free_Trans.liftFreeT(functorAwait)(dictMonad)(Control_Category.identity(Control_Category.categoryFn));
};
exports["loop"] = loop;
exports["runProcess"] = runProcess;
exports["fuseWith"] = fuseWith;
exports["fuseWithL"] = fuseWithL;
exports["Emit"] = Emit;
exports["emit"] = emit;
exports["producer"] = producer;
exports["await"] = $$await;
exports["connect"] = connect;
exports["pullFrom"] = pullFrom;
exports["bifunctorEmit"] = bifunctorEmit;
exports["functorEmit"] = functorEmit;
exports["profunctorAwait"] = profunctorAwait;
exports["functorAwait"] = functorAwait;
})(PS["Control.Coroutine"] = PS["Control.Coroutine"] || {});
(function(exports) {
/* globals exports, setTimeout */
"use strict";
var AVar = function () {
function MutableQueue () {
this.head = null;
this.last = null;
this.size = 0;
}
function MutableCell (queue, value) {
this.queue = queue;
this.value = value;
this.next = null;
this.prev = null;
}
function AVar (value) {
this.draining = false;
this.error = null;
this.value = value;
this.takes = new MutableQueue();
this.reads = new MutableQueue();
this.puts = new MutableQueue();
}
var EMPTY = {};
function runEff(eff) {
try {
eff();
} catch (error) {
setTimeout(function () {
throw error;
}, 0);
}
}
function putLast (queue, value) {
var cell = new MutableCell(queue, value);
switch (queue.size) {
case 0:
queue.head = cell;
break;
case 1:
cell.prev = queue.head;
queue.head.next = cell;
queue.last = cell;
break;
default:
cell.prev = queue.last;
queue.last.next = cell;
queue.last = cell;
}
queue.size++;
return cell;
}
function takeLast (queue) {
var cell;
switch (queue.size) {
case 0:
return null;
case 1:
cell = queue.head;
queue.head = null;
break;
case 2:
cell = queue.last;
queue.head.next = null;
queue.last = null;
break;
default:
cell = queue.last;
queue.last = cell.prev;
queue.last.next = null;
}
cell.prev = null;
cell.queue = null;
queue.size--;
return cell.value;
}
function takeHead (queue) {
var cell;
switch (queue.size) {
case 0:
return null;
case 1:
cell = queue.head;
queue.head = null;
break;
case 2:
cell = queue.head;
queue.last.prev = null;
queue.head = queue.last;
queue.last = null;
break;
default:
cell = queue.head;
queue.head = cell.next;
queue.head.prev = null;
}
cell.next = null;
cell.queue = null;
queue.size--;
return cell.value;
}
function deleteCell (cell) {
if (cell.queue === null) {
return;
}
if (cell.queue.last === cell) {
takeLast(cell.queue);
return;
}
if (cell.queue.head === cell) {
takeHead(cell.queue);
return;
}
if (cell.prev) {
cell.prev.next = cell.next;
}
if (cell.next) {
cell.next.prev = cell.prev;
}
cell.queue.size--;
cell.queue = null;
cell.value = null;
cell.next = null;
cell.prev = null;
}
function drainVar (util, avar) {
if (avar.draining) {
return;
}
var ps = avar.puts;
var ts = avar.takes;
var rs = avar.reads;
var p, r, t, value, rsize;
avar.draining = true;
while (1) { // eslint-disable-line no-constant-condition
p = null;
r = null;
t = null;
value = avar.value;
rsize = rs.size;
if (avar.error !== null) {
value = util.left(avar.error);
while (p = takeHead(ps)) { // eslint-disable-line no-cond-assign
runEff(p.cb(value));
}
while (r = takeHead(rs)) { // eslint-disable-line no-cond-assign
runEff(r(value));
}
while (t = takeHead(ts)) { // eslint-disable-line no-cond-assign
runEff(t(value));
}
break;
}
// Process the next put. We do not immediately invoke the callback
// because we want to preserve ordering. If there are takes/reads
// we want to run those first.
if (value === EMPTY && (p = takeHead(ps))) {
avar.value = value = p.value;
}
if (value !== EMPTY) {
// We go ahead and queue up the next take for the same reasons as
// above. Invoking the read callbacks can affect the mutable queue.
t = takeHead(ts);
// We only want to process the reads queued up before running these
// callbacks so we guard on rsize.
while (rsize-- && (r = takeHead(rs))) {
runEff(r(util.right(value)));
}
if (t !== null) {
avar.value = EMPTY;
runEff(t(util.right(value)));
}
}
if (p !== null) {
runEff(p.cb(util.right(void 0)));
}
// Callbacks could have queued up more items so we need to guard on the
// actual mutable properties.
if (avar.value === EMPTY && ps.size === 0 || avar.value !== EMPTY && ts.size === 0) {
break;
}
}
avar.draining = false;
}
AVar.EMPTY = EMPTY;
AVar.putLast = putLast;
AVar.takeLast = takeLast;
AVar.takeHead = takeHead;
AVar.deleteCell = deleteCell;
AVar.drainVar = drainVar;
return AVar;
}();
exports.empty = function () {
return new AVar(AVar.EMPTY);
};
exports._killVar = function (util, error, avar) {
return function () {
if (avar.error === null) {
avar.error = error;
avar.value = AVar.EMPTY;
AVar.drainVar(util, avar);
}
};
};
exports._putVar = function (util, value, avar, cb) {
return function () {
var cell = AVar.putLast(avar.puts, { cb: cb, value: value });
AVar.drainVar(util, avar);
return function () {
AVar.deleteCell(cell);
};
};
};
exports._takeVar = function (util, avar, cb) {
return function () {
var cell = AVar.putLast(avar.takes, cb);
AVar.drainVar(util, avar);
return function () {
AVar.deleteCell(cell);
};
};
};
})(PS["Effect.AVar"] = PS["Effect.AVar"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Effect.AVar"];
var Data_Either = PS["Data.Either"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var Data_Maybe = PS["Data.Maybe"];
var Effect = PS["Effect"];
var Effect_Exception = PS["Effect.Exception"];
var Prelude = PS["Prelude"];
var Killed = (function () {
function Killed(value0) {
this.value0 = value0;
};
Killed.create = function (value0) {
return new Killed(value0);
};
return Killed;
})();
var Filled = (function () {
function Filled(value0) {
this.value0 = value0;
};
Filled.create = function (value0) {
return new Filled(value0);
};
return Filled;
})();
var Empty = (function () {
function Empty() {
};
Empty.value = new Empty();
return Empty;
})();
var ffiUtil = {
left: Data_Either.Left.create,
right: Data_Either.Right.create,
nothing: Data_Maybe.Nothing.value,
just: Data_Maybe.Just.create,
killed: Killed.create,
filled: Filled.create,
empty: Empty.value
};
var kill = function (err) {
return function (avar) {
return $foreign._killVar(ffiUtil, err, avar);
};
};
var put = function (value) {
return function (avar) {
return function (cb) {
return $foreign._putVar(ffiUtil, value, avar, cb);
};
};
};
var take = function (avar) {
return function (cb) {
return $foreign._takeVar(ffiUtil, avar, cb);
};
};
exports["Killed"] = Killed;
exports["Filled"] = Filled;
exports["Empty"] = Empty;
exports["take"] = take;
exports["put"] = put;
exports["kill"] = kill;
exports["empty"] = $foreign.empty;
})(PS["Effect.AVar"] = PS["Effect.AVar"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Maybe = PS["Data.Maybe"];
var Effect = PS["Effect"];
var Effect_AVar = PS["Effect.AVar"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Class = PS["Effect.Class"];
var Effect_Exception = PS["Effect.Exception"];
var Prelude = PS["Prelude"];
var take = function (avar) {
return Effect_Aff.makeAff(function (k) {
return function __do() {
var v = Effect_AVar.take(avar)(k)();
return Effect_Aff.effectCanceler(v);
};
});
};
var put = function (value) {
return function (avar) {
return Effect_Aff.makeAff(function (k) {
return function __do() {
var v = Effect_AVar.put(value)(avar)(k)();
return Effect_Aff.effectCanceler(v);
};
});
};
};
var kill = function (error) {
return function ($11) {
return Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_AVar.kill(error)($11));
};
};
var empty = Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_AVar.empty);
exports["empty"] = empty;
exports["take"] = take;
exports["put"] = put;
exports["kill"] = kill;
})(PS["Effect.Aff.AVar"] = PS["Effect.Aff.AVar"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Coroutine = PS["Control.Coroutine"];
var Control_Monad_Free_Trans = PS["Control.Monad.Free.Trans"];
var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"];
var Control_Monad_Trans_Class = PS["Control.Monad.Trans.Class"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Bifunctor = PS["Data.Bifunctor"];
var Data_Either = PS["Data.Either"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Unit = PS["Data.Unit"];
var Effect = PS["Effect"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Aff_AVar = PS["Effect.Aff.AVar"];
var Effect_Aff_Class = PS["Effect.Aff.Class"];
var Effect_Class = PS["Effect.Class"];
var Effect_Exception = PS["Effect.Exception"];
var Prelude = PS["Prelude"];
var Listening = (function () {
function Listening() {
};
Listening.value = new Listening();
return Listening;
})();
var Done = (function () {
function Done() {
};
Done.value = new Done();
return Done;
})();
var unEventSource = function (v) {
return v;
};
var eqSubscribeStatus = new Data_Eq.Eq(function (x) {
return function (y) {
if (x instanceof Listening && y instanceof Listening) {
return true;
};
if (x instanceof Done && y instanceof Done) {
return true;
};
return false;
};
});
exports["Listening"] = Listening;
exports["Done"] = Done;
exports["unEventSource"] = unEventSource;
exports["eqSubscribeStatus"] = eqSubscribeStatus;
})(PS["Halogen.Query.EventSource"] = PS["Halogen.Query.EventSource"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Category = PS["Control.Category"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Exception = PS["Effect.Exception"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var unFork = Unsafe_Coerce.unsafeCoerce;
exports["unFork"] = unFork;
})(PS["Halogen.Query.ForkF"] = PS["Halogen.Query.ForkF"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Applicative_Free = PS["Control.Applicative.Free"];
var Control_Apply = PS["Control.Apply"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Monad = PS["Control.Monad"];
var Control_Monad_Free = PS["Control.Monad.Free"];
var Control_Monad_Reader_Class = PS["Control.Monad.Reader.Class"];
var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"];
var Control_Monad_State_Class = PS["Control.Monad.State.Class"];
var Control_Monad_Trans_Class = PS["Control.Monad.Trans.Class"];
var Control_Monad_Writer_Class = PS["Control.Monad.Writer.Class"];
var Control_Parallel_Class = PS["Control.Parallel.Class"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Bifunctor = PS["Data.Bifunctor"];
var Data_Coyoneda = PS["Data.Coyoneda"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_List = PS["Data.List"];
var Data_List_Types = PS["Data.List.Types"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unit = PS["Data.Unit"];
var Effect_Aff_Class = PS["Effect.Aff.Class"];
var Effect_Class = PS["Effect.Class"];
var Effect_Exception = PS["Effect.Exception"];
var Halogen_Query_EventSource = PS["Halogen.Query.EventSource"];
var Halogen_Query_ForkF = PS["Halogen.Query.ForkF"];
var Halogen_Query_InputF = PS["Halogen.Query.InputF"];
var Prelude = PS["Prelude"];
var Web_DOM = PS["Web.DOM"];
var HalogenM = function (x) {
return x;
};
var State = (function () {
function State(value0) {
this.value0 = value0;
};
State.create = function (value0) {
return new State(value0);
};
return State;
})();
var Subscribe = (function () {
function Subscribe(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
Subscribe.create = function (value0) {
return function (value1) {
return new Subscribe(value0, value1);
};
};
return Subscribe;
})();
var Lift = (function () {
function Lift(value0) {
this.value0 = value0;
};
Lift.create = function (value0) {
return new Lift(value0);
};
return Lift;
})();
var Halt = (function () {
function Halt(value0) {
this.value0 = value0;
};
Halt.create = function (value0) {
return new Halt(value0);
};
return Halt;
})();
var GetSlots = (function () {
function GetSlots(value0) {
this.value0 = value0;
};
GetSlots.create = function (value0) {
return new GetSlots(value0);
};
return GetSlots;
})();
var CheckSlot = (function () {
function CheckSlot(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
CheckSlot.create = function (value0) {
return function (value1) {
return new CheckSlot(value0, value1);
};
};
return CheckSlot;
})();
var ChildQuery = (function () {
function ChildQuery(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
ChildQuery.create = function (value0) {
return function (value1) {
return new ChildQuery(value0, value1);
};
};
return ChildQuery;
})();
var Raise = (function () {
function Raise(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
Raise.create = function (value0) {
return function (value1) {
return new Raise(value0, value1);
};
};
return Raise;
})();
var Par = (function () {
function Par(value0) {
this.value0 = value0;
};
Par.create = function (value0) {
return new Par(value0);
};
return Par;
})();
var Fork = (function () {
function Fork(value0) {
this.value0 = value0;
};
Fork.create = function (value0) {
return new Fork(value0);
};
return Fork;
})();
var GetRef = (function () {
function GetRef(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
GetRef.create = function (value0) {
return function (value1) {
return new GetRef(value0, value1);
};
};
return GetRef;
})();
var raise = function (o) {
return HalogenM(Control_Monad_Free.liftF(new Raise(o, Data_Unit.unit)));
};
var functorHalogenM = new Data_Functor.Functor(function (f) {
return function (v) {
return Data_Functor.map(Control_Monad_Free.freeFunctor)(f)(v);
};
});
var applyHalogenM = new Control_Apply.Apply(function () {
return functorHalogenM;
}, function (v) {
return function (v1) {
return Control_Apply.apply(Control_Monad_Free.freeApply)(v)(v1);
};
});
var bindHalogenM = new Control_Bind.Bind(function () {
return applyHalogenM;
}, function (v) {
return function (f) {
return Control_Bind.bind(Control_Monad_Free.freeBind)(v)(function (x) {
var v1 = f(x);
return v1;
});
};
});
var applicativeHalogenM = new Control_Applicative.Applicative(function () {
return applyHalogenM;
}, function (a) {
return Control_Applicative.pure(Control_Monad_Free.freeApplicative)(a);
});
var monadHalogenM = new Control_Monad.Monad(function () {
return applicativeHalogenM;
}, function () {
return bindHalogenM;
});
var monadEffectHalogenM = function (dictMonadEffect) {
return new Effect_Class.MonadEffect(function () {
return monadHalogenM;
}, function (eff) {
return HalogenM(Control_Monad_Free.liftF(Lift.create(Effect_Class.liftEffect(dictMonadEffect)(eff))));
});
};
var monadAffHalogenM = function (dictMonadAff) {
return new Effect_Aff_Class.MonadAff(function () {
return monadEffectHalogenM(dictMonadAff.MonadEffect0());
}, function (aff) {
return HalogenM(Control_Monad_Free.liftF(Lift.create(Effect_Aff_Class.liftAff(dictMonadAff)(aff))));
});
};
var monadStateHalogenM = new Control_Monad_State_Class.MonadState(function () {
return monadHalogenM;
}, function ($180) {
return HalogenM(Control_Monad_Free.liftF(State.create($180)));
});
exports["State"] = State;
exports["Subscribe"] = Subscribe;
exports["Lift"] = Lift;
exports["Halt"] = Halt;
exports["GetSlots"] = GetSlots;
exports["CheckSlot"] = CheckSlot;
exports["ChildQuery"] = ChildQuery;
exports["Raise"] = Raise;
exports["Par"] = Par;
exports["Fork"] = Fork;
exports["GetRef"] = GetRef;
exports["HalogenM"] = HalogenM;
exports["raise"] = raise;
exports["functorHalogenM"] = functorHalogenM;
exports["applyHalogenM"] = applyHalogenM;
exports["applicativeHalogenM"] = applicativeHalogenM;
exports["bindHalogenM"] = bindHalogenM;
exports["monadHalogenM"] = monadHalogenM;
exports["monadEffectHalogenM"] = monadEffectHalogenM;
exports["monadAffHalogenM"] = monadAffHalogenM;
exports["monadStateHalogenM"] = monadStateHalogenM;
})(PS["Halogen.Query.HalogenM"] = PS["Halogen.Query.HalogenM"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Bifunctor = PS["Data.Bifunctor"];
var Data_Const = PS["Data.Const"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ord = PS["Data.Ord"];
var Halogen_Data_OrdBox = PS["Halogen.Data.OrdBox"];
var Halogen_HTML_Core = PS["Halogen.HTML.Core"];
var Halogen_Query_HalogenM = PS["Halogen.Query.HalogenM"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var ComponentSlot = (function () {
function ComponentSlot(value0, value1, value2, value3, value4, value5) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
this.value3 = value3;
this.value4 = value4;
this.value5 = value5;
};
ComponentSlot.create = function (value0) {
return function (value1) {
return function (value2) {
return function (value3) {
return function (value4) {
return function (value5) {
return new ComponentSlot(value0, value1, value2, value3, value4, value5);
};
};
};
};
};
};
return ComponentSlot;
})();
var unComponentSlot = function (f) {
return function (cs) {
return f(cs.value0)(cs.value1)(cs.value2)(cs.value3)(cs.value4)(cs.value5);
};
};
var unComponent = Unsafe_Coerce.unsafeCoerce;
var mkComponentSlot = ComponentSlot.create;
var mkComponent = Unsafe_Coerce.unsafeCoerce;
var parentComponent = function (dictOrd) {
return function (spec) {
return mkComponent({
initialState: spec.initialState,
render: spec.render,
"eval": spec["eval"],
receiver: spec.receiver,
initializer: Data_Maybe.Nothing.value,
finalizer: Data_Maybe.Nothing.value,
mkOrdBox: Halogen_Data_OrdBox.mkOrdBox(dictOrd)
});
};
};
var lifecycleComponent = function (dictBifunctor) {
return function (spec) {
return mkComponent({
initialState: spec.initialState,
render: spec.render,
"eval": spec["eval"],
receiver: spec.receiver,
initializer: spec.initializer,
finalizer: spec.finalizer,
mkOrdBox: Halogen_Data_OrdBox.mkOrdBox(Data_Ord.ordVoid)
});
};
};
var component = function (dictBifunctor) {
return function (spec) {
return lifecycleComponent(dictBifunctor)({
initialState: spec.initialState,
render: spec.render,
"eval": spec["eval"],
receiver: spec.receiver,
initializer: Data_Maybe.Nothing.value,
finalizer: Data_Maybe.Nothing.value
});
};
};
exports["mkComponent"] = mkComponent;
exports["unComponent"] = unComponent;
exports["component"] = component;
exports["lifecycleComponent"] = lifecycleComponent;
exports["parentComponent"] = parentComponent;
exports["mkComponentSlot"] = mkComponentSlot;
exports["unComponentSlot"] = unComponentSlot;
})(PS["Halogen.Component"] = PS["Halogen.Component"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var DOM_HTML_Indexed = PS["DOM.HTML.Indexed"];
var DOM_HTML_Indexed_ButtonType = PS["DOM.HTML.Indexed.ButtonType"];
var DOM_HTML_Indexed_FormMethod = PS["DOM.HTML.Indexed.FormMethod"];
var DOM_HTML_Indexed_InputType = PS["DOM.HTML.Indexed.InputType"];
var DOM_HTML_Indexed_MenuType = PS["DOM.HTML.Indexed.MenuType"];
var DOM_HTML_Indexed_MenuitemType = PS["DOM.HTML.Indexed.MenuitemType"];
var DOM_HTML_Indexed_OnOff = PS["DOM.HTML.Indexed.OnOff"];
var DOM_HTML_Indexed_OrderedListType = PS["DOM.HTML.Indexed.OrderedListType"];
var DOM_HTML_Indexed_PreloadValue = PS["DOM.HTML.Indexed.PreloadValue"];
var DOM_HTML_Indexed_StepValue = PS["DOM.HTML.Indexed.StepValue"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Maybe = PS["Data.Maybe"];
var Data_MediaType = PS["Data.MediaType"];
var Data_Newtype = PS["Data.Newtype"];
var Data_String = PS["Data.String"];
var Data_String_Common = PS["Data.String.Common"];
var Data_Unit = PS["Data.Unit"];
var Halogen_HTML_Core = PS["Halogen.HTML.Core"];
var Halogen_Query_InputF = PS["Halogen.Query.InputF"];
var Halogen_VDom_DOM_Prop = PS["Halogen.VDom.DOM.Prop"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var Web_DOM_Element = PS["Web.DOM.Element"];
var prop = function (dictIsProp) {
return Halogen_HTML_Core.prop(dictIsProp);
};
var required = prop(Halogen_HTML_Core.booleanIsProp)("required");
var rows = prop(Halogen_HTML_Core.intIsProp)("rows");
var target = prop(Halogen_HTML_Core.stringIsProp)("target");
var title = prop(Halogen_HTML_Core.stringIsProp)("title");
var type_ = function (dictIsProp) {
return prop(dictIsProp)("type");
};
var value = prop(Halogen_HTML_Core.stringIsProp)("value");
var name = prop(Halogen_HTML_Core.stringIsProp)("name");
var id_ = prop(Halogen_HTML_Core.stringIsProp)("id");
var href = prop(Halogen_HTML_Core.stringIsProp)("href");
var $$for = prop(Halogen_HTML_Core.stringIsProp)("htmlFor");
var class_ = function ($13) {
return prop(Halogen_HTML_Core.stringIsProp)("className")(Data_Newtype.unwrap(Halogen_HTML_Core.newtypeClassName)($13));
};
var checked = prop(Halogen_HTML_Core.booleanIsProp)("checked");
var autocomplete = function ($14) {
return prop(Halogen_HTML_Core.onOffIsProp)("autocomplete")((function (b) {
if (b) {
return DOM_HTML_Indexed_OnOff.On.value;
};
return DOM_HTML_Indexed_OnOff.Off.value;
})($14));
};
var attr = Halogen_HTML_Core.attr(Data_Maybe.Nothing.value);
exports["prop"] = prop;
exports["attr"] = attr;
exports["class_"] = class_;
exports["rows"] = rows;
exports["for"] = $$for;
exports["href"] = href;
exports["id_"] = id_;
exports["name"] = name;
exports["target"] = target;
exports["title"] = title;
exports["type_"] = type_;
exports["value"] = value;
exports["required"] = required;
exports["checked"] = checked;
exports["autocomplete"] = autocomplete;
})(PS["Halogen.HTML.Properties"] = PS["Halogen.HTML.Properties"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var DOM_HTML_Indexed = PS["DOM.HTML.Indexed"];
var Data_Function = PS["Data.Function"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Tuple = PS["Data.Tuple"];
var Halogen_HTML_Core = PS["Halogen.HTML.Core"];
var Halogen_HTML_Properties = PS["Halogen.HTML.Properties"];
var Halogen_Query_InputF = PS["Halogen.Query.InputF"];
var Halogen_VDom = PS["Halogen.VDom"];
var Halogen_VDom_Types = PS["Halogen.VDom.Types"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var element = Halogen_HTML_Core.element(Data_Maybe.Nothing.value);
var form = element("form");
var input = function (props) {
return element("input")(props)([ ]);
};
var label = element("label");
var p = element("p");
var span = element("span");
var table = element("table");
var table_ = table([ ]);
var tbody = element("tbody");
var tbody_ = tbody([ ]);
var td = element("td");
var td_ = td([ ]);
var textarea = function (es) {
return element("textarea")(es)([ ]);
};
var tr = element("tr");
var tr_ = tr([ ]);
var div = element("div");
var div_ = div([ ]);
var button = element("button");
var br = function (props) {
return element("br")(props)([ ]);
};
var br_ = br([ ]);
var a = element("a");
exports["element"] = element;
exports["a"] = a;
exports["br"] = br;
exports["br_"] = br_;
exports["button"] = button;
exports["div"] = div;
exports["div_"] = div_;
exports["form"] = form;
exports["input"] = input;
exports["label"] = label;
exports["p"] = p;
exports["span"] = span;
exports["table"] = table;
exports["table_"] = table_;
exports["tbody"] = tbody;
exports["tbody_"] = tbody_;
exports["td"] = td;
exports["td_"] = td_;
exports["textarea"] = textarea;
exports["tr"] = tr;
exports["tr_"] = tr_;
})(PS["Halogen.HTML.Elements"] = PS["Halogen.HTML.Elements"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Halogen_Component = PS["Halogen.Component"];
var Halogen_Component_ChildPath = PS["Halogen.Component.ChildPath"];
var Halogen_HTML_Core = PS["Halogen.HTML.Core"];
var Halogen_HTML_Elements = PS["Halogen.HTML.Elements"];
var Halogen_HTML_Properties = PS["Halogen.HTML.Properties"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var slot = function (p) {
return function (component) {
return function (input) {
return function (outputQuery) {
var f = Halogen_Component.unComponent(function (v) {
return v.receiver;
})(component);
return Halogen_HTML_Core.slot(Halogen_Component.mkComponentSlot(p)(component)(input)(f)(outputQuery)(Data_Maybe.Just.create));
};
};
};
};
exports["slot"] = slot;
})(PS["Halogen.HTML"] = PS["Halogen.HTML"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Apply = PS["Control.Apply"];
var Control_Category = PS["Control.Category"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_FoldableWithIndex = PS["Data.FoldableWithIndex"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_FunctorWithIndex = PS["Data.FunctorWithIndex"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_List = PS["Data.List"];
var Data_List_Lazy = PS["Data.List.Lazy"];
var Data_List_Lazy_Types = PS["Data.List.Lazy.Types"];
var Data_List_Types = PS["Data.List.Types"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Show = PS["Data.Show"];
var Data_Traversable = PS["Data.Traversable"];
var Data_TraversableWithIndex = PS["Data.TraversableWithIndex"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unfoldable = PS["Data.Unfoldable"];
var Partial_Unsafe = PS["Partial.Unsafe"];
var Prelude = PS["Prelude"];
var Leaf = (function () {
function Leaf() {
};
Leaf.value = new Leaf();
return Leaf;
})();
var Two = (function () {
function Two(value0, value1, value2, value3) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
this.value3 = value3;
};
Two.create = function (value0) {
return function (value1) {
return function (value2) {
return function (value3) {
return new Two(value0, value1, value2, value3);
};
};
};
};
return Two;
})();
var Three = (function () {
function Three(value0, value1, value2, value3, value4, value5, value6) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
this.value3 = value3;
this.value4 = value4;
this.value5 = value5;
this.value6 = value6;
};
Three.create = function (value0) {
return function (value1) {
return function (value2) {
return function (value3) {
return function (value4) {
return function (value5) {
return function (value6) {
return new Three(value0, value1, value2, value3, value4, value5, value6);
};
};
};
};
};
};
};
return Three;
})();
var TwoLeft = (function () {
function TwoLeft(value0, value1, value2) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
};
TwoLeft.create = function (value0) {
return function (value1) {
return function (value2) {
return new TwoLeft(value0, value1, value2);
};
};
};
return TwoLeft;
})();
var TwoRight = (function () {
function TwoRight(value0, value1, value2) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
};
TwoRight.create = function (value0) {
return function (value1) {
return function (value2) {
return new TwoRight(value0, value1, value2);
};
};
};
return TwoRight;
})();
var ThreeLeft = (function () {
function ThreeLeft(value0, value1, value2, value3, value4, value5) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
this.value3 = value3;
this.value4 = value4;
this.value5 = value5;
};
ThreeLeft.create = function (value0) {
return function (value1) {
return function (value2) {
return function (value3) {
return function (value4) {
return function (value5) {
return new ThreeLeft(value0, value1, value2, value3, value4, value5);
};
};
};
};
};
};
return ThreeLeft;
})();
var ThreeMiddle = (function () {
function ThreeMiddle(value0, value1, value2, value3, value4, value5) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
this.value3 = value3;
this.value4 = value4;
this.value5 = value5;
};
ThreeMiddle.create = function (value0) {
return function (value1) {
return function (value2) {
return function (value3) {
return function (value4) {
return function (value5) {
return new ThreeMiddle(value0, value1, value2, value3, value4, value5);
};
};
};
};
};
};
return ThreeMiddle;
})();
var ThreeRight = (function () {
function ThreeRight(value0, value1, value2, value3, value4, value5) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
this.value3 = value3;
this.value4 = value4;
this.value5 = value5;
};
ThreeRight.create = function (value0) {
return function (value1) {
return function (value2) {
return function (value3) {
return function (value4) {
return function (value5) {
return new ThreeRight(value0, value1, value2, value3, value4, value5);
};
};
};
};
};
};
return ThreeRight;
})();
var KickUp = (function () {
function KickUp(value0, value1, value2, value3) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
this.value3 = value3;
};
KickUp.create = function (value0) {
return function (value1) {
return function (value2) {
return function (value3) {
return new KickUp(value0, value1, value2, value3);
};
};
};
};
return KickUp;
})();
var values = function (v) {
if (v instanceof Leaf) {
return Data_List_Types.Nil.value;
};
if (v instanceof Two) {
return Data_Semigroup.append(Data_List_Types.semigroupList)(values(v.value0))(Data_Semigroup.append(Data_List_Types.semigroupList)(Control_Applicative.pure(Data_List_Types.applicativeList)(v.value2))(values(v.value3)));
};
if (v instanceof Three) {
return Data_Semigroup.append(Data_List_Types.semigroupList)(values(v.value0))(Data_Semigroup.append(Data_List_Types.semigroupList)(Control_Applicative.pure(Data_List_Types.applicativeList)(v.value2))(Data_Semigroup.append(Data_List_Types.semigroupList)(values(v.value3))(Data_Semigroup.append(Data_List_Types.semigroupList)(Control_Applicative.pure(Data_List_Types.applicativeList)(v.value5))(values(v.value6)))));
};
throw new Error("Failed pattern match at Data.Map.Internal line 594, column 1 - line 594, column 40: " + [ v.constructor.name ]);
};
var lookup = function (dictOrd) {
return function (k) {
var comp = Data_Ord.compare(dictOrd);
var go = function ($copy_v) {
var $tco_done = false;
var $tco_result;
function $tco_loop(v) {
if (v instanceof Leaf) {
$tco_done = true;
return Data_Maybe.Nothing.value;
};
if (v instanceof Two) {
var v2 = comp(k)(v.value1);
if (v2 instanceof Data_Ordering.EQ) {
$tco_done = true;
return new Data_Maybe.Just(v.value2);
};
if (v2 instanceof Data_Ordering.LT) {
$copy_v = v.value0;
return;
};
$copy_v = v.value3;
return;
};
if (v instanceof Three) {
var v3 = comp(k)(v.value1);
if (v3 instanceof Data_Ordering.EQ) {
$tco_done = true;
return new Data_Maybe.Just(v.value2);
};
var v4 = comp(k)(v.value4);
if (v4 instanceof Data_Ordering.EQ) {
$tco_done = true;
return new Data_Maybe.Just(v.value5);
};
if (v3 instanceof Data_Ordering.LT) {
$copy_v = v.value0;
return;
};
if (v4 instanceof Data_Ordering.GT) {
$copy_v = v.value6;
return;
};
$copy_v = v.value3;
return;
};
throw new Error("Failed pattern match at Data.Map.Internal line 193, column 5 - line 193, column 22: " + [ v.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($copy_v);
};
return $tco_result;
};
return go;
};
};
var member = function (dictOrd) {
return function (k) {
return function (m) {
return Data_Maybe.isJust(lookup(dictOrd)(k)(m));
};
};
};
var keys = function (v) {
if (v instanceof Leaf) {
return Data_List_Types.Nil.value;
};
if (v instanceof Two) {
return Data_Semigroup.append(Data_List_Types.semigroupList)(keys(v.value0))(Data_Semigroup.append(Data_List_Types.semigroupList)(Control_Applicative.pure(Data_List_Types.applicativeList)(v.value1))(keys(v.value3)));
};
if (v instanceof Three) {
return Data_Semigroup.append(Data_List_Types.semigroupList)(keys(v.value0))(Data_Semigroup.append(Data_List_Types.semigroupList)(Control_Applicative.pure(Data_List_Types.applicativeList)(v.value1))(Data_Semigroup.append(Data_List_Types.semigroupList)(keys(v.value3))(Data_Semigroup.append(Data_List_Types.semigroupList)(Control_Applicative.pure(Data_List_Types.applicativeList)(v.value4))(keys(v.value6)))));
};
throw new Error("Failed pattern match at Data.Map.Internal line 588, column 1 - line 588, column 38: " + [ v.constructor.name ]);
};
var functorMap = new Data_Functor.Functor(function (v) {
return function (v1) {
if (v1 instanceof Leaf) {
return Leaf.value;
};
if (v1 instanceof Two) {
return new Two(Data_Functor.map(functorMap)(v)(v1.value0), v1.value1, v(v1.value2), Data_Functor.map(functorMap)(v)(v1.value3));
};
if (v1 instanceof Three) {
return new Three(Data_Functor.map(functorMap)(v)(v1.value0), v1.value1, v(v1.value2), Data_Functor.map(functorMap)(v)(v1.value3), v1.value4, v(v1.value5), Data_Functor.map(functorMap)(v)(v1.value6));
};
throw new Error("Failed pattern match at Data.Map.Internal line 89, column 1 - line 89, column 39: " + [ v.constructor.name, v1.constructor.name ]);
};
});
var fromZipper = function ($copy_dictOrd) {
return function ($copy_v) {
return function ($copy_tree) {
var $tco_var_dictOrd = $copy_dictOrd;
var $tco_var_v = $copy_v;
var $tco_done = false;
var $tco_result;
function $tco_loop(dictOrd, v, tree) {
if (v instanceof Data_List_Types.Nil) {
$tco_done = true;
return tree;
};
if (v instanceof Data_List_Types.Cons) {
if (v.value0 instanceof TwoLeft) {
$tco_var_dictOrd = dictOrd;
$tco_var_v = v.value1;
$copy_tree = new Two(tree, v.value0.value0, v.value0.value1, v.value0.value2);
return;
};
if (v.value0 instanceof TwoRight) {
$tco_var_dictOrd = dictOrd;
$tco_var_v = v.value1;
$copy_tree = new Two(v.value0.value0, v.value0.value1, v.value0.value2, tree);
return;
};
if (v.value0 instanceof ThreeLeft) {
$tco_var_dictOrd = dictOrd;
$tco_var_v = v.value1;
$copy_tree = new Three(tree, v.value0.value0, v.value0.value1, v.value0.value2, v.value0.value3, v.value0.value4, v.value0.value5);
return;
};
if (v.value0 instanceof ThreeMiddle) {
$tco_var_dictOrd = dictOrd;
$tco_var_v = v.value1;
$copy_tree = new Three(v.value0.value0, v.value0.value1, v.value0.value2, tree, v.value0.value3, v.value0.value4, v.value0.value5);
return;
};
if (v.value0 instanceof ThreeRight) {
$tco_var_dictOrd = dictOrd;
$tco_var_v = v.value1;
$copy_tree = new Three(v.value0.value0, v.value0.value1, v.value0.value2, v.value0.value3, v.value0.value4, v.value0.value5, tree);
return;
};
throw new Error("Failed pattern match at Data.Map.Internal line 411, column 3 - line 416, column 88: " + [ v.value0.constructor.name ]);
};
throw new Error("Failed pattern match at Data.Map.Internal line 408, column 1 - line 408, column 80: " + [ v.constructor.name, tree.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($tco_var_dictOrd, $tco_var_v, $copy_tree);
};
return $tco_result;
};
};
};
var insert = function (dictOrd) {
return function (k) {
return function (v) {
var up = function ($copy_v1) {
return function ($copy_v2) {
var $tco_var_v1 = $copy_v1;
var $tco_done = false;
var $tco_result;
function $tco_loop(v1, v2) {
if (v1 instanceof Data_List_Types.Nil) {
$tco_done = true;
return new Two(v2.value0, v2.value1, v2.value2, v2.value3);
};
if (v1 instanceof Data_List_Types.Cons) {
if (v1.value0 instanceof TwoLeft) {
$tco_done = true;
return fromZipper(dictOrd)(v1.value1)(new Three(v2.value0, v2.value1, v2.value2, v2.value3, v1.value0.value0, v1.value0.value1, v1.value0.value2));
};
if (v1.value0 instanceof TwoRight) {
$tco_done = true;
return fromZipper(dictOrd)(v1.value1)(new Three(v1.value0.value0, v1.value0.value1, v1.value0.value2, v2.value0, v2.value1, v2.value2, v2.value3));
};
if (v1.value0 instanceof ThreeLeft) {
$tco_var_v1 = v1.value1;
$copy_v2 = new KickUp(new Two(v2.value0, v2.value1, v2.value2, v2.value3), v1.value0.value0, v1.value0.value1, new Two(v1.value0.value2, v1.value0.value3, v1.value0.value4, v1.value0.value5));
return;
};
if (v1.value0 instanceof ThreeMiddle) {
$tco_var_v1 = v1.value1;
$copy_v2 = new KickUp(new Two(v1.value0.value0, v1.value0.value1, v1.value0.value2, v2.value0), v2.value1, v2.value2, new Two(v2.value3, v1.value0.value3, v1.value0.value4, v1.value0.value5));
return;
};
if (v1.value0 instanceof ThreeRight) {
$tco_var_v1 = v1.value1;
$copy_v2 = new KickUp(new Two(v1.value0.value0, v1.value0.value1, v1.value0.value2, v1.value0.value3), v1.value0.value4, v1.value0.value5, new Two(v2.value0, v2.value1, v2.value2, v2.value3));
return;
};
throw new Error("Failed pattern match at Data.Map.Internal line 447, column 5 - line 452, column 108: " + [ v1.value0.constructor.name, v2.constructor.name ]);
};
throw new Error("Failed pattern match at Data.Map.Internal line 444, column 3 - line 444, column 56: " + [ v1.constructor.name, v2.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($tco_var_v1, $copy_v2);
};
return $tco_result;
};
};
var comp = Data_Ord.compare(dictOrd);
var down = function ($copy_ctx) {
return function ($copy_v1) {
var $tco_var_ctx = $copy_ctx;
var $tco_done = false;
var $tco_result;
function $tco_loop(ctx, v1) {
if (v1 instanceof Leaf) {
$tco_done = true;
return up(ctx)(new KickUp(Leaf.value, k, v, Leaf.value));
};
if (v1 instanceof Two) {
var v2 = comp(k)(v1.value1);
if (v2 instanceof Data_Ordering.EQ) {
$tco_done = true;
return fromZipper(dictOrd)(ctx)(new Two(v1.value0, k, v, v1.value3));
};
if (v2 instanceof Data_Ordering.LT) {
$tco_var_ctx = new Data_List_Types.Cons(new TwoLeft(v1.value1, v1.value2, v1.value3), ctx);
$copy_v1 = v1.value0;
return;
};
$tco_var_ctx = new Data_List_Types.Cons(new TwoRight(v1.value0, v1.value1, v1.value2), ctx);
$copy_v1 = v1.value3;
return;
};
if (v1 instanceof Three) {
var v3 = comp(k)(v1.value1);
if (v3 instanceof Data_Ordering.EQ) {
$tco_done = true;
return fromZipper(dictOrd)(ctx)(new Three(v1.value0, k, v, v1.value3, v1.value4, v1.value5, v1.value6));
};
var v4 = comp(k)(v1.value4);
if (v4 instanceof Data_Ordering.EQ) {
$tco_done = true;
return fromZipper(dictOrd)(ctx)(new Three(v1.value0, v1.value1, v1.value2, v1.value3, k, v, v1.value6));
};
if (v3 instanceof Data_Ordering.LT) {
$tco_var_ctx = new Data_List_Types.Cons(new ThreeLeft(v1.value1, v1.value2, v1.value3, v1.value4, v1.value5, v1.value6), ctx);
$copy_v1 = v1.value0;
return;
};
if (v3 instanceof Data_Ordering.GT && v4 instanceof Data_Ordering.LT) {
$tco_var_ctx = new Data_List_Types.Cons(new ThreeMiddle(v1.value0, v1.value1, v1.value2, v1.value4, v1.value5, v1.value6), ctx);
$copy_v1 = v1.value3;
return;
};
$tco_var_ctx = new Data_List_Types.Cons(new ThreeRight(v1.value0, v1.value1, v1.value2, v1.value3, v1.value4, v1.value5), ctx);
$copy_v1 = v1.value6;
return;
};
throw new Error("Failed pattern match at Data.Map.Internal line 427, column 3 - line 427, column 55: " + [ ctx.constructor.name, v1.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($tco_var_ctx, $copy_v1);
};
return $tco_result;
};
};
return down(Data_List_Types.Nil.value);
};
};
};
var pop = function (dictOrd) {
return function (k) {
var up = function (ctxs) {
return function (tree) {
if (ctxs instanceof Data_List_Types.Nil) {
return tree;
};
if (ctxs instanceof Data_List_Types.Cons) {
var $__unused = function (dictPartial1) {
return function ($dollar55) {
return $dollar55;
};
};
return $__unused()((function () {
if (ctxs.value0 instanceof TwoLeft && (ctxs.value0.value2 instanceof Leaf && tree instanceof Leaf)) {
return fromZipper(dictOrd)(ctxs.value1)(new Two(Leaf.value, ctxs.value0.value0, ctxs.value0.value1, Leaf.value));
};
if (ctxs.value0 instanceof TwoRight && (ctxs.value0.value0 instanceof Leaf && tree instanceof Leaf)) {
return fromZipper(dictOrd)(ctxs.value1)(new Two(Leaf.value, ctxs.value0.value1, ctxs.value0.value2, Leaf.value));
};
if (ctxs.value0 instanceof TwoLeft && ctxs.value0.value2 instanceof Two) {
return up(ctxs.value1)(new Three(tree, ctxs.value0.value0, ctxs.value0.value1, ctxs.value0.value2.value0, ctxs.value0.value2.value1, ctxs.value0.value2.value2, ctxs.value0.value2.value3));
};
if (ctxs.value0 instanceof TwoRight && ctxs.value0.value0 instanceof Two) {
return up(ctxs.value1)(new Three(ctxs.value0.value0.value0, ctxs.value0.value0.value1, ctxs.value0.value0.value2, ctxs.value0.value0.value3, ctxs.value0.value1, ctxs.value0.value2, tree));
};
if (ctxs.value0 instanceof TwoLeft && ctxs.value0.value2 instanceof Three) {
return fromZipper(dictOrd)(ctxs.value1)(new Two(new Two(tree, ctxs.value0.value0, ctxs.value0.value1, ctxs.value0.value2.value0), ctxs.value0.value2.value1, ctxs.value0.value2.value2, new Two(ctxs.value0.value2.value3, ctxs.value0.value2.value4, ctxs.value0.value2.value5, ctxs.value0.value2.value6)));
};
if (ctxs.value0 instanceof TwoRight && ctxs.value0.value0 instanceof Three) {
return fromZipper(dictOrd)(ctxs.value1)(new Two(new Two(ctxs.value0.value0.value0, ctxs.value0.value0.value1, ctxs.value0.value0.value2, ctxs.value0.value0.value3), ctxs.value0.value0.value4, ctxs.value0.value0.value5, new Two(ctxs.value0.value0.value6, ctxs.value0.value1, ctxs.value0.value2, tree)));
};
if (ctxs.value0 instanceof ThreeLeft && (ctxs.value0.value2 instanceof Leaf && (ctxs.value0.value5 instanceof Leaf && tree instanceof Leaf))) {
return fromZipper(dictOrd)(ctxs.value1)(new Three(Leaf.value, ctxs.value0.value0, ctxs.value0.value1, Leaf.value, ctxs.value0.value3, ctxs.value0.value4, Leaf.value));
};
if (ctxs.value0 instanceof ThreeMiddle && (ctxs.value0.value0 instanceof Leaf && (ctxs.value0.value5 instanceof Leaf && tree instanceof Leaf))) {
return fromZipper(dictOrd)(ctxs.value1)(new Three(Leaf.value, ctxs.value0.value1, ctxs.value0.value2, Leaf.value, ctxs.value0.value3, ctxs.value0.value4, Leaf.value));
};
if (ctxs.value0 instanceof ThreeRight && (ctxs.value0.value0 instanceof Leaf && (ctxs.value0.value3 instanceof Leaf && tree instanceof Leaf))) {
return fromZipper(dictOrd)(ctxs.value1)(new Three(Leaf.value, ctxs.value0.value1, ctxs.value0.value2, Leaf.value, ctxs.value0.value4, ctxs.value0.value5, Leaf.value));
};
if (ctxs.value0 instanceof ThreeLeft && ctxs.value0.value2 instanceof Two) {
return fromZipper(dictOrd)(ctxs.value1)(new Two(new Three(tree, ctxs.value0.value0, ctxs.value0.value1, ctxs.value0.value2.value0, ctxs.value0.value2.value1, ctxs.value0.value2.value2, ctxs.value0.value2.value3), ctxs.value0.value3, ctxs.value0.value4, ctxs.value0.value5));
};
if (ctxs.value0 instanceof ThreeMiddle && ctxs.value0.value0 instanceof Two) {
return fromZipper(dictOrd)(ctxs.value1)(new Two(new Three(ctxs.value0.value0.value0, ctxs.value0.value0.value1, ctxs.value0.value0.value2, ctxs.value0.value0.value3, ctxs.value0.value1, ctxs.value0.value2, tree), ctxs.value0.value3, ctxs.value0.value4, ctxs.value0.value5));
};
if (ctxs.value0 instanceof ThreeMiddle && ctxs.value0.value5 instanceof Two) {
return fromZipper(dictOrd)(ctxs.value1)(new Two(ctxs.value0.value0, ctxs.value0.value1, ctxs.value0.value2, new Three(tree, ctxs.value0.value3, ctxs.value0.value4, ctxs.value0.value5.value0, ctxs.value0.value5.value1, ctxs.value0.value5.value2, ctxs.value0.value5.value3)));
};
if (ctxs.value0 instanceof ThreeRight && ctxs.value0.value3 instanceof Two) {
return fromZipper(dictOrd)(ctxs.value1)(new Two(ctxs.value0.value0, ctxs.value0.value1, ctxs.value0.value2, new Three(ctxs.value0.value3.value0, ctxs.value0.value3.value1, ctxs.value0.value3.value2, ctxs.value0.value3.value3, ctxs.value0.value4, ctxs.value0.value5, tree)));
};
if (ctxs.value0 instanceof ThreeLeft && ctxs.value0.value2 instanceof Three) {
return fromZipper(dictOrd)(ctxs.value1)(new Three(new Two(tree, ctxs.value0.value0, ctxs.value0.value1, ctxs.value0.value2.value0), ctxs.value0.value2.value1, ctxs.value0.value2.value2, new Two(ctxs.value0.value2.value3, ctxs.value0.value2.value4, ctxs.value0.value2.value5, ctxs.value0.value2.value6), ctxs.value0.value3, ctxs.value0.value4, ctxs.value0.value5));
};
if (ctxs.value0 instanceof ThreeMiddle && ctxs.value0.value0 instanceof Three) {
return fromZipper(dictOrd)(ctxs.value1)(new Three(new Two(ctxs.value0.value0.value0, ctxs.value0.value0.value1, ctxs.value0.value0.value2, ctxs.value0.value0.value3), ctxs.value0.value0.value4, ctxs.value0.value0.value5, new Two(ctxs.value0.value0.value6, ctxs.value0.value1, ctxs.value0.value2, tree), ctxs.value0.value3, ctxs.value0.value4, ctxs.value0.value5));
};
if (ctxs.value0 instanceof ThreeMiddle && ctxs.value0.value5 instanceof Three) {
return fromZipper(dictOrd)(ctxs.value1)(new Three(ctxs.value0.value0, ctxs.value0.value1, ctxs.value0.value2, new Two(tree, ctxs.value0.value3, ctxs.value0.value4, ctxs.value0.value5.value0), ctxs.value0.value5.value1, ctxs.value0.value5.value2, new Two(ctxs.value0.value5.value3, ctxs.value0.value5.value4, ctxs.value0.value5.value5, ctxs.value0.value5.value6)));
};
if (ctxs.value0 instanceof ThreeRight && ctxs.value0.value3 instanceof Three) {
return fromZipper(dictOrd)(ctxs.value1)(new Three(ctxs.value0.value0, ctxs.value0.value1, ctxs.value0.value2, new Two(ctxs.value0.value3.value0, ctxs.value0.value3.value1, ctxs.value0.value3.value2, ctxs.value0.value3.value3), ctxs.value0.value3.value4, ctxs.value0.value3.value5, new Two(ctxs.value0.value3.value6, ctxs.value0.value4, ctxs.value0.value5, tree)));
};
throw new Error("Failed pattern match at Data.Map.Internal line 497, column 9 - line 514, column 136: " + [ ctxs.value0.constructor.name, tree.constructor.name ]);
})());
};
throw new Error("Failed pattern match at Data.Map.Internal line 494, column 5 - line 514, column 136: " + [ ctxs.constructor.name ]);
};
};
var removeMaxNode = function (ctx) {
return function (m) {
var $__unused = function (dictPartial1) {
return function ($dollar57) {
return $dollar57;
};
};
return $__unused()((function () {
if (m instanceof Two && (m.value0 instanceof Leaf && m.value3 instanceof Leaf)) {
return up(ctx)(Leaf.value);
};
if (m instanceof Two) {
return removeMaxNode(new Data_List_Types.Cons(new TwoRight(m.value0, m.value1, m.value2), ctx))(m.value3);
};
if (m instanceof Three && (m.value0 instanceof Leaf && (m.value3 instanceof Leaf && m.value6 instanceof Leaf))) {
return up(new Data_List_Types.Cons(new TwoRight(Leaf.value, m.value1, m.value2), ctx))(Leaf.value);
};
if (m instanceof Three) {
return removeMaxNode(new Data_List_Types.Cons(new ThreeRight(m.value0, m.value1, m.value2, m.value3, m.value4, m.value5), ctx))(m.value6);
};
throw new Error("Failed pattern match at Data.Map.Internal line 526, column 5 - line 530, column 107: " + [ m.constructor.name ]);
})());
};
};
var maxNode = function (m) {
var $__unused = function (dictPartial1) {
return function ($dollar59) {
return $dollar59;
};
};
return $__unused()((function () {
if (m instanceof Two && m.value3 instanceof Leaf) {
return {
key: m.value1,
value: m.value2
};
};
if (m instanceof Two) {
return maxNode(m.value3);
};
if (m instanceof Three && m.value6 instanceof Leaf) {
return {
key: m.value4,
value: m.value5
};
};
if (m instanceof Three) {
return maxNode(m.value6);
};
throw new Error("Failed pattern match at Data.Map.Internal line 517, column 33 - line 521, column 45: " + [ m.constructor.name ]);
})());
};
var comp = Data_Ord.compare(dictOrd);
var down = function ($copy_ctx) {
return function ($copy_m) {
var $tco_var_ctx = $copy_ctx;
var $tco_done = false;
var $tco_result;
function $tco_loop(ctx, m) {
if (m instanceof Leaf) {
$tco_done = true;
return Data_Maybe.Nothing.value;
};
if (m instanceof Two) {
var v = comp(k)(m.value1);
if (m.value3 instanceof Leaf && v instanceof Data_Ordering.EQ) {
$tco_done = true;
return new Data_Maybe.Just(new Data_Tuple.Tuple(m.value2, up(ctx)(Leaf.value)));
};
if (v instanceof Data_Ordering.EQ) {
var max = maxNode(m.value0);
$tco_done = true;
return new Data_Maybe.Just(new Data_Tuple.Tuple(m.value2, removeMaxNode(new Data_List_Types.Cons(new TwoLeft(max.key, max.value, m.value3), ctx))(m.value0)));
};
if (v instanceof Data_Ordering.LT) {
$tco_var_ctx = new Data_List_Types.Cons(new TwoLeft(m.value1, m.value2, m.value3), ctx);
$copy_m = m.value0;
return;
};
$tco_var_ctx = new Data_List_Types.Cons(new TwoRight(m.value0, m.value1, m.value2), ctx);
$copy_m = m.value3;
return;
};
if (m instanceof Three) {
var leaves = (function () {
if (m.value0 instanceof Leaf && (m.value3 instanceof Leaf && m.value6 instanceof Leaf)) {
return true;
};
return false;
})();
var v = comp(k)(m.value4);
var v3 = comp(k)(m.value1);
if (leaves && v3 instanceof Data_Ordering.EQ) {
$tco_done = true;
return new Data_Maybe.Just(new Data_Tuple.Tuple(m.value2, fromZipper(dictOrd)(ctx)(new Two(Leaf.value, m.value4, m.value5, Leaf.value))));
};
if (leaves && v instanceof Data_Ordering.EQ) {
$tco_done = true;
return new Data_Maybe.Just(new Data_Tuple.Tuple(m.value5, fromZipper(dictOrd)(ctx)(new Two(Leaf.value, m.value1, m.value2, Leaf.value))));
};
if (v3 instanceof Data_Ordering.EQ) {
var max = maxNode(m.value0);
$tco_done = true;
return new Data_Maybe.Just(new Data_Tuple.Tuple(m.value2, removeMaxNode(new Data_List_Types.Cons(new ThreeLeft(max.key, max.value, m.value3, m.value4, m.value5, m.value6), ctx))(m.value0)));
};
if (v instanceof Data_Ordering.EQ) {
var max = maxNode(m.value3);
$tco_done = true;
return new Data_Maybe.Just(new Data_Tuple.Tuple(m.value5, removeMaxNode(new Data_List_Types.Cons(new ThreeMiddle(m.value0, m.value1, m.value2, max.key, max.value, m.value6), ctx))(m.value3)));
};
if (v3 instanceof Data_Ordering.LT) {
$tco_var_ctx = new Data_List_Types.Cons(new ThreeLeft(m.value1, m.value2, m.value3, m.value4, m.value5, m.value6), ctx);
$copy_m = m.value0;
return;
};
if (v3 instanceof Data_Ordering.GT && v instanceof Data_Ordering.LT) {
$tco_var_ctx = new Data_List_Types.Cons(new ThreeMiddle(m.value0, m.value1, m.value2, m.value4, m.value5, m.value6), ctx);
$copy_m = m.value3;
return;
};
$tco_var_ctx = new Data_List_Types.Cons(new ThreeRight(m.value0, m.value1, m.value2, m.value3, m.value4, m.value5), ctx);
$copy_m = m.value6;
return;
};
throw new Error("Failed pattern match at Data.Map.Internal line 467, column 34 - line 490, column 80: " + [ m.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($tco_var_ctx, $copy_m);
};
return $tco_result;
};
};
return down(Data_List_Types.Nil.value);
};
};
var foldableMap = new Data_Foldable.Foldable(function (dictMonoid) {
return function (f) {
return function (m) {
return Data_Foldable.foldMap(Data_List_Types.foldableList)(dictMonoid)(f)(values(m));
};
};
}, function (f) {
return function (z) {
return function (m) {
return Data_Foldable.foldl(Data_List_Types.foldableList)(f)(z)(values(m));
};
};
}, function (f) {
return function (z) {
return function (m) {
return Data_Foldable.foldr(Data_List_Types.foldableList)(f)(z)(values(m));
};
};
});
var empty = Leaf.value;
var $$delete = function (dictOrd) {
return function (k) {
return function (m) {
return Data_Maybe.maybe(m)(Data_Tuple.snd)(pop(dictOrd)(k)(m));
};
};
};
var alter = function (dictOrd) {
return function (f) {
return function (k) {
return function (m) {
var v = f(lookup(dictOrd)(k)(m));
if (v instanceof Data_Maybe.Nothing) {
return $$delete(dictOrd)(k)(m);
};
if (v instanceof Data_Maybe.Just) {
return insert(dictOrd)(k)(v.value0)(m);
};
throw new Error("Failed pattern match at Data.Map.Internal line 535, column 15 - line 537, column 25: " + [ v.constructor.name ]);
};
};
};
};
exports["empty"] = empty;
exports["insert"] = insert;
exports["lookup"] = lookup;
exports["delete"] = $$delete;
exports["pop"] = pop;
exports["member"] = member;
exports["alter"] = alter;
exports["keys"] = keys;
exports["values"] = values;
exports["functorMap"] = functorMap;
exports["foldableMap"] = foldableMap;
})(PS["Data.Map.Internal"] = PS["Data.Map.Internal"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"];
var Control_Monad_ST = PS["Control.Monad.ST"];
var Control_Monad_ST_Internal = PS["Control.Monad.ST.Internal"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Array = PS["Data.Array"];
var Data_Array_ST = PS["Data.Array.ST"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_List = PS["Data.List"];
var Data_List_Types = PS["Data.List.Types"];
var Data_Map_Internal = PS["Data.Map.Internal"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Ord = PS["Data.Ord"];
var Data_Ordering = PS["Data.Ordering"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Show = PS["Data.Show"];
var Data_Unfoldable = PS["Data.Unfoldable"];
var Data_Unit = PS["Data.Unit"];
var Partial_Unsafe = PS["Partial.Unsafe"];
var Prelude = PS["Prelude"];
var toList = function (v) {
return Data_Map_Internal.keys(v);
};
var foldableSet = new Data_Foldable.Foldable(function (dictMonoid) {
return function (f) {
return function ($59) {
return Data_Foldable.foldMap(Data_List_Types.foldableList)(dictMonoid)(f)(toList($59));
};
};
}, function (f) {
return function (x) {
return function ($60) {
return Data_Foldable.foldl(Data_List_Types.foldableList)(f)(x)(toList($60));
};
};
}, function (f) {
return function (x) {
return function ($61) {
return Data_Foldable.foldr(Data_List_Types.foldableList)(f)(x)(toList($61));
};
};
});
exports["foldableSet"] = foldableSet;
})(PS["Data.Set"] = PS["Data.Set"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Functor = PS["Data.Functor"];
var Data_Map_Internal = PS["Data.Map.Internal"];
var Data_Set = PS["Data.Set"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var keys = function ($0) {
return Data_Functor["void"](Data_Map_Internal.functorMap)($0);
};
exports["keys"] = keys;
})(PS["Data.Map"] = PS["Data.Map"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Control_Monad_State_Class = PS["Control.Monad.State.Class"];
var Control_Monad_Trans_Class = PS["Control.Monad.Trans.Class"];
var Control_Parallel = PS["Control.Parallel"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Functor = PS["Data.Functor"];
var Data_List = PS["Data.List"];
var Data_List_Types = PS["Data.List.Types"];
var Data_Map = PS["Data.Map"];
var Data_Map_Internal = PS["Data.Map.Internal"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unit = PS["Data.Unit"];
var Effect_Aff_Class = PS["Effect.Aff.Class"];
var Effect_Class = PS["Effect.Class"];
var Halogen_Component_ChildPath = PS["Halogen.Component.ChildPath"];
var Halogen_Query_EventSource = PS["Halogen.Query.EventSource"];
var Halogen_Query_HalogenM = PS["Halogen.Query.HalogenM"];
var Halogen_Query_InputF = PS["Halogen.Query.InputF"];
var Prelude = PS["Prelude"];
var Web_HTML_HTMLElement = PS["Web.HTML.HTMLElement"];
var action = function (act) {
return act(Data_Unit.unit);
};
exports["action"] = action;
})(PS["Halogen.Query"] = PS["Halogen.Query"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Web_Event_Event = PS["Web.Event.Event"];
var change = "change";
exports["change"] = change;
})(PS["Web.HTML.Event.EventTypes"] = PS["Web.HTML.Event.EventTypes"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Web_Event_Event = PS["Web.Event.Event"];
var click = "click";
exports["click"] = click;
})(PS["Web.UIEvent.MouseEvent.EventTypes"] = PS["Web.UIEvent.MouseEvent.EventTypes"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Bind = PS["Control.Bind"];
var Control_Monad_Except = PS["Control.Monad.Except"];
var Control_Monad_Except_Trans = PS["Control.Monad.Except.Trans"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Either = PS["Data.Either"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Identity = PS["Data.Identity"];
var Data_Maybe = PS["Data.Maybe"];
var Foreign = PS["Foreign"];
var Foreign_Index = PS["Foreign.Index"];
var Halogen_HTML_Core = PS["Halogen.HTML.Core"];
var Halogen_HTML_Properties = PS["Halogen.HTML.Properties"];
var Halogen_Query = PS["Halogen.Query"];
var Halogen_Query_InputF = PS["Halogen.Query.InputF"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var Web_Clipboard_ClipboardEvent = PS["Web.Clipboard.ClipboardEvent"];
var Web_Clipboard_ClipboardEvent_EventTypes = PS["Web.Clipboard.ClipboardEvent.EventTypes"];
var Web_Event_Event = PS["Web.Event.Event"];
var Web_HTML_Event_DragEvent = PS["Web.HTML.Event.DragEvent"];
var Web_HTML_Event_DragEvent_EventTypes = PS["Web.HTML.Event.DragEvent.EventTypes"];
var Web_HTML_Event_EventTypes = PS["Web.HTML.Event.EventTypes"];
var Web_TouchEvent_TouchEvent = PS["Web.TouchEvent.TouchEvent"];
var Web_UIEvent_FocusEvent = PS["Web.UIEvent.FocusEvent"];
var Web_UIEvent_FocusEvent_EventTypes = PS["Web.UIEvent.FocusEvent.EventTypes"];
var Web_UIEvent_KeyboardEvent = PS["Web.UIEvent.KeyboardEvent"];
var Web_UIEvent_KeyboardEvent_EventTypes = PS["Web.UIEvent.KeyboardEvent.EventTypes"];
var Web_UIEvent_MouseEvent = PS["Web.UIEvent.MouseEvent"];
var Web_UIEvent_MouseEvent_EventTypes = PS["Web.UIEvent.MouseEvent.EventTypes"];
var Web_UIEvent_WheelEvent = PS["Web.UIEvent.WheelEvent"];
var Web_UIEvent_WheelEvent_EventTypes = PS["Web.UIEvent.WheelEvent.EventTypes"];
var mouseHandler = Unsafe_Coerce.unsafeCoerce;
var input_ = function (f) {
return function (v) {
return Data_Maybe.Just.create(Halogen_Query.action(f));
};
};
var input = function (f) {
return function (x) {
return Data_Maybe.Just.create(Halogen_Query.action(f(x)));
};
};
var handler = function (et) {
return function ($1) {
return Halogen_HTML_Core.handler(et)(Data_Functor.map(Data_Functor.functorFn)(Data_Functor.map(Data_Maybe.functorMaybe)(Halogen_Query_InputF.Query.create))($1));
};
};
var onClick = function ($2) {
return handler(Web_UIEvent_MouseEvent_EventTypes.click)(mouseHandler($2));
};
var onSubmit = handler("submit");
var addForeignPropHandler = function (key) {
return function (prop) {
return function (reader) {
return function (f) {
var go = function (a) {
return Control_Bind.composeKleisliFlipped(Control_Monad_Except_Trans.bindExceptT(Data_Identity.monadIdentity))(reader)(Foreign_Index.readProp(prop))(Foreign.unsafeToForeign(a));
};
return handler(key)(Control_Bind.composeKleisli(Data_Maybe.bindMaybe)(Web_Event_Event.currentTarget)(function (e) {
return Data_Either.either(Data_Function["const"](Data_Maybe.Nothing.value))(f)(Control_Monad_Except.runExcept(go(e)));
}));
};
};
};
};
var onChecked = addForeignPropHandler(Web_HTML_Event_EventTypes.change)("checked")(Foreign.readBoolean);
var onValueChange = addForeignPropHandler(Web_HTML_Event_EventTypes.change)("value")(Foreign.readString);
exports["input"] = input;
exports["input_"] = input_;
exports["handler"] = handler;
exports["onSubmit"] = onSubmit;
exports["onClick"] = onClick;
exports["onValueChange"] = onValueChange;
exports["onChecked"] = onChecked;
})(PS["Halogen.HTML.Events"] = PS["Halogen.HTML.Events"] || {});
(function(exports) {
"use strict";
/* global Symbol */
var hasArrayFrom = typeof Array.from === "function";
var hasStringIterator =
typeof Symbol !== "undefined" &&
Symbol != null &&
typeof Symbol.iterator !== "undefined" &&
typeof String.prototype[Symbol.iterator] === "function";
var hasFromCodePoint = typeof String.prototype.fromCodePoint === "function";
var hasCodePointAt = typeof String.prototype.codePointAt === "function";
exports._unsafeCodePointAt0 = function (fallback) {
return hasCodePointAt
? function (str) { return str.codePointAt(0); }
: fallback;
};
exports._singleton = function (fallback) {
return hasFromCodePoint ? String.fromCodePoint : fallback;
};
exports._take = function (fallback) {
return function (n) {
if (hasStringIterator) {
return function (str) {
var accum = "";
var iter = str[Symbol.iterator]();
for (var i = 0; i < n; ++i) {
var o = iter.next();
if (o.done) return accum;
accum += o.value;
}
return accum;
};
}
return fallback(n);
};
};
exports._toCodePointArray = function (fallback) {
return function (unsafeCodePointAt0) {
if (hasArrayFrom) {
return function (str) {
return Array.from(str, unsafeCodePointAt0);
};
}
return fallback;
};
};
})(PS["Data.String.CodePoints"] = PS["Data.String.CodePoints"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Data.String.CodePoints"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Array = PS["Data.Array"];
var Data_Boolean = PS["Data.Boolean"];
var Data_Bounded = PS["Data.Bounded"];
var Data_Enum = PS["Data.Enum"];
var Data_Eq = PS["Data.Eq"];
var Data_EuclideanRing = PS["Data.EuclideanRing"];
var Data_Functor = PS["Data.Functor"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Int = PS["Data.Int"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ord = PS["Data.Ord"];
var Data_Ring = PS["Data.Ring"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Show = PS["Data.Show"];
var Data_String_CodeUnits = PS["Data.String.CodeUnits"];
var Data_String_Common = PS["Data.String.Common"];
var Data_String_Pattern = PS["Data.String.Pattern"];
var Data_String_Unsafe = PS["Data.String.Unsafe"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unfoldable = PS["Data.Unfoldable"];
var Prelude = PS["Prelude"];
var unsurrogate = function (lead) {
return function (trail) {
return (((lead - 55296 | 0) * 1024 | 0) + (trail - 56320 | 0) | 0) + 65536 | 0;
};
};
var isTrail = function (cu) {
return 56320 <= cu && cu <= 57343;
};
var isLead = function (cu) {
return 55296 <= cu && cu <= 56319;
};
var uncons = function (s) {
var v = Data_String_CodeUnits.length(s);
if (v === 0) {
return Data_Maybe.Nothing.value;
};
if (v === 1) {
return new Data_Maybe.Just({
head: Data_Enum.fromEnum(Data_Enum.boundedEnumChar)(Data_String_Unsafe.charAt(0)(s)),
tail: ""
});
};
var cu1 = Data_Enum.fromEnum(Data_Enum.boundedEnumChar)(Data_String_Unsafe.charAt(1)(s));
var cu0 = Data_Enum.fromEnum(Data_Enum.boundedEnumChar)(Data_String_Unsafe.charAt(0)(s));
var $21 = isLead(cu0) && isTrail(cu1);
if ($21) {
return new Data_Maybe.Just({
head: unsurrogate(cu0)(cu1),
tail: Data_String_CodeUnits.drop(2)(s)
});
};
return new Data_Maybe.Just({
head: cu0,
tail: Data_String_CodeUnits.drop(1)(s)
});
};
var unconsButWithTuple = function (s) {
return Data_Functor.map(Data_Maybe.functorMaybe)(function (v) {
return new Data_Tuple.Tuple(v.head, v.tail);
})(uncons(s));
};
var toCodePointArrayFallback = function (s) {
return Data_Unfoldable.unfoldr(Data_Unfoldable.unfoldableArray)(unconsButWithTuple)(s);
};
var unsafeCodePointAt0Fallback = function (s) {
var cu1 = Data_Enum.fromEnum(Data_Enum.boundedEnumChar)(Data_String_Unsafe.charAt(1)(s));
var cu0 = Data_Enum.fromEnum(Data_Enum.boundedEnumChar)(Data_String_Unsafe.charAt(0)(s));
var $25 = isLead(cu0) && isTrail(cu1);
if ($25) {
return unsurrogate(cu0)(cu1);
};
return cu0;
};
var unsafeCodePointAt0 = $foreign._unsafeCodePointAt0(unsafeCodePointAt0Fallback);
var toCodePointArray = $foreign._toCodePointArray(toCodePointArrayFallback)(unsafeCodePointAt0);
var length = function ($51) {
return Data_Array.length(toCodePointArray($51));
};
var fromCharCode = function ($52) {
return Data_String_CodeUnits.singleton(Data_Enum.toEnumWithDefaults(Data_Enum.boundedEnumChar)(Data_Bounded.bottom(Data_Bounded.boundedChar))(Data_Bounded.top(Data_Bounded.boundedChar))($52));
};
var singletonFallback = function (v) {
if (v <= 65535) {
return fromCharCode(v);
};
var lead = Data_EuclideanRing.div(Data_EuclideanRing.euclideanRingInt)(v - 65536 | 0)(1024) + 55296 | 0;
var trail = Data_EuclideanRing.mod(Data_EuclideanRing.euclideanRingInt)(v - 65536 | 0)(1024) + 56320 | 0;
return fromCharCode(lead) + fromCharCode(trail);
};
var singleton = $foreign._singleton(singletonFallback);
var takeFallback = function (n) {
return function (v) {
if (n < 1) {
return "";
};
var v1 = uncons(v);
if (v1 instanceof Data_Maybe.Just) {
return singleton(v1.value0.head) + takeFallback(n - 1 | 0)(v1.value0.tail);
};
return v;
};
};
var take = $foreign._take(takeFallback);
var drop = function (n) {
return function (s) {
return Data_String_CodeUnits.drop(Data_String_CodeUnits.length(take(n)(s)))(s);
};
};
exports["singleton"] = singleton;
exports["toCodePointArray"] = toCodePointArray;
exports["uncons"] = uncons;
exports["length"] = length;
exports["take"] = take;
exports["drop"] = drop;
})(PS["Data.String.CodePoints"] = PS["Data.String.CodePoints"] || {});
(function(exports) {
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Monad_Maybe_Trans = PS["Control.Monad.Maybe.Trans"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Array = PS["Data.Array"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Maybe = PS["Data.Maybe"];
var Data_String = PS["Data.String"];
var Data_String_CodePoints = PS["Data.String.CodePoints"];
var Data_String_Common = PS["Data.String.Common"];
var Data_String_Pattern = PS["Data.String.Pattern"];
var Data_Tuple = PS["Data.Tuple"];
var Effect = PS["Effect"];
var Global_Unsafe = PS["Global.Unsafe"];
var Halogen_HTML = PS["Halogen.HTML"];
var Halogen_HTML_Core = PS["Halogen.HTML.Core"];
var Halogen_HTML_Properties = PS["Halogen.HTML.Properties"];
var Partial_Unsafe = PS["Partial.Unsafe"];
var Prelude = PS["Prelude"];
var Web_DOM = PS["Web.DOM"];
var Web_DOM_Document = PS["Web.DOM.Document"];
var Web_DOM_Element = PS["Web.DOM.Element"];
var Web_DOM_NodeList = PS["Web.DOM.NodeList"];
var Web_DOM_NonElementParentNode = PS["Web.DOM.NonElementParentNode"];
var Web_DOM_ParentNode = PS["Web.DOM.ParentNode"];
var Web_HTML = PS["Web.HTML"];
var Web_HTML_HTMLDocument = PS["Web.HTML.HTMLDocument"];
var Web_HTML_HTMLElement = PS["Web.HTML.HTMLElement"];
var Web_HTML_Location = PS["Web.HTML.Location"];
var Web_HTML_Window = PS["Web.HTML.Window"];
// Halogen
var class_ = function ($54) {
return Halogen_HTML_Properties.class_(Halogen_HTML_Core.ClassName($54));
};
var attr = function (a) {
return Halogen_HTML_Properties.attr(a);
};
var _querySelectorAll = function (s) {
return function (n) {
return Control_Bind.bindFlipped(Effect.bindEffect)(Web_DOM_NodeList.toArray)(Web_DOM_ParentNode.querySelectorAll(s)(Web_DOM_Element.toParentNode(n)));
};
};
var _querySelector = function (s) {
return function (n) {
return Web_DOM_ParentNode.querySelector(s)(Web_DOM_Element.toParentNode(n));
};
};
var _queryBoth$prime$prime = function (v) {
return function (v1) {
return function (f) {
return function __do() {
var v2 = _querySelectorAll(v.value0)(v.value1)();
var v3 = _querySelectorAll(v1.value0)(v1.value1)();
return f(v2)(v3)();
};
};
};
};
var _queryBoth$prime = function (v) {
return function (v1) {
return function (f) {
return function __do() {
var v2 = _querySelector(v.value0)(v.value1)();
var v3 = _querySelectorAll(v1.value0)(v1.value1)();
return Data_Foldable.for_(Effect.applicativeEffect)(Data_Foldable.foldableMaybe)(v2)(function (a) {
return f(a)(v3);
})();
};
};
};
};
// Util
var _queryBoth = function (v) {
return function (v1) {
return function (f) {
return function __do() {
var v2 = _querySelector(v.value0)(v.value1)();
var v3 = _querySelector(v1.value0)(v1.value1)();
return Data_Foldable.for_(Effect.applicativeEffect)(Data_Foldable.foldableMaybe)(v2)(function (a) {
return Data_Foldable.for_(Effect.applicativeEffect)(Data_Foldable.foldableMaybe)(v3)(function (b) {
return f(a)(b);
});
})();
};
};
};
};
var _parseQueryString = function (srh) {
var decode = function ($55) {
return Global_Unsafe.unsafeDecodeURIComponent(Data_String_Common.replaceAll("+")(" ")($55));
};
var go = function (kv) {
var v = Data_String_Common.split("=")(kv);
if (v.length === 1) {
return new Data_Maybe.Just(new Data_Tuple.Tuple(decode(v[0]), Data_Maybe.Nothing.value));
};
if (v.length === 2) {
return new Data_Maybe.Just(new Data_Tuple.Tuple(decode(v[0]), new Data_Maybe.Just(decode(v[1]))));
};
return Data_Maybe.Nothing.value;
};
var qs = (function () {
var srh$prime = Data_String_CodePoints.take(1)(srh);
var $51 = srh$prime === "#" || srh$prime === "?";
if ($51) {
return Data_String_CodePoints.drop(1)(srh);
};
return srh;
})();
return Data_Array.mapMaybe(go)(Data_Array.filter(function (v) {
return v !== "";
})(Data_String_Common.split("&")(qs)));
};
var _mt_pure = function ($56) {
return Control_Monad_Maybe_Trans.MaybeT(Control_Applicative.pure(Effect.applicativeEffect)($56));
};
var _mt = Control_Monad_Maybe_Trans.MaybeT;
var _lookupQueryStringValue = function (qs) {
return function (k) {
return Control_Bind.join(Data_Maybe.bindMaybe)(Data_Functor.map(Data_Maybe.functorMaybe)(Data_Tuple.snd)(Data_Foldable.find(Data_Foldable.foldableArray)(function ($57) {
return (function (v) {
return v === k;
})(Data_Tuple.fst($57));
})(qs)));
};
};
var _loc = Control_Bind.bindFlipped(Effect.bindEffect)(Web_HTML_Window.location)(Web_HTML.window);
var _getElementById = function (s) {
return function ($58) {
return Web_DOM_NonElementParentNode.getElementById(s)(Web_DOM_Document.toNonElementParentNode(Web_HTML_HTMLDocument.toDocument($58)));
};
};
var _fromNode = function (e) {
return Data_Maybe.fromJust()(Web_DOM_Element.fromNode(e));
};
var _fromElement = function (e) {
return Data_Maybe.fromJust()(Web_HTML_HTMLElement.fromElement(e));
};
var _doc = Control_Bind.bindFlipped(Effect.bindEffect)(Web_HTML_Window.document)(Web_HTML.window);
var _curQuerystring = function __do() {
var v = _loc();
var v1 = Web_HTML_Location.search(v)();
return _parseQueryString(v1);
};
var _body = Control_Bind.bindFlipped(Effect.bindEffect)(function ($59) {
return Control_Applicative.pure(Effect.applicativeEffect)(Data_Maybe.fromJust()($59));
})(Control_Bind.bindFlipped(Effect.bindEffect)(Web_HTML_HTMLDocument.body)(_doc));
exports["class_"] = class_;
exports["attr"] = attr;
exports["_queryBoth"] = _queryBoth;
exports["_queryBoth'"] = _queryBoth$prime;
exports["_queryBoth''"] = _queryBoth$prime$prime;
exports["_querySelector"] = _querySelector;
exports["_querySelectorAll"] = _querySelectorAll;
exports["_fromNode"] = _fromNode;
exports["_fromElement"] = _fromElement;
exports["_getElementById"] = _getElementById;
exports["_doc"] = _doc;
exports["_loc"] = _loc;
exports["_curQuerystring"] = _curQuerystring;
exports["_parseQueryString"] = _parseQueryString;
exports["_lookupQueryStringValue"] = _lookupQueryStringValue;
exports["_body"] = _body;
exports["_mt"] = _mt;
exports["_mt_pure"] = _mt_pure;
})(PS["Util"] = PS["Util"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var App = PS["App"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Monad_State_Class = PS["Control.Monad.State.Class"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var DOM_HTML_Indexed_ButtonType = PS["DOM.HTML.Indexed.ButtonType"];
var DOM_HTML_Indexed_InputType = PS["DOM.HTML.Indexed.InputType"];
var Data_Array = PS["Data.Array"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Ord = PS["Data.Ord"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_String = PS["Data.String"];
var Data_String_Common = PS["Data.String.Common"];
var Data_String_Pattern = PS["Data.String.Pattern"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unit = PS["Data.Unit"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Aff_Class = PS["Effect.Aff.Class"];
var Effect_Class = PS["Effect.Class"];
var Globals = PS["Globals"];
var Halogen = PS["Halogen"];
var Halogen_Component = PS["Halogen.Component"];
var Halogen_HTML = PS["Halogen.HTML"];
var Halogen_HTML_Core = PS["Halogen.HTML.Core"];
var Halogen_HTML_Elements = PS["Halogen.HTML.Elements"];
var Halogen_HTML_Events = PS["Halogen.HTML.Events"];
var Halogen_HTML_Properties = PS["Halogen.HTML.Properties"];
var Halogen_Query_HalogenM = PS["Halogen.Query.HalogenM"];
var Model = PS["Model"];
var Prelude = PS["Prelude"];
var Util = PS["Util"];
var Web_Event_Event = PS["Web.Event.Event"];
var Web_HTML = PS["Web.HTML"];
var Web_HTML_Location = PS["Web.HTML.Location"];
var Eurl = (function () {
function Eurl(value0) {
this.value0 = value0;
};
Eurl.create = function (value0) {
return new Eurl(value0);
};
return Eurl;
})();
var Etitle = (function () {
function Etitle(value0) {
this.value0 = value0;
};
Etitle.create = function (value0) {
return new Etitle(value0);
};
return Etitle;
})();
var Edescription = (function () {
function Edescription(value0) {
this.value0 = value0;
};
Edescription.create = function (value0) {
return new Edescription(value0);
};
return Edescription;
})();
var Etags = (function () {
function Etags(value0) {
this.value0 = value0;
};
Etags.create = function (value0) {
return new Etags(value0);
};
return Etags;
})();
var Eprivate = (function () {
function Eprivate(value0) {
this.value0 = value0;
};
Eprivate.create = function (value0) {
return new Eprivate(value0);
};
return Eprivate;
})();
var Etoread = (function () {
function Etoread(value0) {
this.value0 = value0;
};
Etoread.create = function (value0) {
return new Etoread(value0);
};
return Etoread;
})();
var BEditField = (function () {
function BEditField(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
BEditField.create = function (value0) {
return function (value1) {
return new BEditField(value0, value1);
};
};
return BEditField;
})();
var BEditSubmit = (function () {
function BEditSubmit(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
BEditSubmit.create = function (value0) {
return function (value1) {
return new BEditSubmit(value0, value1);
};
};
return BEditSubmit;
})();
var BDeleteAsk = (function () {
function BDeleteAsk(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
BDeleteAsk.create = function (value0) {
return function (value1) {
return new BDeleteAsk(value0, value1);
};
};
return BDeleteAsk;
})();
var BDestroy = (function () {
function BDestroy(value0) {
this.value0 = value0;
};
BDestroy.create = function (value0) {
return new BDestroy(value0);
};
return BDestroy;
})();
var addbmark = function (b$prime) {
var render = function (v) {
var toTextarea = function ($98) {
return Data_Array.drop(1)(Data_Foldable.foldMap(Data_Foldable.foldableArray)(Data_Monoid.monoidArray)(function (x) {
return [ Halogen_HTML_Elements.br_, Halogen_HTML_Core.text(x) ];
})(Data_String_Common.split("\x0a")($98)));
};
var mmoment = Globals.mmoment8601(v.bm.time);
var display_exists = Halogen_HTML_Elements.div([ Util.class_("alert") ])([ Halogen_HTML_Core.text("previously saved\xa0"), Halogen_HTML_Elements.span([ Util.class_("when js-moment"), Halogen_HTML_Properties.title(Data_Maybe.maybe(v.bm.time)(Data_Tuple.snd)(mmoment)), Util.attr("data-iso8601")(v.bm.time) ])([ Halogen_HTML_Core.text(Data_Maybe.maybe("\xa0")(Data_Tuple.fst)(mmoment)) ]), Halogen_HTML_Elements.div([ Util.class_("edit_links"), Util.attr("style")("display: inline-block; margin-left: 5px;") ])([ Halogen_HTML_Elements.div([ Util.class_("delete_link") ])([ Halogen_HTML_Elements.button(Data_Semigroup.append(Data_Semigroup.semigroupArray)([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.buttonTypeIsProp)(DOM_HTML_Indexed_ButtonType.ButtonButton.value), Halogen_HTML_Events.onClick(Halogen_HTML_Events.input_(BDeleteAsk.create(true))), Util.class_("delete") ])(Data_Monoid.guard(Data_Monoid.monoidArray)(v.deleteAsk)([ Util.attr("hidden")("hidden") ])))([ Halogen_HTML_Core.text("delete") ]), Halogen_HTML_Elements.span(Data_Semigroup.append(Data_Semigroup.semigroupArray)([ Util.class_("confirm") ])(Data_Monoid.guard(Data_Monoid.monoidArray)(!v.deleteAsk)([ Util.attr("hidden")("hidden") ])))([ Halogen_HTML_Elements.button([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.buttonTypeIsProp)(DOM_HTML_Indexed_ButtonType.ButtonButton.value), Halogen_HTML_Events.onClick(Halogen_HTML_Events.input_(BDeleteAsk.create(false))) ])([ Halogen_HTML_Core.text("cancel\xa0/\xa0") ]), Halogen_HTML_Elements.button([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.buttonTypeIsProp)(DOM_HTML_Indexed_ButtonType.ButtonButton.value), Halogen_HTML_Events.onClick(Halogen_HTML_Events.input_(BDestroy.create)), Util.class_("destroy") ])([ Halogen_HTML_Core.text("destroy") ]) ]) ]) ]) ]);
var display_edit = Halogen_HTML_Elements.form([ Halogen_HTML_Events.onSubmit(Halogen_HTML_Events.input(BEditSubmit.create)) ])([ Halogen_HTML_Elements.table_([ Halogen_HTML_Elements.tbody_([ Halogen_HTML_Elements.tr_([ Halogen_HTML_Elements.td_([ ]), Halogen_HTML_Elements.td_(Data_Monoid.guard(Data_Monoid.monoidArray)(v.bm.bid > 0)([ display_exists ])) ]), Halogen_HTML_Elements.tr_([ Halogen_HTML_Elements.td_([ Halogen_HTML_Elements.label([ Halogen_HTML_Properties["for"]("url") ])([ Halogen_HTML_Core.text("URL") ]) ]), Halogen_HTML_Elements.td_([ Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputUrl.value), Halogen_HTML_Properties.id_("url"), Util.class_("url"), Halogen_HTML_Properties.required(true), Halogen_HTML_Properties.name("url"), Util.attr("size")("70"), Halogen_HTML_Properties.value(v.edit_bm.url), Halogen_HTML_Events.onValueChange(function ($99) {
return Halogen_HTML_Events.input(BEditField.create)(Eurl.create($99));
}) ]) ]) ]), Halogen_HTML_Elements.tr_([ Halogen_HTML_Elements.td_([ Halogen_HTML_Elements.label([ Halogen_HTML_Properties["for"]("title") ])([ Halogen_HTML_Core.text("title") ]) ]), Halogen_HTML_Elements.td_([ Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputText.value), Halogen_HTML_Properties.id_("title"), Util.class_("title"), Halogen_HTML_Properties.name("title"), Util.attr("size")("70"), Halogen_HTML_Properties.value(v.edit_bm.title), Halogen_HTML_Events.onValueChange(function ($100) {
return Halogen_HTML_Events.input(BEditField.create)(Etitle.create($100));
}) ]) ]) ]), Halogen_HTML_Elements.tr_([ Halogen_HTML_Elements.td_([ Halogen_HTML_Elements.label([ Halogen_HTML_Properties["for"]("description") ])([ Halogen_HTML_Core.text("description") ]) ]), Halogen_HTML_Elements.td_([ Halogen_HTML_Elements.textarea([ Util.class_("description"), Halogen_HTML_Properties.id_("description"), Halogen_HTML_Properties.name("description"), Util.attr("cols")("70"), Halogen_HTML_Properties.rows(4), Halogen_HTML_Properties.value(v.edit_bm.description), Halogen_HTML_Events.onValueChange(function ($101) {
return Halogen_HTML_Events.input(BEditField.create)(Edescription.create($101));
}) ]) ]) ]), Halogen_HTML_Elements.tr_([ Halogen_HTML_Elements.td_([ Halogen_HTML_Elements.label([ Halogen_HTML_Properties["for"]("tags") ])([ Halogen_HTML_Core.text("tags") ]) ]), Halogen_HTML_Elements.td_([ Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputText.value), Halogen_HTML_Properties.id_("tags"), Util.class_("tags"), Halogen_HTML_Properties.name("tags"), Util.attr("size")("70"), Halogen_HTML_Properties.autocomplete(false), Util.attr("autocapitalize")("off"), Halogen_HTML_Properties.value(v.edit_bm.tags), Halogen_HTML_Events.onValueChange(function ($102) {
return Halogen_HTML_Events.input(BEditField.create)(Etags.create($102));
}) ]) ]) ]), Halogen_HTML_Elements.tr_([ Halogen_HTML_Elements.td_([ Halogen_HTML_Elements.label([ Halogen_HTML_Properties["for"]("private") ])([ Halogen_HTML_Core.text("private") ]) ]), Halogen_HTML_Elements.td_([ Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputCheckbox.value), Halogen_HTML_Properties.id_("private"), Util.class_("private"), Halogen_HTML_Properties.name("private"), Halogen_HTML_Properties.checked(v["edit_bm"]["private"]), Halogen_HTML_Events.onChecked(function ($103) {
return Halogen_HTML_Events.input(BEditField.create)(Eprivate.create($103));
}) ]) ]) ]), Halogen_HTML_Elements.tr_([ Halogen_HTML_Elements.td_([ Halogen_HTML_Elements.label([ Halogen_HTML_Properties["for"]("toread") ])([ Halogen_HTML_Core.text("read later") ]) ]), Halogen_HTML_Elements.td_([ Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputCheckbox.value), Halogen_HTML_Properties.id_("toread"), Util.class_("toread"), Halogen_HTML_Properties.name("toread"), Halogen_HTML_Properties.checked(v.edit_bm.toread), Halogen_HTML_Events.onChecked(function ($104) {
return Halogen_HTML_Events.input(BEditField.create)(Etoread.create($104));
}) ]) ]) ]), Halogen_HTML_Elements.tr_([ Halogen_HTML_Elements.td_([ ]), Halogen_HTML_Elements.td_([ Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputSubmit.value), Util.class_("submit"), Halogen_HTML_Properties.value((function () {
var $26 = v.bm.bid > 0;
if ($26) {
return "update bookmark";
};
return "add bookmark";
})()) ]) ]) ]) ]) ]) ]);
var display_destroyed = Halogen_HTML_Elements.p([ Util.class_("error") ])([ Halogen_HTML_Core.text("you killed this bookmark") ]);
return Halogen_HTML_Elements.div_([ (function () {
var $27 = !v.destroyed;
if ($27) {
return display_edit;
};
return display_destroyed;
})() ]);
};
var mkState = function (b) {
return {
bm: b,
edit_bm: b,
deleteAsk: false,
destroyed: false
};
};
var $$eval = function (v) {
if (v instanceof BDeleteAsk) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.modify_(Halogen_Query_HalogenM.monadStateHalogenM)(function (v1) {
var $31 = {};
for (var $32 in v1) {
if ({}.hasOwnProperty.call(v1, $32)) {
$31[$32] = v1[$32];
};
};
$31.deleteAsk = v.value0;
return $31;
}))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
};
if (v instanceof BDestroy) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.gets(Halogen_Query_HalogenM.monadStateHalogenM)(function (v1) {
return v1.bm.bid;
}))(function (v1) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Functor["void"](Halogen_Query_HalogenM.functorHalogenM)(Effect_Aff_Class.liftAff(Halogen_Query_HalogenM.monadAffHalogenM(Effect_Aff_Class.monadAffAff))(App.destroy(v1))))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.modify_(Halogen_Query_HalogenM.monadStateHalogenM)(function (v2) {
var $37 = {};
for (var $38 in v2) {
if ({}.hasOwnProperty.call(v2, $38)) {
$37[$38] = v2[$38];
};
};
$37.destroyed = true;
return $37;
}))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value0);
});
});
});
};
if (v instanceof BEditField) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.get(Halogen_Query_HalogenM.monadStateHalogenM))(function (v1) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)((function () {
if (v.value0 instanceof Eurl) {
return Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $46 = {};
for (var $47 in v1) {
if ({}.hasOwnProperty.call(v1, $47)) {
$46[$47] = v1[$47];
};
};
$46.edit_bm = (function () {
var $43 = {};
for (var $44 in v1.edit_bm) {
if ({}.hasOwnProperty.call(v1.edit_bm, $44)) {
$43[$44] = v1["edit_bm"][$44];
};
};
$43.url = v.value0.value0;
return $43;
})();
return $46;
})());
};
if (v.value0 instanceof Etitle) {
return Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $53 = {};
for (var $54 in v1) {
if ({}.hasOwnProperty.call(v1, $54)) {
$53[$54] = v1[$54];
};
};
$53.edit_bm = (function () {
var $50 = {};
for (var $51 in v1.edit_bm) {
if ({}.hasOwnProperty.call(v1.edit_bm, $51)) {
$50[$51] = v1["edit_bm"][$51];
};
};
$50.title = v.value0.value0;
return $50;
})();
return $53;
})());
};
if (v.value0 instanceof Edescription) {
return Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $60 = {};
for (var $61 in v1) {
if ({}.hasOwnProperty.call(v1, $61)) {
$60[$61] = v1[$61];
};
};
$60.edit_bm = (function () {
var $57 = {};
for (var $58 in v1.edit_bm) {
if ({}.hasOwnProperty.call(v1.edit_bm, $58)) {
$57[$58] = v1["edit_bm"][$58];
};
};
$57.description = v.value0.value0;
return $57;
})();
return $60;
})());
};
if (v.value0 instanceof Etags) {
return Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $67 = {};
for (var $68 in v1) {
if ({}.hasOwnProperty.call(v1, $68)) {
$67[$68] = v1[$68];
};
};
$67.edit_bm = (function () {
var $64 = {};
for (var $65 in v1.edit_bm) {
if ({}.hasOwnProperty.call(v1.edit_bm, $65)) {
$64[$65] = v1["edit_bm"][$65];
};
};
$64.tags = v.value0.value0;
return $64;
})();
return $67;
})());
};
if (v.value0 instanceof Eprivate) {
return Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $74 = {};
for (var $75 in v1) {
if ({}.hasOwnProperty.call(v1, $75)) {
$74[$75] = v1[$75];
};
};
$74.edit_bm = (function () {
var $71 = {};
for (var $72 in v1.edit_bm) {
if ({}.hasOwnProperty.call(v1.edit_bm, $72)) {
$71[$72] = v1["edit_bm"][$72];
};
};
$71["private"] = v.value0.value0;
return $71;
})();
return $74;
})());
};
if (v.value0 instanceof Etoread) {
return Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $81 = {};
for (var $82 in v1) {
if ({}.hasOwnProperty.call(v1, $82)) {
$81[$82] = v1[$82];
};
};
$81.edit_bm = (function () {
var $78 = {};
for (var $79 in v1.edit_bm) {
if ({}.hasOwnProperty.call(v1.edit_bm, $79)) {
$78[$79] = v1["edit_bm"][$79];
};
};
$78.toread = v.value0.value0;
return $78;
})();
return $81;
})());
};
throw new Error("Failed pattern match at Component.Add line 153, column 5 - line 159, column 68: " + [ v.value0.constructor.name ]);
})())(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
});
};
if (v instanceof BEditSubmit) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Effect_Class.liftEffect(Halogen_Query_HalogenM.monadEffectHalogenM(Effect_Aff.monadEffectAff))(Web_Event_Event.preventDefault(v.value0)))(function () {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.get(Halogen_Query_HalogenM.monadStateHalogenM))(function (v1) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Functor["void"](Halogen_Query_HalogenM.functorHalogenM)(Effect_Aff_Class.liftAff(Halogen_Query_HalogenM.monadAffHalogenM(Effect_Aff_Class.monadAffAff))(App.editBookmark(v1.edit_bm))))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $88 = {};
for (var $89 in v1) {
if ({}.hasOwnProperty.call(v1, $89)) {
$88[$89] = v1[$89];
};
};
$88.bm = v1.edit_bm;
return $88;
})()))(function () {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Effect_Class.liftEffect(Halogen_Query_HalogenM.monadEffectHalogenM(Effect_Aff.monadEffectAff))(Util._loc))(function (v2) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Effect_Class.liftEffect(Halogen_Query_HalogenM.monadEffectHalogenM(Effect_Aff.monadEffectAff))(Web_HTML.window))(function (v3) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Effect_Class.liftEffect(Halogen_Query_HalogenM.monadEffectHalogenM(Effect_Aff.monadEffectAff))(Util._curQuerystring))(function (v4) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)((function () {
var v5 = Util._lookupQueryStringValue(v4)("next");
if (v5 instanceof Data_Maybe.Just) {
return Effect_Class.liftEffect(Halogen_Query_HalogenM.monadEffectHalogenM(Effect_Aff.monadEffectAff))(Web_HTML_Location.setHref(v5.value0)(v2));
};
return Effect_Class.liftEffect(Halogen_Query_HalogenM.monadEffectHalogenM(Effect_Aff.monadEffectAff))(Globals.closeWindow(v3));
})())(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
});
});
});
});
});
});
});
};
throw new Error("Failed pattern match at Component.Add line 142, column 3 - line 142, column 58: " + [ v.constructor.name ]);
};
var app = Globals["app'"](Data_Unit.unit);
return Halogen_Component.component(Halogen_HTML_Core.bifunctorHTML)({
initialState: Data_Function["const"](mkState(b$prime)),
render: render,
"eval": $$eval,
receiver: Data_Function["const"](Data_Maybe.Nothing.value)
});
};
exports["BEditField"] = BEditField;
exports["BEditSubmit"] = BEditSubmit;
exports["BDeleteAsk"] = BDeleteAsk;
exports["BDestroy"] = BDestroy;
exports["Eurl"] = Eurl;
exports["Etitle"] = Etitle;
exports["Edescription"] = Edescription;
exports["Etags"] = Etags;
exports["Eprivate"] = Eprivate;
exports["Etoread"] = Etoread;
exports["addbmark"] = addbmark;
})(PS["Component.Add"] = PS["Component.Add"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var App = PS["App"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Monad_State_Class = PS["Control.Monad.State.Class"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var DOM_HTML_Indexed_ButtonType = PS["DOM.HTML.Indexed.ButtonType"];
var DOM_HTML_Indexed_InputType = PS["DOM.HTML.Indexed.InputType"];
var Data_Array = PS["Data.Array"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Show = PS["Data.Show"];
var Data_String = PS["Data.String"];
var Data_String_CodePoints = PS["Data.String.CodePoints"];
var Data_String_Common = PS["Data.String.Common"];
var Data_String_Pattern = PS["Data.String.Pattern"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unit = PS["Data.Unit"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Aff_Class = PS["Effect.Aff.Class"];
var Effect_Class = PS["Effect.Class"];
var Globals = PS["Globals"];
var Halogen = PS["Halogen"];
var Halogen_Component = PS["Halogen.Component"];
var Halogen_HTML = PS["Halogen.HTML"];
var Halogen_HTML_Core = PS["Halogen.HTML.Core"];
var Halogen_HTML_Elements = PS["Halogen.HTML.Elements"];
var Halogen_HTML_Events = PS["Halogen.HTML.Events"];
var Halogen_HTML_Properties = PS["Halogen.HTML.Properties"];
var Halogen_Query_HalogenM = PS["Halogen.Query.HalogenM"];
var Model = PS["Model"];
var Prelude = PS["Prelude"];
var Util = PS["Util"];
var Web_Event_Event = PS["Web.Event.Event"];
var Eurl = (function () {
function Eurl(value0) {
this.value0 = value0;
};
Eurl.create = function (value0) {
return new Eurl(value0);
};
return Eurl;
})();
var Etitle = (function () {
function Etitle(value0) {
this.value0 = value0;
};
Etitle.create = function (value0) {
return new Etitle(value0);
};
return Etitle;
})();
var Edescription = (function () {
function Edescription(value0) {
this.value0 = value0;
};
Edescription.create = function (value0) {
return new Edescription(value0);
};
return Edescription;
})();
var Etags = (function () {
function Etags(value0) {
this.value0 = value0;
};
Etags.create = function (value0) {
return new Etags(value0);
};
return Etags;
})();
var Eprivate = (function () {
function Eprivate(value0) {
this.value0 = value0;
};
Eprivate.create = function (value0) {
return new Eprivate(value0);
};
return Eprivate;
})();
var Etoread = (function () {
function Etoread(value0) {
this.value0 = value0;
};
Etoread.create = function (value0) {
return new Etoread(value0);
};
return Etoread;
})();
var BStar = (function () {
function BStar(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
BStar.create = function (value0) {
return function (value1) {
return new BStar(value0, value1);
};
};
return BStar;
})();
var BDeleteAsk = (function () {
function BDeleteAsk(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
BDeleteAsk.create = function (value0) {
return function (value1) {
return new BDeleteAsk(value0, value1);
};
};
return BDeleteAsk;
})();
var BDestroy = (function () {
function BDestroy(value0) {
this.value0 = value0;
};
BDestroy.create = function (value0) {
return new BDestroy(value0);
};
return BDestroy;
})();
var BEdit = (function () {
function BEdit(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
BEdit.create = function (value0) {
return function (value1) {
return new BEdit(value0, value1);
};
};
return BEdit;
})();
var BEditField = (function () {
function BEditField(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
BEditField.create = function (value0) {
return function (value1) {
return new BEditField(value0, value1);
};
};
return BEditField;
})();
var BEditSubmit = (function () {
function BEditSubmit(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
BEditSubmit.create = function (value0) {
return function (value1) {
return new BEditSubmit(value0, value1);
};
};
return BEditSubmit;
})();
var BMarkRead = (function () {
function BMarkRead(value0) {
this.value0 = value0;
};
BMarkRead.create = function (value0) {
return new BMarkRead(value0);
};
return BMarkRead;
})();
var BNotifyRemove = (function () {
function BNotifyRemove() {
};
BNotifyRemove.value = new BNotifyRemove();
return BNotifyRemove;
})();
var bmark = function (b$prime) {
var mkState = function (b) {
return {
bm: b,
edit_bm: b,
deleteAsk: false,
edit: false
};
};
var $$eval = function (v) {
if (v instanceof BStar) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.get(Halogen_Query_HalogenM.monadStateHalogenM))(function (v1) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Effect_Aff_Class.liftAff(Halogen_Query_HalogenM.monadAffHalogenM(Effect_Aff_Class.monadAffAff))(App.toggleStar(v1.bm.bid)((function () {
if (v.value0) {
return App.Star.value;
};
return App.UnStar.value;
})())))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $38 = {};
for (var $39 in v1) {
if ({}.hasOwnProperty.call(v1, $39)) {
$38[$39] = v1[$39];
};
};
$38.bm = (function () {
var $32 = {};
for (var $33 in v1.bm) {
if ({}.hasOwnProperty.call(v1.bm, $33)) {
$32[$33] = v1["bm"][$33];
};
};
$32.selected = v.value0;
return $32;
})();
$38.edit_bm = (function () {
var $35 = {};
for (var $36 in v1.edit_bm) {
if ({}.hasOwnProperty.call(v1.edit_bm, $36)) {
$35[$36] = v1["edit_bm"][$36];
};
};
$35.selected = v.value0;
return $35;
})();
return $38;
})()))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
});
});
};
if (v instanceof BDeleteAsk) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.modify_(Halogen_Query_HalogenM.monadStateHalogenM)(function (v1) {
var $43 = {};
for (var $44 in v1) {
if ({}.hasOwnProperty.call(v1, $44)) {
$43[$44] = v1[$44];
};
};
$43.deleteAsk = v.value0;
return $43;
}))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
};
if (v instanceof BDestroy) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.gets(Halogen_Query_HalogenM.monadStateHalogenM)(function (v1) {
return v1.bm.bid;
}))(function (v1) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Functor["void"](Halogen_Query_HalogenM.functorHalogenM)(Effect_Aff_Class.liftAff(Halogen_Query_HalogenM.monadAffHalogenM(Effect_Aff_Class.monadAffAff))(App.destroy(v1))))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Halogen_Query_HalogenM.raise(BNotifyRemove.value))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value0);
});
});
});
};
if (v instanceof BMarkRead) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.get(Halogen_Query_HalogenM.monadStateHalogenM))(function (v1) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Functor["void"](Halogen_Query_HalogenM.functorHalogenM)(Effect_Aff_Class.liftAff(Halogen_Query_HalogenM.monadAffHalogenM(Effect_Aff_Class.monadAffAff))(App.markRead(v1.bm.bid))))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $54 = {};
for (var $55 in v1) {
if ({}.hasOwnProperty.call(v1, $55)) {
$54[$55] = v1[$55];
};
};
$54.bm = (function () {
var $51 = {};
for (var $52 in v1.bm) {
if ({}.hasOwnProperty.call(v1.bm, $52)) {
$51[$52] = v1["bm"][$52];
};
};
$51.toread = false;
return $51;
})();
return $54;
})()))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value0);
});
});
});
};
if (v instanceof BEdit) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.get(Halogen_Query_HalogenM.monadStateHalogenM))(function (v1) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $59 = {};
for (var $60 in v1) {
if ({}.hasOwnProperty.call(v1, $60)) {
$59[$60] = v1[$60];
};
};
$59.edit = v.value0;
$59.edit_bm = v1.bm;
return $59;
})()))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
});
};
if (v instanceof BEditField) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.get(Halogen_Query_HalogenM.monadStateHalogenM))(function (v1) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)((function () {
if (v.value0 instanceof Eurl) {
return Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $69 = {};
for (var $70 in v1) {
if ({}.hasOwnProperty.call(v1, $70)) {
$69[$70] = v1[$70];
};
};
$69.edit_bm = (function () {
var $66 = {};
for (var $67 in v1.edit_bm) {
if ({}.hasOwnProperty.call(v1.edit_bm, $67)) {
$66[$67] = v1["edit_bm"][$67];
};
};
$66.url = v.value0.value0;
return $66;
})();
return $69;
})());
};
if (v.value0 instanceof Etitle) {
return Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $76 = {};
for (var $77 in v1) {
if ({}.hasOwnProperty.call(v1, $77)) {
$76[$77] = v1[$77];
};
};
$76.edit_bm = (function () {
var $73 = {};
for (var $74 in v1.edit_bm) {
if ({}.hasOwnProperty.call(v1.edit_bm, $74)) {
$73[$74] = v1["edit_bm"][$74];
};
};
$73.title = v.value0.value0;
return $73;
})();
return $76;
})());
};
if (v.value0 instanceof Edescription) {
return Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $83 = {};
for (var $84 in v1) {
if ({}.hasOwnProperty.call(v1, $84)) {
$83[$84] = v1[$84];
};
};
$83.edit_bm = (function () {
var $80 = {};
for (var $81 in v1.edit_bm) {
if ({}.hasOwnProperty.call(v1.edit_bm, $81)) {
$80[$81] = v1["edit_bm"][$81];
};
};
$80.description = v.value0.value0;
return $80;
})();
return $83;
})());
};
if (v.value0 instanceof Etags) {
return Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $90 = {};
for (var $91 in v1) {
if ({}.hasOwnProperty.call(v1, $91)) {
$90[$91] = v1[$91];
};
};
$90.edit_bm = (function () {
var $87 = {};
for (var $88 in v1.edit_bm) {
if ({}.hasOwnProperty.call(v1.edit_bm, $88)) {
$87[$88] = v1["edit_bm"][$88];
};
};
$87.tags = v.value0.value0;
return $87;
})();
return $90;
})());
};
if (v.value0 instanceof Eprivate) {
return Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $97 = {};
for (var $98 in v1) {
if ({}.hasOwnProperty.call(v1, $98)) {
$97[$98] = v1[$98];
};
};
$97.edit_bm = (function () {
var $94 = {};
for (var $95 in v1.edit_bm) {
if ({}.hasOwnProperty.call(v1.edit_bm, $95)) {
$94[$95] = v1["edit_bm"][$95];
};
};
$94["private"] = v.value0.value0;
return $94;
})();
return $97;
})());
};
if (v.value0 instanceof Etoread) {
return Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $104 = {};
for (var $105 in v1) {
if ({}.hasOwnProperty.call(v1, $105)) {
$104[$105] = v1[$105];
};
};
$104.edit_bm = (function () {
var $101 = {};
for (var $102 in v1.edit_bm) {
if ({}.hasOwnProperty.call(v1.edit_bm, $102)) {
$101[$102] = v1["edit_bm"][$102];
};
};
$101.toread = v.value0.value0;
return $101;
})();
return $104;
})());
};
throw new Error("Failed pattern match at Component.BMark line 212, column 5 - line 218, column 68: " + [ v.value0.constructor.name ]);
})())(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
});
};
if (v instanceof BEditSubmit) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Effect_Class.liftEffect(Halogen_Query_HalogenM.monadEffectHalogenM(Effect_Aff.monadEffectAff))(Web_Event_Event.preventDefault(v.value0)))(function () {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.get(Halogen_Query_HalogenM.monadStateHalogenM))(function (v1) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Functor["void"](Halogen_Query_HalogenM.functorHalogenM)(Effect_Aff_Class.liftAff(Halogen_Query_HalogenM.monadAffHalogenM(Effect_Aff_Class.monadAffAff))(App.editBookmark(v1.edit_bm))))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.put(Halogen_Query_HalogenM.monadStateHalogenM)((function () {
var $111 = {};
for (var $112 in v1) {
if ({}.hasOwnProperty.call(v1, $112)) {
$111[$112] = v1[$112];
};
};
$111.edit = false;
$111.bm = v1.edit_bm;
return $111;
})()))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
});
});
});
};
throw new Error("Failed pattern match at Component.BMark line 187, column 3 - line 187, column 62: " + [ v.constructor.name ]);
};
var app = Globals["app'"](Data_Unit.unit);
var render = function (v) {
var toTextarea = function ($121) {
return Data_Array.drop(1)(Data_Foldable.foldMap(Data_Foldable.foldableArray)(Data_Monoid.monoidArray)(function (x) {
return [ Halogen_HTML_Elements.br_, Halogen_HTML_Core.text(x) ];
})(Data_String_Common.split("\x0a")($121)));
};
var star = Data_Monoid.guard(Data_Monoid.monoidArray)(app.dat.isowner)([ Halogen_HTML_Elements.div([ Util.class_("star" + Data_Monoid.guard(Data_Monoid.monoidString)(v.bm.selected)(" selected_star")) ])([ Halogen_HTML_Elements.button([ Halogen_HTML_Events.onClick(Halogen_HTML_Events.input_(BStar.create(!v.bm.selected))) ])([ Halogen_HTML_Core.text("\u272d") ]) ]) ]);
var mmoment = Globals.mmoment8601(v.bm.time);
var links = Data_Monoid.guard(Data_Monoid.monoidArray)(app.dat.isowner)([ Halogen_HTML_Elements.div([ Util.class_("edit_links") ])([ Halogen_HTML_Elements.button([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.buttonTypeIsProp)(DOM_HTML_Indexed_ButtonType.ButtonButton.value), Halogen_HTML_Events.onClick(Halogen_HTML_Events.input_(BEdit.create(true))), Util.class_("edit") ])([ Halogen_HTML_Core.text("edit\xa0\xa0") ]), Halogen_HTML_Elements.div([ Util.class_("delete_link") ])([ Halogen_HTML_Elements.button(Data_Semigroup.append(Data_Semigroup.semigroupArray)([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.buttonTypeIsProp)(DOM_HTML_Indexed_ButtonType.ButtonButton.value), Halogen_HTML_Events.onClick(Halogen_HTML_Events.input_(BDeleteAsk.create(true))), Util.class_("delete") ])(Data_Monoid.guard(Data_Monoid.monoidArray)(v.deleteAsk)([ Util.attr("hidden")("hidden") ])))([ Halogen_HTML_Core.text("delete") ]), Halogen_HTML_Elements.span(Data_Semigroup.append(Data_Semigroup.semigroupArray)([ Util.class_("confirm") ])(Data_Monoid.guard(Data_Monoid.monoidArray)(!v.deleteAsk)([ Util.attr("hidden")("hidden") ])))([ Halogen_HTML_Elements.button([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.buttonTypeIsProp)(DOM_HTML_Indexed_ButtonType.ButtonButton.value), Halogen_HTML_Events.onClick(Halogen_HTML_Events.input_(BDeleteAsk.create(false))) ])([ Halogen_HTML_Core.text("cancel\xa0/\xa0") ]), Halogen_HTML_Elements.button([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.buttonTypeIsProp)(DOM_HTML_Indexed_ButtonType.ButtonButton.value), Halogen_HTML_Events.onClick(Halogen_HTML_Events.input_(BDestroy.create)), Util.class_("destroy") ])([ Halogen_HTML_Core.text("destroy") ]) ]) ]) ]), Halogen_HTML_Elements.div([ Util.class_("read") ])(Data_Monoid.guard(Data_Monoid.monoidArray)(v.bm.toread)([ Halogen_HTML_Core.text("\xa0\xa0"), Halogen_HTML_Elements.button([ Halogen_HTML_Events.onClick(Halogen_HTML_Events.input_(BMarkRead.create)), Util.class_("mark_read") ])([ Halogen_HTML_Core.text("mark as read") ]) ])) ]);
var linkToFilterTag = function (tag) {
return app.userR + ("/t:" + tag);
};
var linkToFilterSingle = function (bid) {
return app.userR + ("/b:" + Data_Show.show(Data_Show.showInt)(bid));
};
var display_edit = [ Halogen_HTML_Elements.div([ Util.class_("edit_bookmark_form active") ])([ Halogen_HTML_Elements.form([ Halogen_HTML_Events.onSubmit(Halogen_HTML_Events.input(BEditSubmit.create)) ])([ Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputUrl.value), Util.class_("url edit_form_input"), Halogen_HTML_Properties.required(true), Halogen_HTML_Properties.name("url"), Halogen_HTML_Properties.value(v.edit_bm.url), Halogen_HTML_Events.onValueChange(function ($122) {
return Halogen_HTML_Events.input(BEditField.create)(Eurl.create($122));
}) ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputText.value), Util.class_("title edit_form_input"), Halogen_HTML_Properties.name("title"), Halogen_HTML_Properties.value(v.edit_bm.title), Halogen_HTML_Events.onValueChange(function ($123) {
return Halogen_HTML_Events.input(BEditField.create)(Etitle.create($123));
}) ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.p([ Util.attr("style")("margin-top:10px;margin-bottom:5px;") ])([ Halogen_HTML_Core.text(" description:") ]), Halogen_HTML_Elements.textarea([ Util.class_("description edit_form_input"), Halogen_HTML_Properties.name("description"), Halogen_HTML_Properties.rows(5), Halogen_HTML_Properties.value(v.edit_bm.description), Halogen_HTML_Events.onValueChange(function ($124) {
return Halogen_HTML_Events.input(BEditField.create)(Edescription.create($124));
}) ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.div([ Halogen_HTML_Properties.id_("tags_input_box") ])([ Halogen_HTML_Elements.p([ Util.attr("style")("margin-top:10px") ])([ Halogen_HTML_Core.text(" tags:"), Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputText.value), Util.class_("tags edit_form_input"), Halogen_HTML_Properties.name("tags"), Halogen_HTML_Properties.autocomplete(false), Util.attr("autocapitalize")("off"), Halogen_HTML_Properties.value(v.edit_bm.tags), Halogen_HTML_Events.onValueChange(function ($125) {
return Halogen_HTML_Events.input(BEditField.create)(Etags.create($125));
}) ]), Halogen_HTML_Elements.br_ ]) ]), Halogen_HTML_Elements.div([ Halogen_HTML_Properties.id_("edit_form_checkboxes") ])([ Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputCheckbox.value), Util.class_("private"), Halogen_HTML_Properties.id_("edit_private"), Halogen_HTML_Properties.name("private"), Halogen_HTML_Properties.checked(v["edit_bm"]["private"]), Halogen_HTML_Events.onChecked(function ($126) {
return Halogen_HTML_Events.input(BEditField.create)(Eprivate.create($126));
}) ]), Halogen_HTML_Core.text(" "), Halogen_HTML_Elements.label([ Halogen_HTML_Properties["for"]("edit_private") ])([ Halogen_HTML_Core.text("private") ]), Halogen_HTML_Core.text(" "), Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputCheckbox.value), Util.class_("toread"), Halogen_HTML_Properties.id_("edit_toread"), Halogen_HTML_Properties.name("toread"), Halogen_HTML_Properties.checked(v.edit_bm.toread), Halogen_HTML_Events.onChecked(function ($127) {
return Halogen_HTML_Events.input(BEditField.create)(Etoread.create($127));
}) ]), Halogen_HTML_Core.text(" "), Halogen_HTML_Elements.label([ Halogen_HTML_Properties["for"]("edit_toread") ])([ Halogen_HTML_Core.text("toread") ]), Halogen_HTML_Elements.br_ ]), Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputSubmit.value), Util.class_("submit edit-button"), Halogen_HTML_Properties.value("save") ]), Halogen_HTML_Core.text(" "), Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputReset.value), Util.class_("reset edit-button"), Halogen_HTML_Properties.value("cancel"), Halogen_HTML_Events.onClick(Halogen_HTML_Events.input_(BEdit.create(false))) ]) ]) ]) ];
var display = [ Halogen_HTML_Elements.div([ Util.class_("display") ])(Data_Semigroup.append(Data_Semigroup.semigroupArray)([ Halogen_HTML_Elements.a([ Halogen_HTML_Properties.href(v.bm.url), Halogen_HTML_Properties.target("_blank"), Util.class_("bookmark_title" + Data_Monoid.guard(Data_Monoid.monoidString)(v.bm.toread)(" unread")) ])([ Halogen_HTML_Core.text((function () {
var $117 = Data_String_Common["null"](v.bm.title);
if ($117) {
return "[no title]";
};
return v.bm.title;
})()) ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.a([ Halogen_HTML_Properties.href(v.bm.url), Util.class_("url_display") ])([ Halogen_HTML_Core.text(v.bm.url) ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.div([ Util.class_("description") ])(toTextarea(v.bm.description)), Halogen_HTML_Elements.div([ Util.class_("tags") ])(Data_Monoid.guard(Data_Monoid.monoidFn(Data_Monoid.monoidFn(Data_Monoid.monoidArray)))(!Data_String_Common["null"](v.bm.tags))(Data_Functor.map(Data_Functor.functorArray))(function (tag) {
return Halogen_HTML_Elements.a([ Util.class_("tag" + Data_Monoid.guard(Data_Monoid.monoidString)(Data_String_CodePoints.take(1)(tag) === ".")(" private")), Halogen_HTML_Properties.href(linkToFilterTag(tag)) ])([ Halogen_HTML_Core.text(tag) ]);
})(Data_String_Common.split(" ")(v.bm.tags))), Halogen_HTML_Elements.a([ Util.class_("when js-moment"), Halogen_HTML_Properties.title(Data_Maybe.maybe(v.bm.time)(Data_Tuple.snd)(mmoment)), Util.attr("data-iso8601")(v.bm.time), Halogen_HTML_Properties.href(linkToFilterSingle(v.bm.bid)) ])([ Halogen_HTML_Core.text(Data_Maybe.maybe("\xa0")(Data_Tuple.fst)(mmoment)) ]) ])(links)) ];
var clearBoth = [ Halogen_HTML_Elements.div([ Util.attr("style")("clear:both") ])([ ]) ];
var bookmark = Halogen_HTML_Elements.div([ Halogen_HTML_Properties.id_(Data_Show.show(Data_Show.showInt)(v.bm.bid)), Util.class_("bookmark" + Data_Monoid.guard(Data_Monoid.monoidString)(v["bm"]["private"])(" private")) ])(Data_Semigroup.append(Data_Semigroup.semigroupArray)(star)((function () {
if (v.edit) {
return display_edit;
};
return Data_Semigroup.append(Data_Semigroup.semigroupArray)(display)(clearBoth);
})()));
return Halogen_HTML_Elements.div_(Data_Semigroup.append(Data_Semigroup.semigroupArray)([ bookmark ])(clearBoth));
};
return Halogen_Component.component(Halogen_HTML_Core.bifunctorHTML)({
initialState: Data_Function["const"](mkState(b$prime)),
render: render,
"eval": $$eval,
receiver: Data_Function["const"](Data_Maybe.Nothing.value)
});
};
exports["BStar"] = BStar;
exports["BDeleteAsk"] = BDeleteAsk;
exports["BDestroy"] = BDestroy;
exports["BEdit"] = BEdit;
exports["BEditField"] = BEditField;
exports["BEditSubmit"] = BEditSubmit;
exports["BMarkRead"] = BMarkRead;
exports["Eurl"] = Eurl;
exports["Etitle"] = Etitle;
exports["Edescription"] = Edescription;
exports["Etags"] = Etags;
exports["Eprivate"] = Eprivate;
exports["Etoread"] = Etoread;
exports["BNotifyRemove"] = BNotifyRemove;
exports["bmark"] = bmark;
})(PS["Component.BMark"] = PS["Component.BMark"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Component_BMark = PS["Component.BMark"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Monad_State_Class = PS["Control.Monad.State.Class"];
var Data_Array = PS["Data.Array"];
var Data_Eq = PS["Data.Eq"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ord = PS["Data.Ord"];
var Data_Unit = PS["Data.Unit"];
var Effect_Aff = PS["Effect.Aff"];
var Halogen = PS["Halogen"];
var Halogen_Component = PS["Halogen.Component"];
var Halogen_HTML = PS["Halogen.HTML"];
var Halogen_HTML_Elements = PS["Halogen.HTML.Elements"];
var Halogen_HTML_Events = PS["Halogen.HTML.Events"];
var Halogen_Query_HalogenM = PS["Halogen.Query.HalogenM"];
var Model = PS["Model"];
var Prelude = PS["Prelude"];
var HandleBMessage = (function () {
function HandleBMessage(value0, value1, value2) {
this.value0 = value0;
this.value1 = value1;
this.value2 = value2;
};
HandleBMessage.create = function (value0) {
return function (value1) {
return function (value2) {
return new HandleBMessage(value0, value1, value2);
};
};
};
return HandleBMessage;
})();
var removeBookmark = function (bookmarkId) {
return function (st) {
return Data_Array.filter(function (b) {
return b.bid !== bookmarkId;
})(st);
};
};
var blist = function (st) {
var renderBookmark = function (b) {
return Halogen_HTML.slot(b.bid)(Component_BMark.bmark(b))(Data_Unit.unit)(Halogen_HTML_Events.input(HandleBMessage.create(b.bid)));
};
var render = function (bms) {
return Halogen_HTML_Elements.div_(Data_Functor.map(Data_Functor.functorArray)(renderBookmark)(bms));
};
var $$eval = function (v) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.modify_(Halogen_Query_HalogenM.monadStateHalogenM)(removeBookmark(v.value0)))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value2);
});
};
return Halogen_Component.parentComponent(Data_Ord.ordInt)({
initialState: Data_Function["const"](st),
render: render,
"eval": $$eval,
receiver: Data_Function["const"](Data_Maybe.Nothing.value)
});
};
exports["HandleBMessage"] = HandleBMessage;
exports["blist"] = blist;
exports["removeBookmark"] = removeBookmark;
})(PS["Component.BList"] = PS["Component.BList"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Monad_Error_Class = PS["Control.Monad.Error.Class"];
var Control_Monad_Reader_Trans = PS["Control.Monad.Reader.Trans"];
var Control_Monad_Trans_Class = PS["Control.Monad.Trans.Class"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Effect_Aff = PS["Effect.Aff"];
var Prelude = PS["Prelude"];
var MonadFork = function (Functor1, Monad0, fork, join, suspend) {
this.Functor1 = Functor1;
this.Monad0 = Monad0;
this.fork = fork;
this.join = join;
this.suspend = suspend;
};
var suspend = function (dict) {
return dict.suspend;
};
var monadForkAff = new MonadFork(function () {
return Effect_Aff.functorFiber;
}, function () {
return Effect_Aff.monadAff;
}, Effect_Aff.forkAff, Effect_Aff.joinFiber, Effect_Aff.suspendAff);
var join = function (dict) {
return dict.join;
};
var fork = function (dict) {
return dict.fork;
};
exports["fork"] = fork;
exports["join"] = join;
exports["suspend"] = suspend;
exports["MonadFork"] = MonadFork;
exports["monadForkAff"] = monadForkAff;
})(PS["Control.Monad.Fork.Class"] = PS["Control.Monad.Fork.Class"] || {});
(function(exports) {
"use strict";
exports.warn = function (s) {
return function () {
console.warn(s);
return {};
};
};
})(PS["Effect.Console"] = PS["Effect.Console"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Effect.Console"];
var Data_Show = PS["Data.Show"];
var Data_Unit = PS["Data.Unit"];
var Effect = PS["Effect"];
exports["warn"] = $foreign.warn;
})(PS["Effect.Console"] = PS["Effect.Console"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_List = PS["Data.List"];
var Data_List_Types = PS["Data.List.Types"];
var Data_Map = PS["Data.Map"];
var Data_Map_Internal = PS["Data.Map.Internal"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Traversable = PS["Data.Traversable"];
var Effect = PS["Effect"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Ref = PS["Effect.Ref"];
var Halogen_Component = PS["Halogen.Component"];
var Halogen_Data_OrdBox = PS["Halogen.Data.OrdBox"];
var Prelude = PS["Prelude"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
var Web_DOM = PS["Web.DOM"];
var unRenderStateX = Unsafe_Coerce.unsafeCoerce;
var unDriverStateX = Unsafe_Coerce.unsafeCoerce;
var renderStateX_ = function (dictApplicative) {
return function (f) {
return unDriverStateX(function (st) {
return Data_Foldable.traverse_(dictApplicative)(Data_Foldable.foldableMaybe)(f)(st.rendering);
});
};
};
var mkRenderStateX = function (v) {
return Unsafe_Coerce.unsafeCoerce;
};
var renderStateX = function (dictFunctor) {
return function (f) {
return unDriverStateX(function (st) {
return mkRenderStateX(st.prjQuery)(f(st.rendering));
});
};
};
var mkDriverStateXRef = Unsafe_Coerce.unsafeCoerce;
var initDriverState = function (component) {
return function (input) {
return function (handler) {
return function (prjQuery) {
return function (lchs) {
return function __do() {
var v = Effect_Ref["new"]({})();
var v1 = Effect_Ref["new"](Data_Map_Internal.empty)();
var v2 = Effect_Ref["new"](Data_Map_Internal.empty)();
var v3 = Effect_Ref["new"](Data_Functor.voidLeft(Data_Maybe.functorMaybe)(component.initializer)(Data_List_Types.Nil.value))();
var v4 = Effect_Ref["new"](new Data_Maybe.Just(Data_List_Types.Nil.value))();
var v5 = Effect_Ref["new"](Data_Maybe.Nothing.value)();
var v6 = Effect_Ref["new"](0)();
var v7 = Effect_Ref["new"](new Data_Maybe.Just(Data_Map_Internal.empty))();
var ds = {
component: component,
state: component.initialState(input),
refs: Data_Map_Internal.empty,
children: Data_Map_Internal.empty,
childrenIn: v1,
childrenOut: v2,
selfRef: v,
handler: handler,
pendingQueries: v3,
pendingOuts: v4,
pendingHandlers: v5,
rendering: Data_Maybe.Nothing.value,
prjQuery: prjQuery,
fresh: v6,
subscriptions: v7,
lifecycleHandlers: lchs
};
Effect_Ref.write(ds)(v)();
return mkDriverStateXRef(v);
};
};
};
};
};
};
exports["unDriverStateX"] = unDriverStateX;
exports["mkDriverStateXRef"] = mkDriverStateXRef;
exports["renderStateX"] = renderStateX;
exports["renderStateX_"] = renderStateX_;
exports["unRenderStateX"] = unRenderStateX;
exports["initDriverState"] = initDriverState;
})(PS["Halogen.Aff.Driver.State"] = PS["Halogen.Aff.Driver.State"] || {});
(function(exports) {
"use strict";
exports.reallyUnsafeRefEq = function (a) {
return function (b) {
return a === b;
};
};
})(PS["Unsafe.Reference"] = PS["Unsafe.Reference"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var $foreign = PS["Unsafe.Reference"];
var unsafeRefEq = $foreign.reallyUnsafeRefEq;
exports["unsafeRefEq"] = unsafeRefEq;
})(PS["Unsafe.Reference"] = PS["Unsafe.Reference"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Applicative_Free = PS["Control.Applicative.Free"];
var Control_Bind = PS["Control.Bind"];
var Control_Coroutine = PS["Control.Coroutine"];
var Control_Monad_Error_Class = PS["Control.Monad.Error.Class"];
var Control_Monad_Fork_Class = PS["Control.Monad.Fork.Class"];
var Control_Monad_Free = PS["Control.Monad.Free"];
var Control_Monad_Free_Trans = PS["Control.Monad.Free.Trans"];
var Control_Monad_Trans_Class = PS["Control.Monad.Trans.Class"];
var Control_Parallel = PS["Control.Parallel"];
var Control_Parallel_Class = PS["Control.Parallel.Class"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Boolean = PS["Data.Boolean"];
var Data_Coyoneda = PS["Data.Coyoneda"];
var Data_Eq = PS["Data.Eq"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_List = PS["Data.List"];
var Data_List_Types = PS["Data.List.Types"];
var Data_Map = PS["Data.Map"];
var Data_Map_Internal = PS["Data.Map.Internal"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ord = PS["Data.Ord"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Set = PS["Data.Set"];
var Data_Tuple = PS["Data.Tuple"];
var Effect = PS["Effect"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Class = PS["Effect.Class"];
var Effect_Exception = PS["Effect.Exception"];
var Effect_Ref = PS["Effect.Ref"];
var Halogen_Aff_Driver_State = PS["Halogen.Aff.Driver.State"];
var Halogen_Data_OrdBox = PS["Halogen.Data.OrdBox"];
var Halogen_Query_EventSource = PS["Halogen.Query.EventSource"];
var Halogen_Query_ForkF = PS["Halogen.Query.ForkF"];
var Halogen_Query_HalogenM = PS["Halogen.Query.HalogenM"];
var Halogen_Query_InputF = PS["Halogen.Query.InputF"];
var Prelude = PS["Prelude"];
var Unsafe_Reference = PS["Unsafe.Reference"];
var queuingHandler = function (handler) {
return function (ref) {
return function (message) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.read(ref)))(function (v) {
if (v instanceof Data_Maybe.Nothing) {
return handler(message);
};
if (v instanceof Data_Maybe.Just) {
return Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.write(new Data_Maybe.Just(new Data_List_Types.Cons(handler(message), v.value0)))(ref));
};
throw new Error("Failed pattern match at Halogen.Aff.Driver.Eval line 171, column 3 - line 175, column 59: " + [ v.constructor.name ]);
});
};
};
};
var handleLifecycle = function (lchs) {
return function (f) {
return Control_Bind.discard(Control_Bind.discardUnit)(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.write({
initializers: Data_List_Types.Nil.value,
finalizers: Data_List_Types.Nil.value
})(lchs)))(function () {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(f))(function (v) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.read(lchs)))(function (v1) {
return Control_Bind.discard(Control_Bind.discardUnit)(Effect_Aff.bindAff)(Data_Foldable.traverse_(Effect_Aff.applicativeAff)(Data_List_Types.foldableList)(Control_Monad_Fork_Class.fork(Control_Monad_Fork_Class.monadForkAff))(v1.finalizers))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Effect_Aff.bindAff)(Control_Parallel.parSequence_(Effect_Aff.parallelAff)(Data_List_Types.foldableList)(v1.initializers))(function () {
return Control_Applicative.pure(Effect_Aff.applicativeAff)(v);
});
});
});
});
});
};
};
var $$eval = function (render) {
return function (r) {
var go = function (ref) {
return function (v) {
if (v instanceof Halogen_Query_HalogenM.State) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.read(ref)))(function (v1) {
var v2 = v.value0(v1.state);
if (Unsafe_Reference.unsafeRefEq(v1.state)(v2.value1)) {
return Control_Applicative.pure(Effect_Aff.applicativeAff)(v2.value0);
};
if (Data_Boolean.otherwise) {
return Control_Bind.discard(Control_Bind.discardUnit)(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.write({
component: v1.component,
state: v2.value1,
refs: v1.refs,
children: v1.children,
childrenIn: v1.childrenIn,
childrenOut: v1.childrenOut,
selfRef: v1.selfRef,
handler: v1.handler,
pendingQueries: v1.pendingQueries,
pendingOuts: v1.pendingOuts,
pendingHandlers: v1.pendingHandlers,
rendering: v1.rendering,
prjQuery: v1.prjQuery,
fresh: v1.fresh,
subscriptions: v1.subscriptions,
lifecycleHandlers: v1.lifecycleHandlers
})(ref)))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Effect_Aff.bindAff)(handleLifecycle(v1.lifecycleHandlers)(render(v1.lifecycleHandlers)(ref)))(function () {
return Control_Applicative.pure(Effect_Aff.applicativeAff)(v2.value0);
});
});
};
throw new Error("Failed pattern match at Halogen.Aff.Driver.Eval line 76, column 7 - line 82, column 21: " + [ v2.constructor.name ]);
});
};
if (v instanceof Halogen_Query_HalogenM.Subscribe) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.read(ref)))(function (v1) {
return Control_Bind.bind(Effect_Aff.bindAff)(Control_Monad_Fork_Class.fork(Control_Monad_Fork_Class.monadForkAff)(Control_Bind.bind(Effect_Aff.bindAff)(Halogen_Query_EventSource.unEventSource(v.value0))(function (v2) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref["modify'"](function (i) {
return {
state: i + 1 | 0,
value: i
};
})(v1.fresh)))(function (v3) {
var done$prime = Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.read(v1.subscriptions)))(function (v4) {
return Control_Applicative.when(Effect_Aff.applicativeAff)(Data_Maybe.maybe(false)(Data_Map_Internal.member(Data_Ord.ordInt)(v3))(v4))(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.modify_(Data_Functor.map(Data_Maybe.functorMaybe)(Data_Map_Internal["delete"](Data_Ord.ordInt)(v3)))(v1.subscriptions)));
});
return Control_Bind.discard(Control_Bind.discardUnit)(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.modify_(Data_Functor.map(Data_Maybe.functorMaybe)(Data_Map_Internal.insert(Data_Ord.ordInt)(v3)(done$prime)))(v1.subscriptions)))(function () {
var consumer = Control_Bind.bind(Control_Monad_Free_Trans.bindFreeT(Control_Coroutine.functorAwait)(Effect_Aff.monadAff))(Control_Coroutine["await"](Effect_Aff.monadAff))(function (v4) {
return Control_Bind.bind(Control_Monad_Free_Trans.bindFreeT(Control_Coroutine.functorAwait)(Effect_Aff.monadAff))(Control_Monad_Trans_Class.lift(Control_Monad_Free_Trans.monadTransFreeT(Control_Coroutine.functorAwait))(Effect_Aff.monadAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.read(v1.subscriptions))))(function (v5) {
return Control_Applicative.when(Control_Monad_Free_Trans.applicativeFreeT(Control_Coroutine.functorAwait)(Effect_Aff.monadAff))(Data_Maybe.isJust(v5))(Control_Bind.bind(Control_Monad_Free_Trans.bindFreeT(Control_Coroutine.functorAwait)(Effect_Aff.monadAff))(Control_Monad_Trans_Class.lift(Control_Monad_Free_Trans.monadTransFreeT(Control_Coroutine.functorAwait))(Effect_Aff.monadAff)(evalF(ref)(v4)))(function (v6) {
return Control_Applicative.when(Control_Monad_Free_Trans.applicativeFreeT(Control_Coroutine.functorAwait)(Effect_Aff.monadAff))(Data_Eq.eq(Halogen_Query_EventSource.eqSubscribeStatus)(v6)(Halogen_Query_EventSource.Listening.value))(consumer);
}));
});
});
return Control_Bind.discard(Control_Bind.discardUnit)(Effect_Aff.bindAff)(Control_Coroutine.runProcess(Effect_Aff.monadRecAff)(Control_Coroutine.pullFrom(Effect_Aff.monadRecAff)(consumer)(v2.producer)))(function () {
return done$prime;
});
});
});
})))(function (v2) {
return Control_Applicative.pure(Effect_Aff.applicativeAff)(v.value1);
});
});
};
if (v instanceof Halogen_Query_HalogenM.Lift) {
return v.value0;
};
if (v instanceof Halogen_Query_HalogenM.Halt) {
return Control_Monad_Error_Class.throwError(Effect_Aff.monadThrowAff)(Effect_Exception.error(v.value0));
};
if (v instanceof Halogen_Query_HalogenM.GetSlots) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.read(ref)))(function (v1) {
return Control_Applicative.pure(Effect_Aff.applicativeAff)(v.value0(Data_Functor.map(Data_List_Types.functorList)(Halogen_Data_OrdBox.unOrdBox)(Data_List.fromFoldable(Data_Set.foldableSet)(Data_Map.keys(v1.children)))));
});
};
if (v instanceof Halogen_Query_HalogenM.CheckSlot) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.read(ref)))(function (v1) {
return Control_Applicative.pure(Effect_Aff.applicativeAff)(v.value1(Data_Map_Internal.member(Halogen_Data_OrdBox.ordOrdBox)(v1.component.mkOrdBox(v.value0))(v1.children)));
});
};
if (v instanceof Halogen_Query_HalogenM.ChildQuery) {
return evalChildQuery(ref)(v.value0)(v.value1);
};
if (v instanceof Halogen_Query_HalogenM.Raise) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.read(ref)))(function (v1) {
return Control_Bind.discard(Control_Bind.discardUnit)(Effect_Aff.bindAff)(queuingHandler(v1.handler)(v1.pendingOuts)(v.value0))(function () {
return Control_Applicative.pure(Effect_Aff.applicativeAff)(v.value1);
});
});
};
if (v instanceof Halogen_Query_HalogenM.Par) {
return Control_Parallel_Class.sequential(Effect_Aff.parallelAff)(Control_Applicative_Free.retractFreeAp(Effect_Aff.applicativeParAff)(Control_Applicative_Free.hoistFreeAp(function ($103) {
return Control_Parallel_Class.parallel(Effect_Aff.parallelAff)(evalM(ref)($103));
})(v.value0)));
};
if (v instanceof Halogen_Query_HalogenM.Fork) {
return Halogen_Query_ForkF.unFork(function (v1) {
return Control_Bind.bind(Effect_Aff.bindAff)(Control_Monad_Fork_Class.fork(Control_Monad_Fork_Class.monadForkAff)(evalM(ref)(v1.value0)))(function (v2) {
return Control_Applicative.pure(Effect_Aff.applicativeAff)(v1.value1(Data_Function.flip(Effect_Aff.killFiber)(v2)));
});
})(v.value0);
};
if (v instanceof Halogen_Query_HalogenM.GetRef) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.read(ref)))(function (v1) {
return Control_Applicative.pure(Effect_Aff.applicativeAff)(v.value1(Data_Map_Internal.lookup(Data_Ord.ordString)(v.value0)(v1.refs)));
});
};
throw new Error("Failed pattern match at Halogen.Aff.Driver.Eval line 73, column 12 - line 128, column 33: " + [ v.constructor.name ]);
};
};
var evalM = function (ref) {
return function (v) {
return Control_Monad_Free.foldFree(Effect_Aff.monadRecAff)(go(ref))(v);
};
};
var evalF = function (ref) {
return function (q) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.read(ref)))(function (v) {
var v1 = v["component"]["eval"](q);
return Control_Monad_Free.foldFree(Effect_Aff.monadRecAff)(go(ref))(v1);
});
};
};
var evalChildQuery = function (ref) {
return function (p) {
return Data_Coyoneda.unCoyoneda(function (k) {
return function (q) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.read(ref)))(function (v) {
var v1 = Data_Map_Internal.lookup(Halogen_Data_OrdBox.ordOrdBox)(v.component.mkOrdBox(p))(v.children);
if (v1 instanceof Data_Maybe.Just) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.read(v1.value0)))(function (v2) {
return Halogen_Aff_Driver_State.unDriverStateX(function (ds) {
var v3 = ds.prjQuery(q);
if (v3 instanceof Data_Maybe.Just) {
return Data_Functor.map(Effect_Aff.functorAff)(k)(evalF(ds.selfRef)(v3.value0));
};
if (v3 instanceof Data_Maybe.Nothing) {
return Control_Monad_Error_Class.throwError(Effect_Aff.monadThrowAff)(Effect_Exception.error("Query projection failed for child query"));
};
throw new Error("Failed pattern match at Halogen.Aff.Driver.Eval line 141, column 32 - line 143, column 82: " + [ v3.constructor.name ]);
})(v2);
});
};
if (v1 instanceof Data_Maybe.Nothing) {
return Control_Monad_Error_Class.throwError(Effect_Aff.monadThrowAff)(Effect_Exception.error("Slot lookup failed for child query"));
};
throw new Error("Failed pattern match at Halogen.Aff.Driver.Eval line 138, column 5 - line 144, column 73: " + [ v1.constructor.name ]);
});
};
});
};
};
return function (v) {
if (v instanceof Halogen_Query_InputF.RefUpdate) {
return Control_Bind.discard(Control_Bind.discardUnit)(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.modify_(function (v1) {
return {
component: v1.component,
state: v1.state,
refs: Data_Map_Internal.alter(Data_Ord.ordString)(Data_Function["const"](v.value1))(v.value0)(v1.refs),
children: v1.children,
childrenIn: v1.childrenIn,
childrenOut: v1.childrenOut,
selfRef: v1.selfRef,
handler: v1.handler,
pendingQueries: v1.pendingQueries,
pendingOuts: v1.pendingOuts,
pendingHandlers: v1.pendingHandlers,
rendering: v1.rendering,
prjQuery: v1.prjQuery,
fresh: v1.fresh,
subscriptions: v1.subscriptions,
lifecycleHandlers: v1.lifecycleHandlers
};
})(r)))(function () {
return Control_Applicative.pure(Effect_Aff.applicativeAff)(v.value2);
});
};
if (v instanceof Halogen_Query_InputF.Query) {
return evalF(r)(v.value0);
};
throw new Error("Failed pattern match at Halogen.Aff.Driver.Eval line 59, column 3 - line 64, column 25: " + [ v.constructor.name ]);
};
};
};
exports["handleLifecycle"] = handleLifecycle;
exports["eval"] = $$eval;
exports["queuingHandler"] = queuingHandler;
})(PS["Halogen.Aff.Driver.Eval"] = PS["Halogen.Aff.Driver.Eval"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Coroutine = PS["Control.Coroutine"];
var Control_Monad_Fork_Class = PS["Control.Monad.Fork.Class"];
var Control_Monad_Rec_Class = PS["Control.Monad.Rec.Class"];
var Control_Parallel = PS["Control.Parallel"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Either = PS["Data.Either"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_List = PS["Data.List"];
var Data_List_Types = PS["Data.List.Types"];
var Data_Map = PS["Data.Map"];
var Data_Map_Internal = PS["Data.Map.Internal"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ord = PS["Data.Ord"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Traversable = PS["Data.Traversable"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unit = PS["Data.Unit"];
var Effect = PS["Effect"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Aff_AVar = PS["Effect.Aff.AVar"];
var Effect_Class = PS["Effect.Class"];
var Effect_Console = PS["Effect.Console"];
var Effect_Exception = PS["Effect.Exception"];
var Effect_Ref = PS["Effect.Ref"];
var Halogen = PS["Halogen"];
var Halogen_Aff_Driver_Eval = PS["Halogen.Aff.Driver.Eval"];
var Halogen_Aff_Driver_State = PS["Halogen.Aff.Driver.State"];
var Halogen_Component = PS["Halogen.Component"];
var Halogen_Data_OrdBox = PS["Halogen.Data.OrdBox"];
var Halogen_Query_InputF = PS["Halogen.Query.InputF"];
var Prelude = PS["Prelude"];
var newLifecycleHandlers = Effect_Ref["new"]({
initializers: Data_List_Types.Nil.value,
finalizers: Data_List_Types.Nil.value
});
var handleAff = Effect_Aff.runAff_(Data_Either.either(Effect_Exception.throwException)(Data_Function["const"](Control_Applicative.pure(Effect.applicativeEffect)(Data_Unit.unit))));
var runUI = function (renderSpec) {
return function (component) {
return function (i) {
var subscribe = function (fresh) {
return function (ref) {
return function (consumer) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Aff_AVar.empty)(function (v) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(function __do() {
var v1 = Effect_Ref.read(fresh)();
Effect_Ref.modify_(function (v2) {
return v2 + 1 | 0;
})(fresh)();
Effect_Ref.modify_(Data_Map_Internal.insert(Data_Ord.ordInt)(v1)(v))(ref)();
return v1;
}))(function (v1) {
var producer = Control_Coroutine.producer(Effect_Aff.monadAff)(Data_Functor.map(Effect_Aff.functorAff)(Data_Either.Left.create)(Effect_Aff_AVar.take(v)));
return Data_Functor["void"](Effect_Aff.functorAff)(Control_Monad_Fork_Class.fork(Control_Monad_Fork_Class.monadForkAff)(Control_Bind.discard(Control_Bind.discardUnit)(Effect_Aff.bindAff)(Control_Coroutine.runProcess(Effect_Aff.monadRecAff)(Control_Coroutine.connect(Effect_Aff.monadRecAff)(Effect_Aff.parallelAff)(producer)(consumer)))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.modify_(Data_Map_Internal["delete"](Data_Ord.ordInt)(v1))(ref)))(function () {
return Effect_Aff_AVar.kill(Effect_Exception.error("ended"))(v);
});
})));
});
});
};
};
};
var rootHandler = function (ref) {
return function (message) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref.read(ref)))(function (v) {
return Data_Foldable.traverse_(Effect_Aff.applicativeAff)(Data_Map_Internal.foldableMap)(Control_Monad_Fork_Class.fork(Control_Monad_Fork_Class.monadForkAff))(Data_Functor.map(Data_Map_Internal.functorMap)(Effect_Aff_AVar.put(message))(v));
});
};
};
var handlePending = function (ref) {
return function __do() {
var v = Effect_Ref.read(ref)();
Effect_Ref.write(Data_Maybe.Nothing.value)(ref)();
return Data_Foldable.for_(Effect.applicativeEffect)(Data_Foldable.foldableMaybe)(v)(function ($63) {
return handleAff(Data_Foldable.traverse_(Effect_Aff.applicativeAff)(Data_List_Types.foldableList)(Control_Monad_Fork_Class.fork(Control_Monad_Fork_Class.monadForkAff))(Data_List.reverse($63)));
})();
};
};
var cleanupSubscriptions = function (v) {
return function __do() {
Control_Bind.bindFlipped(Effect.bindEffect)(Data_Foldable.traverse_(Effect.applicativeEffect)(Data_Foldable.foldableMaybe)(function ($64) {
return handleAff(Data_Foldable.traverse_(Effect_Aff.applicativeAff)(Data_Map_Internal.foldableMap)(Control_Monad_Fork_Class.fork(Control_Monad_Fork_Class.monadForkAff))($64));
}))(Effect_Ref.read(v.subscriptions))();
return Effect_Ref.write(Data_Maybe.Nothing.value)(v.subscriptions)();
};
};
var squashChildInitializers = function (lchs) {
return function (preInits) {
return Halogen_Aff_Driver_State.unDriverStateX(function (st) {
var parentInitializer = Data_Functor.map(Data_Maybe.functorMaybe)(function ($65) {
return evalF(st.selfRef)(Halogen_Query_InputF.Query.create($65));
})(st.component.initializer);
return Effect_Ref.modify_(function (handlers) {
return {
initializers: new Data_List_Types.Cons(Control_Bind.discard(Control_Bind.discardUnit)(Effect_Aff.bindAff)(Control_Parallel.parSequence_(Effect_Aff.parallelAff)(Data_List_Types.foldableList)(Data_List.reverse(handlers.initializers)))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Effect_Aff.bindAff)(Data_Foldable.sequence_(Effect_Aff.applicativeAff)(Data_Foldable.foldableMaybe)(parentInitializer))(function () {
return Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(function __do() {
handlePending(st.pendingQueries)();
return handlePending(st.pendingOuts)();
});
});
}), preInits),
finalizers: handlers.finalizers
};
})(lchs);
});
};
};
var runComponent = function (lchs) {
return function (handler) {
return function (j) {
return function (prjQuery) {
return Halogen_Component.unComponent(function (c) {
return function __do() {
var v = newLifecycleHandlers();
var v1 = Halogen_Aff_Driver_State.initDriverState(c)(j)(handler)(prjQuery)(v)();
var v2 = Effect_Ref.read(lchs)();
Effect_Ref.write({
initializers: Data_List_Types.Nil.value,
finalizers: v2.finalizers
})(lchs)();
Control_Bind.bindFlipped(Effect.bindEffect)(Halogen_Aff_Driver_State.unDriverStateX(function ($66) {
return render(lchs)((function (v3) {
return v3.selfRef;
})($66));
}))(Effect_Ref.read(v1))();
Control_Bind.bindFlipped(Effect.bindEffect)(squashChildInitializers(lchs)(v2.initializers))(Effect_Ref.read(v1))();
return v1;
};
});
};
};
};
};
var renderChild = function (lchs) {
return function (handler) {
return function (mkOrdBox) {
return function (childrenInRef) {
return function (childrenOutRef) {
return Halogen_Component.unComponentSlot(function (p) {
return function (ctor) {
return function (input) {
return function (inputQuery) {
return function (outputQuery) {
return function (prjQuery) {
var ordP = mkOrdBox(p);
return function __do() {
var v = Effect_Ref.read(childrenInRef)();
var v1 = (function () {
var v1 = Data_Map_Internal.pop(Halogen_Data_OrdBox.ordOrdBox)(ordP)(v);
if (v1 instanceof Data_Maybe.Just) {
Effect_Ref.write(v1.value0.value1)(childrenInRef)();
Data_Foldable.for_(Effect.applicativeEffect)(Data_Foldable.foldableMaybe)(inputQuery(input))(function (q) {
return function __do() {
var v2 = Effect_Ref.read(v1.value0.value0)();
return Halogen_Aff_Driver_State.unDriverStateX(function (st) {
return Data_Foldable.for_(Effect.applicativeEffect)(Data_Foldable.foldableMaybe)(st.prjQuery(q))(function ($67) {
return handleAff(evalF(st.selfRef)(Halogen_Query_InputF.Query.create($67)));
});
})(v2)();
};
})();
return v1.value0.value0;
};
if (v1 instanceof Data_Maybe.Nothing) {
return runComponent(lchs)(function ($68) {
return Data_Maybe.maybe(Control_Applicative.pure(Effect_Aff.applicativeAff)(Data_Unit.unit))(handler)(outputQuery($68));
})(input)(prjQuery)(ctor)();
};
throw new Error("Failed pattern match at Halogen.Aff.Driver line 258, column 14 - line 266, column 92: " + [ v1.constructor.name ]);
})();
var v2 = Data_Functor.map(Effect.functorEffect)(Data_Map_Internal.member(Halogen_Data_OrdBox.ordOrdBox)(ordP))(Effect_Ref.read(childrenOutRef))();
Control_Applicative.when(Effect.applicativeEffect)(v2)(Effect_Console.warn("Halogen: Duplicate slot address was detected during rendering, unexpected results may occur"))();
Effect_Ref.modify_(Data_Map_Internal.insert(Halogen_Data_OrdBox.ordOrdBox)(ordP)(v1))(childrenOutRef)();
return Control_Bind.bind(Effect.bindEffect)(Effect_Ref.read(v1))(Halogen_Aff_Driver_State.renderStateX(Effect.functorEffect)(function (v3) {
if (v3 instanceof Data_Maybe.Nothing) {
return Effect_Exception["throw"]("Halogen internal error: child was not initialized in renderChild");
};
if (v3 instanceof Data_Maybe.Just) {
return Control_Applicative.pure(Effect.applicativeEffect)(renderSpec.renderChild(v3.value0));
};
throw new Error("Failed pattern match at Halogen.Aff.Driver line 271, column 37 - line 273, column 50: " + [ v3.constructor.name ]);
}))();
};
};
};
};
};
};
});
};
};
};
};
};
var render = function (lchs) {
return function ($$var) {
return function __do() {
var v = Effect_Ref.read($$var)();
var v1 = Data_Functor.map(Effect.functorEffect)(Data_Maybe.isNothing)(Effect_Ref.read(v.pendingHandlers))();
Control_Applicative.when(Effect.applicativeEffect)(v1)(Effect_Ref.write(new Data_Maybe.Just(Data_List_Types.Nil.value))(v.pendingHandlers))();
Effect_Ref.write(Data_Map_Internal.empty)(v.childrenOut)();
Effect_Ref.write(v.children)(v.childrenIn)();
var handler = Halogen_Aff_Driver_Eval.queuingHandler(function ($69) {
return Data_Functor["void"](Effect_Aff.functorAff)(evalF(v.selfRef)($69));
})(v.pendingHandlers);
var childHandler = Halogen_Aff_Driver_Eval.queuingHandler(function ($70) {
return handler(Halogen_Query_InputF.Query.create($70));
})(v.pendingQueries);
var v2 = renderSpec.render(function ($71) {
return handleAff(handler($71));
})(renderChild(lchs)(childHandler)(v.component.mkOrdBox)(v.childrenIn)(v.childrenOut))(v.component.render(v.state))(v.rendering)();
var v3 = Effect_Ref.read(v.childrenOut)();
Control_Bind.bind(Effect.bindEffect)(Effect_Ref.read(v.childrenIn))(Data_Foldable.traverse_(Effect.applicativeEffect)(Data_Map_Internal.foldableMap)(function (childVar) {
return function __do() {
var v4 = Effect_Ref.read(childVar)();
Halogen_Aff_Driver_State.renderStateX_(Effect.applicativeEffect)(renderSpec.removeChild)(v4)();
return finalize(lchs)(v4)();
};
}))();
Effect_Ref.modify_(function (v4) {
return {
rendering: new Data_Maybe.Just(v2),
children: v3,
component: v4.component,
state: v4.state,
refs: v4.refs,
childrenIn: v4.childrenIn,
childrenOut: v4.childrenOut,
selfRef: v4.selfRef,
handler: v4.handler,
pendingQueries: v4.pendingQueries,
pendingOuts: v4.pendingOuts,
pendingHandlers: v4.pendingHandlers,
prjQuery: v4.prjQuery,
fresh: v4.fresh,
subscriptions: v4.subscriptions,
lifecycleHandlers: v4.lifecycleHandlers
};
})(v.selfRef)();
return Control_Applicative.when(Effect.applicativeEffect)(v1)(Data_Function.flip(Control_Monad_Rec_Class.tailRecM(Control_Monad_Rec_Class.monadRecEffect))(Data_Unit.unit)(function (v4) {
return function __do() {
var v5 = Effect_Ref.read(v.pendingHandlers)();
Effect_Ref.write(new Data_Maybe.Just(Data_List_Types.Nil.value))(v.pendingHandlers)();
Data_Foldable.traverse_(Effect.applicativeEffect)(Data_Foldable.foldableMaybe)(function ($72) {
return handleAff(Data_Foldable.traverse_(Effect_Aff.applicativeAff)(Data_List_Types.foldableList)(Control_Monad_Fork_Class.fork(Control_Monad_Fork_Class.monadForkAff))(Data_List.reverse($72)));
})(v5)();
var v6 = Effect_Ref.read(v.pendingHandlers)();
var $57 = Data_Maybe.maybe(false)(Data_List["null"])(v6);
if ($57) {
return Data_Functor.voidLeft(Effect.functorEffect)(Effect_Ref.write(Data_Maybe.Nothing.value)(v.pendingHandlers))(new Control_Monad_Rec_Class.Done(Data_Unit.unit))();
};
return new Control_Monad_Rec_Class.Loop(Data_Unit.unit);
};
}))();
};
};
};
var finalize = function (lchs) {
return Halogen_Aff_Driver_State.unDriverStateX(function (st) {
return function __do() {
cleanupSubscriptions(st)();
Data_Foldable.for_(Effect.applicativeEffect)(Data_Foldable.foldableMaybe)(Data_Functor.map(Data_Maybe.functorMaybe)(function ($73) {
return evalF(st.selfRef)(Halogen_Query_InputF.Query.create($73));
})(st.component.finalizer))(function (f) {
return Effect_Ref.modify_(function (handlers) {
return {
initializers: handlers.initializers,
finalizers: new Data_List_Types.Cons(f, handlers.finalizers)
};
})(lchs);
})();
return Data_Foldable.for_(Effect.applicativeEffect)(Data_Map_Internal.foldableMap)(st.children)(Control_Bind.composeKleisliFlipped(Effect.bindEffect)(finalize(lchs))(Effect_Ref.read))();
};
});
};
var evalF = function (ref) {
return Halogen_Aff_Driver_Eval["eval"](render)(ref);
};
var evalDriver = function (ref) {
return function (prjQuery) {
return function (q) {
var v = prjQuery(q);
if (v instanceof Data_Maybe.Just) {
return evalF(ref)(new Halogen_Query_InputF.Query(v.value0));
};
if (v instanceof Data_Maybe.Nothing) {
return Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Exception.throwException(Effect_Exception.error("Halogen internal error: query projection failed in runUI'")));
};
throw new Error("Failed pattern match at Halogen.Aff.Driver line 136, column 5 - line 138, column 113: " + [ v.constructor.name ]);
};
};
};
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(newLifecycleHandlers))(function (v) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Effect_Ref["new"](0)))(function (v1) {
return Halogen_Aff_Driver_Eval.handleLifecycle(v)(function __do() {
var v2 = Effect_Ref["new"](Data_Map_Internal.empty)();
return Control_Bind.bind(Effect.bindEffect)(Control_Bind.bind(Effect.bindEffect)(runComponent(v)(rootHandler(v2))(i)(Data_Maybe.Just.create)(component))(Effect_Ref.read))(Halogen_Aff_Driver_State.unDriverStateX(function (st) {
return Control_Applicative.pure(Effect.applicativeEffect)({
query: evalDriver(st.selfRef)(st.prjQuery),
subscribe: subscribe(v1)(v2)
});
}))();
});
});
});
};
};
};
exports["runUI"] = runUI;
})(PS["Halogen.Aff.Driver"] = PS["Halogen.Aff.Driver"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Monad_Error_Class = PS["Control.Monad.Error.Class"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Either = PS["Data.Either"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Unit = PS["Data.Unit"];
var Effect = PS["Effect"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Class = PS["Effect.Class"];
var Effect_Exception = PS["Effect.Exception"];
var Prelude = PS["Prelude"];
var Web_DOM_ParentNode = PS["Web.DOM.ParentNode"];
var Web_Event_EventTarget = PS["Web.Event.EventTarget"];
var Web_HTML = PS["Web.HTML"];
var Web_HTML_Event_EventTypes = PS["Web.HTML.Event.EventTypes"];
var Web_HTML_HTMLDocument = PS["Web.HTML.HTMLDocument"];
var Web_HTML_HTMLDocument_ReadyState = PS["Web.HTML.HTMLDocument.ReadyState"];
var Web_HTML_HTMLElement = PS["Web.HTML.HTMLElement"];
var Web_HTML_Window = PS["Web.HTML.Window"];
var selectElement = function (query) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Control_Bind.bindFlipped(Effect.bindEffect)(Control_Bind.composeKleisliFlipped(Effect.bindEffect)(function ($12) {
return Web_DOM_ParentNode.querySelector(query)(Web_HTML_HTMLDocument.toParentNode($12));
})(Web_HTML_Window.document))(Web_HTML.window)))(function (v) {
return Control_Applicative.pure(Effect_Aff.applicativeAff)(Control_Bind.bindFlipped(Data_Maybe.bindMaybe)(Web_HTML_HTMLElement.fromElement)(v));
});
};
var runHalogenAff = Effect_Aff.runAff_(Data_Either.either(Effect_Exception.throwException)(Data_Function["const"](Control_Applicative.pure(Effect.applicativeEffect)(Data_Unit.unit))));
exports["selectElement"] = selectElement;
exports["runHalogenAff"] = runHalogenAff;
})(PS["Halogen.Aff.Util"] = PS["Halogen.Aff.Util"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Data_Array = PS["Data.Array"];
var Data_Eq = PS["Data.Eq"];
var Data_Function_Uncurried = PS["Data.Function.Uncurried"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Nullable = PS["Data.Nullable"];
var Data_Tuple = PS["Data.Tuple"];
var Effect = PS["Effect"];
var Effect_Uncurried = PS["Effect.Uncurried"];
var Halogen_VDom_Machine = PS["Halogen.VDom.Machine"];
var Halogen_VDom_Types = PS["Halogen.VDom.Types"];
var Halogen_VDom_Util = PS["Halogen.VDom.Util"];
var Prelude = PS["Prelude"];
var Web_DOM_Document = PS["Web.DOM.Document"];
var Web_DOM_Element = PS["Web.DOM.Element"];
var Web_DOM_Node = PS["Web.DOM.Node"];
var eqElemSpec = function (a, b) {
if (a.value1 === b.value1) {
if (a.value0 instanceof Data_Maybe.Just && (b.value0 instanceof Data_Maybe.Just && a.value0.value0 === b.value0.value0)) {
return true;
};
if (a.value0 instanceof Data_Maybe.Nothing && b.value0 instanceof Data_Maybe.Nothing) {
return true;
};
return false;
};
return false;
};
var buildWidget = (function () {
var patch = function (build, v) {
return function (v1) {
if (v1 instanceof Halogen_VDom_Types.Grafted) {
return patch(build, v)(Halogen_VDom_Types.runGraft(v1.value0));
};
if (v1 instanceof Halogen_VDom_Types.Widget) {
var v2 = v.value1(v1.value0);
return new Halogen_VDom_Machine.Step(v2.value0, patch(build, v2), v2.value2);
};
v.value2();
return build(v1);
};
};
var render = function (v, build, w) {
var v1 = v.buildWidget(v)(w);
return new Halogen_VDom_Machine.Step(v1.value0, patch(build, v1), v1.value2);
};
return render;
})();
var buildText = (function () {
var patch = function (build, halt, node, s1) {
return function (v) {
if (v instanceof Halogen_VDom_Types.Grafted) {
return patch(build, halt, node, s1)(Halogen_VDom_Types.runGraft(v.value0));
};
if (v instanceof Halogen_VDom_Types.Text) {
var res = new Halogen_VDom_Machine.Step(node, patch(build, halt, node, v.value0), halt);
var $84 = s1 === v.value0;
if ($84) {
return res;
};
Halogen_VDom_Util.setTextContent(v.value0, node);
return res;
};
halt();
return build(v);
};
};
var done = function (node) {
return function __do() {
var v = Halogen_VDom_Util.parentNode(node);
return Halogen_VDom_Util.removeChild(node, v);
};
};
var render = function (v, build, s) {
var v1 = Halogen_VDom_Util.createTextNode(s, v.document);
var halt = done(v1);
return new Halogen_VDom_Machine.Step(v1, patch(build, halt, v1, s), halt);
};
return render;
})();
var buildKeyed = (function () {
var done = function (node, attrs, steps) {
return function __do() {
var v = Halogen_VDom_Util.parentNode(node);
Halogen_VDom_Util.removeChild(node, v);
Halogen_VDom_Util.forInE(steps, function (v1, v2) {
return v2.value2();
});
return Halogen_VDom_Machine.halt(attrs)();
};
};
var patch = function (build, halt, node, attrs, v, ch1, len1) {
return function (v1) {
if (v1 instanceof Halogen_VDom_Types.Grafted) {
return patch(build, halt, node, attrs, v, ch1, len1)(Halogen_VDom_Types.runGraft(v1.value0));
};
if (v1 instanceof Halogen_VDom_Types.Keyed && eqElemSpec(v, v1.value0)) {
var v2 = Data_Array.length(v1.value1);
if (len1 === 0 && v2 === 0) {
var v4 = Halogen_VDom_Machine.step(attrs)(v1.value0.value2);
var halt$prime = done(node, v4, ch1);
return new Halogen_VDom_Machine.Step(node, patch(build, halt$prime, node, v4, v1.value0, ch1, 0), halt$prime);
};
var onThis = function (v4, v5) {
return v5.value2();
};
var onThese = function (v4, ix$prime, v5, v6) {
var v7 = v5.value1(v6.value1);
Halogen_VDom_Util.insertChildIx(ix$prime, v7.value0, node);
return v7;
};
var onThat = function (v4, ix, v5) {
var v6 = build(v5.value1);
Halogen_VDom_Util.insertChildIx(ix, v6.value0, node);
return v6;
};
var v4 = Halogen_VDom_Util.diffWithKeyAndIxE(ch1, v1.value1, Data_Tuple.fst, onThese, onThis, onThat);
var v5 = Halogen_VDom_Machine.step(attrs)(v1.value0.value2);
var halt$prime = done(node, v5, v4);
return new Halogen_VDom_Machine.Step(node, patch(build, halt$prime, node, v5, v1.value0, v4, v2), halt$prime);
};
halt();
return build(v1);
};
};
var render = function (v, build, v1, ch1) {
var v2 = Halogen_VDom_Util.createElement(Data_Nullable.toNullable(v1.value0), v1.value1, v.document);
var node = Web_DOM_Element.toNode(v2);
var onChild = function (k, ix, v3) {
var v4 = build(v3.value1);
Halogen_VDom_Util.insertChildIx(ix, v4.value0, node);
return v4;
};
var v3 = Halogen_VDom_Util.strMapWithIxE(ch1, Data_Tuple.fst, onChild);
var v4 = v.buildAttributes(v2)(v1.value2);
var halt = done(node, v4, v3);
return new Halogen_VDom_Machine.Step(node, patch(build, halt, node, v4, v1, v3, Data_Array.length(ch1)), halt);
};
return render;
})();
var buildElem = (function () {
var done = function (node, attrs, steps) {
return function __do() {
var v = Halogen_VDom_Util.parentNode(node);
Halogen_VDom_Util.removeChild(node, v);
Effect.foreachE(steps)(Halogen_VDom_Machine.halt)();
return Halogen_VDom_Machine.halt(attrs)();
};
};
var patch = function (build, halt, node, attrs, v, ch1) {
return function (v1) {
if (v1 instanceof Halogen_VDom_Types.Grafted) {
return patch(build, halt, node, attrs, v, ch1)(Halogen_VDom_Types.runGraft(v1.value0));
};
if (v1 instanceof Halogen_VDom_Types.Elem && eqElemSpec(v, v1.value0)) {
var v2 = Data_Array.length(v1.value1);
var v3 = Data_Array.length(ch1);
if (v3 === 0 && v2 === 0) {
var v4 = Halogen_VDom_Machine.step(attrs)(v1.value0.value2);
var halt$prime = done(node, v4, ch1);
return new Halogen_VDom_Machine.Step(node, patch(build, halt$prime, node, v4, v1.value0, ch1), halt$prime);
};
var onThis = function (ix, v4) {
return v4.value2();
};
var onThese = function (ix, v4, vdom) {
var v5 = v4.value1(vdom);
Halogen_VDom_Util.insertChildIx(ix, v5.value0, node);
return v5;
};
var onThat = function (ix, vdom) {
var v4 = build(vdom);
Halogen_VDom_Util.insertChildIx(ix, v4.value0, node);
return v4;
};
var v4 = Halogen_VDom_Util.diffWithIxE(ch1, v1.value1, onThese, onThis, onThat);
var v5 = Halogen_VDom_Machine.step(attrs)(v1.value0.value2);
var halt$prime = done(node, v5, v4);
return new Halogen_VDom_Machine.Step(node, patch(build, halt$prime, node, v5, v1.value0, v4), halt$prime);
};
halt();
return build(v1);
};
};
var render = function (v, build, v1, ch1) {
var v2 = Halogen_VDom_Util.createElement(Data_Nullable.toNullable(v1.value0), v1.value1, v.document);
var node = Web_DOM_Element.toNode(v2);
var onChild = function (ix, child) {
var v3 = build(child);
Halogen_VDom_Util.insertChildIx(ix, v3.value0, node);
return v3;
};
var v3 = Halogen_VDom_Util.forE(ch1, onChild);
var v4 = v.buildAttributes(v2)(v1.value2);
var halt = done(node, v4, v3);
return new Halogen_VDom_Machine.Step(node, patch(build, halt, node, v4, v1, v3), halt);
};
return render;
})();
var buildVDom = function (spec) {
var build = function (v) {
if (v instanceof Halogen_VDom_Types.Text) {
return buildText(spec, build, v.value0);
};
if (v instanceof Halogen_VDom_Types.Elem) {
return buildElem(spec, build, v.value0, v.value1);
};
if (v instanceof Halogen_VDom_Types.Keyed) {
return buildKeyed(spec, build, v.value0, v.value1);
};
if (v instanceof Halogen_VDom_Types.Widget) {
return buildWidget(spec, build, v.value0);
};
if (v instanceof Halogen_VDom_Types.Grafted) {
return build(Halogen_VDom_Types.runGraft(v.value0));
};
throw new Error("Failed pattern match at Halogen.VDom.DOM line 58, column 27 - line 63, column 52: " + [ v.constructor.name ]);
};
return build;
};
exports["buildVDom"] = buildVDom;
exports["buildText"] = buildText;
exports["buildElem"] = buildElem;
exports["buildKeyed"] = buildKeyed;
exports["buildWidget"] = buildWidget;
})(PS["Halogen.VDom.DOM"] = PS["Halogen.VDom.DOM"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Category = PS["Control.Category"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Unit = PS["Data.Unit"];
var Effect = PS["Effect"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Class = PS["Effect.Class"];
var Effect_Ref = PS["Effect.Ref"];
var Effect_Uncurried = PS["Effect.Uncurried"];
var Halogen_Aff_Driver = PS["Halogen.Aff.Driver"];
var Halogen_Aff_Driver_State = PS["Halogen.Aff.Driver.State"];
var Halogen_Component = PS["Halogen.Component"];
var Halogen_HTML_Core = PS["Halogen.HTML.Core"];
var Halogen_Query_InputF = PS["Halogen.Query.InputF"];
var Halogen_VDom = PS["Halogen.VDom"];
var Halogen_VDom_DOM = PS["Halogen.VDom.DOM"];
var Halogen_VDom_DOM_Prop = PS["Halogen.VDom.DOM.Prop"];
var Halogen_VDom_Machine = PS["Halogen.VDom.Machine"];
var Prelude = PS["Prelude"];
var Unsafe_Reference = PS["Unsafe.Reference"];
var Web_DOM_Document = PS["Web.DOM.Document"];
var Web_DOM_Element = PS["Web.DOM.Element"];
var Web_DOM_Node = PS["Web.DOM.Node"];
var Web_HTML = PS["Web.HTML"];
var Web_HTML_HTMLDocument = PS["Web.HTML.HTMLDocument"];
var Web_HTML_HTMLElement = PS["Web.HTML.HTMLElement"];
var Web_HTML_Window = PS["Web.HTML.Window"];
var substInParent = function (v) {
return function (v1) {
return function (v2) {
if (v1 instanceof Data_Maybe.Just && v2 instanceof Data_Maybe.Just) {
return Data_Functor["void"](Effect.functorEffect)(Web_DOM_Node.insertBefore(v)(v1.value0)(v2.value0));
};
if (v1 instanceof Data_Maybe.Nothing && v2 instanceof Data_Maybe.Just) {
return Data_Functor["void"](Effect.functorEffect)(Web_DOM_Node.appendChild(v)(v2.value0));
};
return Control_Applicative.pure(Effect.applicativeEffect)(Data_Unit.unit);
};
};
};
var removeChild = function (v) {
return function __do() {
var v1 = Web_DOM_Node.parentNode(v.node)();
return Data_Foldable.traverse_(Effect.applicativeEffect)(Data_Foldable.foldableMaybe)(function (pn) {
return Web_DOM_Node.removeChild(v.node)(pn);
})(v1)();
};
};
var mkSpec = function (handler) {
return function (renderChildRef) {
return function (document) {
var getNode = Halogen_Aff_Driver_State.unRenderStateX(function (v) {
return v.node;
});
var done = Control_Applicative.pure(Effect.applicativeEffect)(Data_Unit.unit);
var patch = function (slot) {
var v = Effect_Ref.read(renderChildRef)();
var v1 = v(slot)();
var node = getNode(v1);
return new Halogen_VDom_Machine.Step(node, patch, done);
};
var buildWidget = function (spec) {
return function (slot) {
var v = Effect_Ref.read(renderChildRef)();
var v1 = v(slot)();
var node = getNode(v1);
return new Halogen_VDom_Machine.Step(node, patch, done);
};
};
var buildAttributes = Halogen_VDom_DOM_Prop.buildProp(handler);
return {
buildWidget: buildWidget,
buildAttributes: buildAttributes,
document: document
};
};
};
};
var renderSpec = function (document) {
return function (container) {
var render = function (handler) {
return function (child) {
return function (v) {
return function (v1) {
if (v1 instanceof Data_Maybe.Nothing) {
return function __do() {
var v2 = Effect_Ref["new"](child)();
var spec = mkSpec(handler)(v2)(document);
var v3 = Halogen_VDom_DOM.buildVDom(spec)(v);
var node = Halogen_VDom_Machine.extract(v3);
Data_Functor["void"](Effect.functorEffect)(Web_DOM_Node.appendChild(node)(Web_HTML_HTMLElement.toNode(container)))();
return {
machine: v3,
node: node,
renderChildRef: v2
};
};
};
if (v1 instanceof Data_Maybe.Just) {
return function __do() {
Effect_Ref.write(child)(v1.value0.renderChildRef)();
var v2 = Web_DOM_Node.parentNode(v1.value0.node)();
var v3 = Web_DOM_Node.nextSibling(v1.value0.node)();
var v4 = Halogen_VDom_Machine.step(v1.value0.machine)(v);
var newNode = Halogen_VDom_Machine.extract(v4);
Control_Applicative.when(Effect.applicativeEffect)(Data_HeytingAlgebra.not(Data_HeytingAlgebra.heytingAlgebraFunction(Data_HeytingAlgebra.heytingAlgebraFunction(Data_HeytingAlgebra.heytingAlgebraBoolean)))(Unsafe_Reference.unsafeRefEq)(v1.value0.node)(newNode))(substInParent(newNode)(v3)(v2))();
return {
machine: v4,
node: newNode,
renderChildRef: v1.value0.renderChildRef
};
};
};
throw new Error("Failed pattern match at Halogen.VDom.Driver line 118, column 5 - line 134, column 80: " + [ v1.constructor.name ]);
};
};
};
};
return {
render: render,
renderChild: Control_Category.identity(Control_Category.categoryFn),
removeChild: removeChild
};
};
};
var runUI = function (component) {
return function (i) {
return function (element) {
return Control_Bind.bind(Effect_Aff.bindAff)(Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Data_Functor.map(Effect.functorEffect)(Web_HTML_HTMLDocument.toDocument)(Control_Bind.bindFlipped(Effect.bindEffect)(Web_HTML_Window.document)(Web_HTML.window))))(function (v) {
return Halogen_Aff_Driver.runUI(renderSpec(v)(element))(component)(i);
});
};
};
};
exports["runUI"] = runUI;
})(PS["Halogen.VDom.Driver"] = PS["Halogen.VDom.Driver"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Control_Applicative = PS["Control.Applicative"];
var Data_Unit = PS["Data.Unit"];
var Effect = PS["Effect"];
var Prelude = PS["Prelude"];
var main = Control_Applicative.pure(Effect.applicativeEffect)(Data_Unit.unit);
exports["main"] = main;
})(PS["Main"] = PS["Main"] || {});
(function(exports) {
// Generated by purs version 0.12.0
"use strict";
var Component_Add = PS["Component.Add"];
var Component_BList = PS["Component.BList"];
var Control_Bind = PS["Control.Bind"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Unit = PS["Data.Unit"];
var Effect = PS["Effect"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Class = PS["Effect.Class"];
var Halogen_Aff = PS["Halogen.Aff"];
var Halogen_Aff_Util = PS["Halogen.Aff.Util"];
var Halogen_VDom_Driver = PS["Halogen.VDom.Driver"];
var Model = PS["Model"];
var Prelude = PS["Prelude"];
var Web_DOM_Element = PS["Web.DOM.Element"];
var Web_DOM_ParentNode = PS["Web.DOM.ParentNode"];
var Web_HTML_HTMLElement = PS["Web.HTML.HTMLElement"];
var showFooter = Control_Bind.bind(Effect_Aff.bindAff)(Halogen_Aff_Util.selectElement(".user_footer"))(Data_Foldable.traverse_(Effect_Aff.applicativeAff)(Data_Foldable.foldableMaybe)(function (el) {
return Effect_Class.liftEffect(Effect_Aff.monadEffectAff)(Web_DOM_Element.removeAttribute("hidden")(Web_HTML_HTMLElement.toElement(el)));
}));
var renderBookmarks = function (renderElSelector) {
return function (bmarks) {
return Halogen_Aff_Util.runHalogenAff(Control_Bind.bind(Effect_Aff.bindAff)(Halogen_Aff_Util.selectElement(renderElSelector))(Data_Foldable.traverse_(Effect_Aff.applicativeAff)(Data_Foldable.foldableMaybe)(function (el) {
return Control_Bind.discard(Control_Bind.discardUnit)(Effect_Aff.bindAff)(Data_Functor["void"](Effect_Aff.functorAff)(Halogen_VDom_Driver.runUI(Component_BList.blist(bmarks))(Data_Unit.unit)(el)))(function () {
return showFooter;
});
})));
};
};
var renderAddForm = function (renderElSelector) {
return function (bmark) {
return Halogen_Aff_Util.runHalogenAff(Control_Bind.bind(Effect_Aff.bindAff)(Halogen_Aff_Util.selectElement(renderElSelector))(Data_Foldable.traverse_(Effect_Aff.applicativeAff)(Data_Foldable.foldableMaybe)(function (el) {
return Halogen_VDom_Driver.runUI(Component_Add.addbmark(bmark))(Data_Unit.unit)(el);
})));
};
};
exports["renderBookmarks"] = renderBookmarks;
exports["renderAddForm"] = renderAddForm;
exports["showFooter"] = showFooter;
})(PS["User"] = PS["User"] || {});