espial-0.0.7: static/js/app.js
// Generated by purs bundle 0.12.2
var PS = {};
(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));
}),
body: 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["Affjax"] = PS["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) {
"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.2
"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();
};
})(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.2
"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.2
"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 showInt = new Show($foreign.showIntImpl);
var show = function (dict) {
return dict.show;
};
exports["Show"] = Show;
exports["show"] = show;
exports["showInt"] = showInt;
})(PS["Data.Show"] = PS["Data.Show"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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.2
"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.2
"use strict";
var Data_Show = PS["Data.Show"];
var absurd = function (a) {
var spin = function ($copy_v) {
var $tco_result;
function $tco_loop(v) {
$copy_v = v;
return;
};
while (!false) {
$tco_result = $tco_loop($copy_v);
};
return $tco_result;
};
return spin(a);
};
exports["absurd"] = absurd;
})(PS["Data.Void"] = PS["Data.Void"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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 eqUnit = 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["eqUnit"] = eqUnit;
exports["eqVoid"] = eqVoid;
})(PS["Data.Eq"] = PS["Data.Eq"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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.2
"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.2
"use strict";
var otherwise = true;
exports["otherwise"] = otherwise;
})(PS["Data.Boolean"] = PS["Data.Boolean"] || {});
(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.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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_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 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 ordUnit = new Ord(function () {
return Data_Eq.eqUnit;
}, 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["ordUnit"] = ordUnit;
exports["ordVoid"] = ordVoid;
})(PS["Data.Ord"] = PS["Data.Ord"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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.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.2
"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.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.2
"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.2
"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) {
"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.2
"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.2
"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) {
"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) {
// Generated by purs version 0.12.2
"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) {
// Generated by purs version 0.12.2
"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.2
"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.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.2
"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.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.2
"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.2
"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.2
"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.2
"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 217, column 1 - line 217, 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 fromMaybe = function (a) {
return maybe(a)(Control_Category.identity(Control_Category.categoryFn));
};
var fromJust = function (dictPartial) {
return function (v) {
if (v instanceof Just) {
return v.value0;
};
throw new Error("Failed pattern match at Data.Maybe (line 268, column 1 - line 268, 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 125, column 1 - line 125, column 33): " + [ v.constructor.name, v1.constructor.name ]);
};
});
exports["Nothing"] = Nothing;
exports["Just"] = Just;
exports["maybe"] = maybe;
exports["fromMaybe"] = fromMaybe;
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) {
"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";
//------------------------------------------------------------------------------
// 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.2
"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.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.2
"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.2
"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.2
"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 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["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.2
"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_FoldableWithIndex = PS["Data.FoldableWithIndex"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Functor_Invariant = PS["Data.Functor.Invariant"];
var Data_FunctorWithIndex = PS["Data.FunctorWithIndex"];
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 Data_TraversableWithIndex = PS["Data.TraversableWithIndex"];
var Data_Unit = PS["Data.Unit"];
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 38, column 8 - line 38, 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 238, column 1 - line 238, 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 46, column 1 - line 46, 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 82, column 1 - line 82, 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.2
"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_FoldableWithIndex = PS["Data.FoldableWithIndex"];
var Data_Functor = PS["Data.Functor"];
var Data_Functor_Invariant = PS["Data.Functor.Invariant"];
var Data_FunctorWithIndex = PS["Data.FunctorWithIndex"];
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_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_Unit = PS["Data.Unit"];
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.2
"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.2
"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.2
"use strict";
var $foreign = PS["Partial"];
exports["crashWith"] = $foreign.crashWith;
})(PS["Partial"] = PS["Partial"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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.2
"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) {
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.2
"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_FoldableWithIndex = PS["Data.FoldableWithIndex"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Functor_Invariant = PS["Data.Functor.Invariant"];
var Data_FunctorWithIndex = PS["Data.FunctorWithIndex"];
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_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_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.2
"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.2
"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.2
"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.2
"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["new"] = function () {
return {};
};
})(PS["Foreign.Object.ST"] = PS["Foreign.Object.ST"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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.2
"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 Type_Row_Homogeneous = PS["Type.Row.Homogeneous"];
var Unsafe_Coerce = PS["Unsafe.Coerce"];
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.2
"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.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.2
"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.2
"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.2
"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.2
"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.2
"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) {
// Generated by purs version 0.12.2
"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["Affjax.RequestBody"] = PS["Affjax.RequestBody"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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 Affjax.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 Affjax.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["Affjax.RequestHeader"] = PS["Affjax.RequestHeader"] || {});
(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.2
"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.2
"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 modify_ = function (dictMonadState) {
return function (f) {
return state(dictMonadState)(function (s) {
return new Data_Tuple.Tuple(Data_Unit.unit, f(s));
});
};
};
var modify = function (dictMonadState) {
return function (f) {
return state(dictMonadState)(function (s) {
var s$prime = f(s);
return new Data_Tuple.Tuple(s$prime, s$prime);
});
};
};
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["modify"] = modify;
exports["modify_"] = modify_;
})(PS["Control.Monad.State.Class"] = PS["Control.Monad.State.Class"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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) {
// Generated by purs version 0.12.2
"use strict";
var Control_Category = PS["Control.Category"];
var Control_Monad = PS["Control.Monad"];
var Effect = PS["Effect"];
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.2
"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.2
"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.2
"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));
};
};
exports["NonEmpty"] = NonEmpty;
exports["singleton"] = singleton;
})(PS["Data.NonEmpty"] = PS["Data.NonEmpty"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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 ($174) {
return Data_Semigroup.append(dictMonoid.Semigroup0())(acc)(f($174));
};
})(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 ($175) {
return Data_Foldable.foldl(foldableList)(Data_Function.flip(f))(b)(rev($175));
};
};
});
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 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;
})(PS["Data.List.Types"] = PS["Data.List.Types"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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.2
"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_FunctorWithIndex = PS["Data.FunctorWithIndex"];
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 ($165) {
return Data_List_Types.NonEmptyList(Data_NonEmpty.singleton(Data_List_Types.plusList)($165));
};
var head = function (v) {
return v.value0;
};
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;
exports["head"] = head;
})(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.2
"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.2
"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.2
"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 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["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) {
// Generated by purs version 0.12.2
"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 Foreign = PS["Foreign"];
var Prelude = PS["Prelude"];
var Web_DOM_Document = PS["Web.DOM.Document"];
var Web_File_Blob = PS["Web.File.Blob"];
var ResponseFormatError = (function () {
function ResponseFormatError(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
ResponseFormatError.create = function (value0) {
return function (value1) {
return new ResponseFormatError(value0, value1);
};
};
return ResponseFormatError;
})();
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 Affjax.ResponseFormat (line 46, column 3 - line 54, 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 json = new Json(Control_Category.identity(Control_Category.categoryFn));
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["json"] = json;
exports["ignore"] = ignore;
exports["toResponseType"] = toResponseType;
exports["toMediaType"] = toMediaType;
exports["ResponseFormatError"] = ResponseFormatError;
})(PS["Affjax.ResponseFormat"] = PS["Affjax.ResponseFormat"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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["Affjax.ResponseHeader"] = PS["Affjax.ResponseHeader"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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.2
"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._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.2
"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.2
"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) {
"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.2
"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) {
/* 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;
while (true) {
tmp = null;
result = null;
attempt = 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 () {
// It's possible to interrupt the fiber between enqueuing and
// resuming, so we need to check that the runTick is still
// valid.
if (runTick !== localRunTick + 1) {
return;
}
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, fail), 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);
}
fail = null;
break;
case FINALIZER:
bracketCount++;
attempts = new Aff(CONS, new Aff(FINALIZED, step, fail), attempts, interrupt);
status = CONTINUE;
step = attempt._1;
break;
case FINALIZED:
bracketCount--;
status = RETURN;
step = attempt._1;
fail = attempt._2;
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(fail, null, null);
} else {
join(fail, 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) {
"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.2
"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.2
"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.2
"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 400, column 21 - line 402, 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 395, column 20 - line 399, 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 390, column 12 - line 392, 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 ($52) {
return Effect_Class.liftEffect(monadEffectAff)(k($52));
})(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 ($54) {
return Control_Parallel_Class.parallel(parallelAff)(Control_Applicative.pure(applicativeAff)($54));
});
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 100, column 7 - line 102, 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) {
// Generated by purs version 0.12.2
"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.2
"use strict";
var $foreign = PS["Affjax"];
var Affjax_RequestBody = PS["Affjax.RequestBody"];
var Affjax_RequestHeader = PS["Affjax.RequestHeader"];
var Affjax_ResponseFormat = PS["Affjax.ResponseFormat"];
var Affjax_ResponseHeader = PS["Affjax.ResponseHeader"];
var Affjax_StatusCode = PS["Affjax.StatusCode"];
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_NonEmpty = PS["Data.List.NonEmpty"];
var Data_Maybe = PS["Data.Maybe"];
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 Prelude = PS["Prelude"];
var request = 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 ($66) {
return Foreign.fail(Foreign.ForeignError.create($66));
})(Control_Applicative.pure(Control_Monad_Except_Trans.applicativeExceptT(Data_Identity.monadIdentity)))(Data_Argonaut_Parser.jsonParser(v));
};
var fromResponse$prime = (function () {
if (req.responseFormat instanceof Affjax_ResponseFormat["ArrayBuffer"]) {
return Foreign.unsafeReadTagged("ArrayBuffer");
};
if (req.responseFormat instanceof Affjax_ResponseFormat.Blob) {
return Foreign.unsafeReadTagged("Blob");
};
if (req.responseFormat instanceof Affjax_ResponseFormat.Document) {
return Foreign.unsafeReadTagged("Document");
};
if (req.responseFormat instanceof Affjax_ResponseFormat.Json) {
return Control_Bind.composeKleisliFlipped(Control_Monad_Except_Trans.bindExceptT(Data_Identity.monadIdentity))(function ($67) {
return req.responseFormat.value0(parseJSON($67));
})(Foreign.unsafeReadTagged("String"));
};
if (req.responseFormat instanceof Affjax_ResponseFormat["String"]) {
return Foreign.unsafeReadTagged("String");
};
if (req.responseFormat instanceof Affjax_ResponseFormat.Ignore) {
return Data_Function["const"](req.responseFormat.value0(Control_Applicative.pure(Control_Monad_Except_Trans.applicativeExceptT(Data_Identity.monadIdentity))(Data_Unit.unit)));
};
throw new Error("Failed pattern match at Affjax (line 292, column 19 - line 298, column 57): " + [ req.responseFormat.constructor.name ]);
})();
var extractContent = function (v) {
if (v instanceof Affjax_RequestBody.ArrayView) {
return v.value0(Foreign.unsafeToForeign);
};
if (v instanceof Affjax_RequestBody.Blob) {
return Foreign.unsafeToForeign(v.value0);
};
if (v instanceof Affjax_RequestBody.Document) {
return Foreign.unsafeToForeign(v.value0);
};
if (v instanceof Affjax_RequestBody["String"]) {
return Foreign.unsafeToForeign(v.value0);
};
if (v instanceof Affjax_RequestBody.FormData) {
return Foreign.unsafeToForeign(v.value0);
};
if (v instanceof Affjax_RequestBody.FormURLEncoded) {
return Foreign.unsafeToForeign(Data_FormURLEncoded.encode(v.value0));
};
if (v instanceof Affjax_RequestBody.Json) {
return Foreign.unsafeToForeign(Data_Argonaut_Core.stringify(v.value0));
};
throw new Error("Failed pattern match at Affjax (line 266, column 20 - line 273, column 57): " + [ 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))(Affjax_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)(Affjax_RequestHeader.ContentType.create)(Control_Bind.bindFlipped(Data_Maybe.bindMaybe)(Affjax_RequestBody.toMediaType)(reqContent)))(addHeader(Data_Functor.map(Data_Maybe.functorMaybe)(Affjax_RequestHeader.Accept.create)(Affjax_ResponseFormat.toMediaType(req.responseFormat)))(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: Affjax_RequestHeader.requestHeaderName(h),
value: Affjax_RequestHeader.requestHeaderValue(h)
};
})(headers(req.content)),
content: Data_Nullable.toNullable(Data_Functor.map(Data_Maybe.functorMaybe)(extractContent)(req.content)),
responseType: Affjax_ResponseFormat.toResponseType(req.responseFormat),
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"](Affjax_ResponseHeader.responseHeader, req$prime)))(function (v) {
var v1 = Control_Monad_Except.runExcept(fromResponse$prime(v.body));
if (v1 instanceof Data_Either.Left) {
return Control_Applicative.pure(Effect_Aff.applicativeAff)({
body: new Data_Either.Left(new Affjax_ResponseFormat.ResponseFormatError(Data_List_NonEmpty.head(v1.value0), v.body)),
headers: v.headers,
status: v.status,
statusText: v.statusText
});
};
if (v1 instanceof Data_Either.Right) {
return Control_Applicative.pure(Effect_Aff.applicativeAff)({
body: new Data_Either.Right(v1.value0),
headers: v.headers,
status: v.status,
statusText: v.statusText
});
};
throw new Error("Failed pattern match at Affjax (line 246, column 3 - line 250, column 39): " + [ v1.constructor.name ]);
});
};
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,
responseFormat: Affjax_ResponseFormat.ignore
};
exports["defaultRequest"] = defaultRequest;
exports["request"] = request;
})(PS["Affjax"] = PS["Affjax"] || {});
(function(exports) {
"use strict";
exports._app = function() {
return app;
}
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.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.2
"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) {
// Generated by purs version 0.12.2
"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.2
"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.2
"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.2
"use strict";
var $foreign = PS["Simple.JSON"];
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_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 ($85) {
return Global_Unsafe.unsafeStringify(writeImpl(dictWriteForeign)($85));
};
};
var writeForeignString = new WriteForeign(Foreign.unsafeToForeign);
var writeForeignNullable = function (dictWriteForeign) {
return new WriteForeign(function ($87) {
return Data_Maybe.maybe(Foreign.unsafeToForeign(Data_Nullable.toNullable(Data_Maybe.Nothing.value)))(writeImpl(dictWriteForeign))(Data_Nullable.toMaybe($87));
});
};
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["writeForeignNullable"] = writeForeignNullable;
exports["recordWriteForeign"] = recordWriteForeign;
exports["consWriteForeignFields"] = consWriteForeignFields;
exports["nilWriteForeignFields"] = nilWriteForeignFields;
})(PS["Simple.JSON"] = PS["Simple.JSON"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"use strict";
var Data_Nullable = PS["Data.Nullable"];
var Data_Symbol = PS["Data.Symbol"];
var Simple_JSON = PS["Simple.JSON"];
var usersettings_wfI = Simple_JSON.recordWriteForeign()(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "archiveDefault";
}))(Simple_JSON.writeForeignBoolean)(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "privacyLock";
}))(Simple_JSON.writeForeignBoolean)(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "privateDefault";
}))(Simple_JSON.writeForeignBoolean)(Simple_JSON.nilWriteForeignFields)()()())()()())()()());
var note_wfI = Simple_JSON.recordWriteForeign()(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "created";
}))(Simple_JSON.writeForeignString)(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "id";
}))(Simple_JSON.writeForeignInt)(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "isMarkdown";
}))(Simple_JSON.writeForeignBoolean)(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "length";
}))(Simple_JSON.writeForeignInt)(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "slug";
}))(Simple_JSON.writeForeignString)(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "text";
}))(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 "updated";
}))(Simple_JSON.writeForeignString)(Simple_JSON.nilWriteForeignFields)()()())()()())()()())()()())()()())()()())()()())()()());
var bookmark_wfI = Simple_JSON.recordWriteForeign()(Simple_JSON.consWriteForeignFields(new Data_Symbol.IsSymbol(function () {
return "archiveUrl";
}))(Simple_JSON.writeForeignNullable(Simple_JSON.writeForeignString))(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 "slug";
}))(Simple_JSON.writeForeignString)(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["bookmark_wfI"] = bookmark_wfI;
exports["note_wfI"] = note_wfI;
exports["usersettings_wfI"] = usersettings_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._querySelector = function (selector) {
return function (node) {
return function () {
return node.querySelector(selector);
};
};
};
})(PS["Web.DOM.ParentNode"] = PS["Web.DOM.ParentNode"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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;
})(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.2
"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.2
"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.2
"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._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) {
"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) {
// Generated by purs version 0.12.2
"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 toNode = Unsafe_Coerce.unsafeCoerce;
exports["toNode"] = toNode;
exports["removeAttribute"] = $foreign.removeAttribute;
})(PS["Web.DOM.Element"] = PS["Web.DOM.Element"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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.2
"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_HTML_HTMLScriptElement = PS["Web.HTML.HTMLScriptElement"];
var Web_Internal_FFI = PS["Web.Internal.FFI"];
var toParentNode = Unsafe_Coerce.unsafeCoerce;
var toDocument = Unsafe_Coerce.unsafeCoerce;
exports["toDocument"] = toDocument;
exports["toParentNode"] = toParentNode;
})(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.2
"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.2
"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.2
"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.2
"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_Newtype = PS["Data.Newtype"];
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 RawHTML = function (x) {
return x;
};
var mmoment8601 = function (s) {
return $foreign["_mmoment8601"](Data_Maybe.Just.create, Data_Maybe.Nothing.value, Data_Tuple.Tuple.create, s);
};
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["mmoment8601"] = mmoment8601;
exports["closeWindow"] = closeWindow;
exports["RawHTML"] = RawHTML;
})(PS["Globals"] = PS["Globals"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"use strict";
var Affjax = PS["Affjax"];
var Affjax_RequestBody = PS["Affjax.RequestBody"];
var Affjax_RequestHeader = PS["Affjax.RequestHeader"];
var Affjax_ResponseFormat = PS["Affjax.ResponseFormat"];
var Control_Bind = PS["Control.Bind"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Argonaut = PS["Data.Argonaut"];
var Data_Array = PS["Data.Array"];
var Data_Either = PS["Data.Either"];
var Data_FormURLEncoded = PS["Data.FormURLEncoded"];
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 Prelude = PS["Prelude"];
var Simple_JSON = PS["Simple.JSON"];
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 Affjax.request({
method: new Data_Either.Left(method),
url: url,
headers: Data_Array.cons(new Affjax_RequestHeader.RequestHeader(app.csrfHeaderName, app.csrfToken))(headers),
content: content,
username: Affjax.defaultRequest.username,
password: Affjax.defaultRequest.password,
withCredentials: Affjax.defaultRequest.withCredentials,
responseFormat: rt
});
};
};
};
};
};
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)(Affjax_ResponseFormat.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 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 Affjax_RequestHeader.ContentType(Data_MediaType_Common.applicationFormURLEncoded) ])(Data_Functor.map(Data_Maybe.functorMaybe)(Affjax_RequestBody.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)(Affjax_ResponseFormat.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)(Affjax_ResponseFormat.ignore));
};
};
var fetchJson = function (dictWriteForeign) {
return function (method) {
return function (path) {
return function (content) {
return function (rt) {
return fetchPath(method)(path)([ new Affjax_RequestHeader.ContentType(Data_MediaType_Common.applicationJSON) ])(Data_Functor.map(Data_Maybe.functorMaybe)(function ($4) {
return Affjax_RequestBody.string(Simple_JSON.writeJSON(dictWriteForeign)($4));
})(content))(rt);
};
};
};
};
};
var editNote = function (bm) {
return fetchJson(Model.note_wfI)(Data_HTTP_Method.POST.value)("api/note/add")(new Data_Maybe.Just(bm))(Affjax_ResponseFormat.json);
};
var editBookmark = function (bm) {
return fetchJson(Model.bookmark_wfI)(Data_HTTP_Method.POST.value)("api/add")(new Data_Maybe.Just(bm))(Affjax_ResponseFormat.ignore);
};
var editAccountSettings = function (us) {
return fetchJson(Model.usersettings_wfI)(Data_HTTP_Method.POST.value)("api/accountSettings")(new Data_Maybe.Just(us))(Affjax_ResponseFormat.ignore);
};
var destroyNote = function (nid) {
return fetchUrlEnc(Data_HTTP_Method.DELETE.value)("api/note/" + Data_Show.show(Data_Show.showInt)(nid))(Data_Maybe.Nothing.value)(Affjax_ResponseFormat.ignore);
};
var destroy = function (bid) {
return fetchUrlEnc(Data_HTTP_Method.DELETE.value)("bm/" + Data_Show.show(Data_Show.showInt)(bid))(Data_Maybe.Nothing.value)(Affjax_ResponseFormat.ignore);
};
exports["Star"] = Star;
exports["UnStar"] = UnStar;
exports["toggleStar"] = toggleStar;
exports["destroy"] = destroy;
exports["markRead"] = markRead;
exports["editBookmark"] = editBookmark;
exports["editNote"] = editNote;
exports["destroyNote"] = destroyNote;
exports["editAccountSettings"] = editAccountSettings;
exports["logout"] = logout;
exports["fetchJson"] = fetchJson;
exports["fetchUrlEnc"] = fetchUrlEnc;
exports["fetchPath"] = fetchPath;
exports["fetchUrl"] = fetchUrl;
exports["showStar"] = showStar;
})(PS["App"] = PS["App"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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.2
"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.2
"use strict";
var Control_Category = PS["Control.Category"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Functor = PS["Data.Functor"];
var Data_Profunctor = PS["Data.Profunctor"];
var Data_Tuple = PS["Data.Tuple"];
var Prelude = PS["Prelude"];
var Strong = function (Profunctor0, first, second) {
this.Profunctor0 = Profunctor0;
this.first = first;
this.second = second;
};
var strongFn = new Strong(function () {
return Data_Profunctor.profunctorFn;
}, function (a2b) {
return function (v) {
return new Data_Tuple.Tuple(a2b(v.value0), v.value1);
};
}, Data_Functor.map(Data_Tuple.functorTuple));
var second = function (dict) {
return dict.second;
};
var first = function (dict) {
return dict.first;
};
exports["first"] = first;
exports["second"] = second;
exports["Strong"] = Strong;
exports["strongFn"] = strongFn;
})(PS["Data.Profunctor.Strong"] = PS["Data.Profunctor.Strong"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"use strict";
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Const = PS["Data.Const"];
var Data_Either = PS["Data.Either"];
var Data_Functor = PS["Data.Functor"];
var Data_Lens_Internal_Wander = PS["Data.Lens.Internal.Wander"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Profunctor = PS["Data.Profunctor"];
var Data_Profunctor_Choice = PS["Data.Profunctor.Choice"];
var Data_Profunctor_Cochoice = PS["Data.Profunctor.Cochoice"];
var Data_Profunctor_Strong = PS["Data.Profunctor.Strong"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Tuple = PS["Data.Tuple"];
var Prelude = PS["Prelude"];
var Forget = function (x) {
return x;
};
var profunctorForget = new Data_Profunctor.Profunctor(function (f) {
return function (v) {
return function (v1) {
return function ($27) {
return v1(f($27));
};
};
};
});
var strongForget = new Data_Profunctor_Strong.Strong(function () {
return profunctorForget;
}, function (v) {
return function ($28) {
return v(Data_Tuple.fst($28));
};
}, function (v) {
return function ($29) {
return v(Data_Tuple.snd($29));
};
});
var newtypeForget = new Data_Newtype.Newtype(function (n) {
return n;
}, Forget);
exports["Forget"] = Forget;
exports["newtypeForget"] = newtypeForget;
exports["profunctorForget"] = profunctorForget;
exports["strongForget"] = strongForget;
})(PS["Data.Lens.Internal.Forget"] = PS["Data.Lens.Internal.Forget"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"use strict";
var Control_Category = PS["Control.Category"];
var Control_Monad_State_Class = PS["Control.Monad.State.Class"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_Function = PS["Data.Function"];
var Data_Lens_Internal_Forget = PS["Data.Lens.Internal.Forget"];
var Data_Lens_Internal_Indexed = PS["Data.Lens.Internal.Indexed"];
var Data_Lens_Types = PS["Data.Lens.Types"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Profunctor_Strong = PS["Data.Profunctor.Strong"];
var Data_Tuple = PS["Data.Tuple"];
var Prelude = PS["Prelude"];
var view = function (l) {
return Data_Newtype.unwrap(Data_Lens_Internal_Forget.newtypeForget)(l(Control_Category.identity(Control_Category.categoryFn)));
};
var viewOn = function (s) {
return function (l) {
return view(l)(s);
};
};
var use = function (dictMonadState) {
return function (p) {
return Control_Monad_State_Class.gets(dictMonadState)(function (v) {
return viewOn(v)(p);
});
};
};
exports["viewOn"] = viewOn;
exports["view"] = view;
exports["use"] = use;
})(PS["Data.Lens.Getter"] = PS["Data.Lens.Getter"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"use strict";
var Control_Category = PS["Control.Category"];
var Data_Lens_Internal_Indexed = PS["Data.Lens.Internal.Indexed"];
var Data_Lens_Internal_Shop = PS["Data.Lens.Internal.Shop"];
var Data_Lens_Types = PS["Data.Lens.Types"];
var Data_Newtype = PS["Data.Newtype"];
var Data_Profunctor = PS["Data.Profunctor"];
var Data_Profunctor_Strong = PS["Data.Profunctor.Strong"];
var Data_Tuple = PS["Data.Tuple"];
var Prelude = PS["Prelude"];
var lens$prime = function (to) {
return function (dictStrong) {
return function (pab) {
return Data_Profunctor.dimap(dictStrong.Profunctor0())(to)(function (v) {
return v.value1(v.value0);
})(Data_Profunctor_Strong.first(dictStrong)(pab));
};
};
};
var lens = function (get) {
return function (set) {
return function (dictStrong) {
return lens$prime(function (s) {
return new Data_Tuple.Tuple(get(s), function (b) {
return set(s)(b);
});
})(dictStrong);
};
};
};
exports["lens"] = lens;
})(PS["Data.Lens.Lens"] = PS["Data.Lens.Lens"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"use strict";
var Control_Monad_State_Class = PS["Control.Monad.State.Class"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Data_EuclideanRing = PS["Data.EuclideanRing"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Lens_Internal_Indexed = PS["Data.Lens.Internal.Indexed"];
var Data_Lens_Types = PS["Data.Lens.Types"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Ring = PS["Data.Ring"];
var Data_Semigroup = PS["Data.Semigroup"];
var Data_Semiring = PS["Data.Semiring"];
var Data_Tuple = PS["Data.Tuple"];
var Prelude = PS["Prelude"];
var over = function (l) {
return l;
};
var set = function (l) {
return function (b) {
return over(l)(Data_Function["const"](b));
};
};
var modifying = function (dictMonadState) {
return function (p) {
return function (f) {
return Data_Functor["void"]((((dictMonadState.Monad0()).Bind1()).Apply0()).Functor0())(Control_Monad_State_Class.modify(dictMonadState)(over(p)(f)));
};
};
};
var assign = function (dictMonadState) {
return function (p) {
return function (b) {
return Data_Functor["void"]((((dictMonadState.Monad0()).Bind1()).Apply0()).Functor0())(Control_Monad_State_Class.modify(dictMonadState)(set(p)(b)));
};
};
};
exports["over"] = over;
exports["set"] = set;
exports["assign"] = assign;
exports["modifying"] = modifying;
})(PS["Data.Lens.Setter"] = PS["Data.Lens.Setter"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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.2
"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.2
"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) {
// Generated by purs version 0.12.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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 ref = function (f) {
return Halogen_VDom_DOM_Prop.Ref.create(function ($31) {
return f((function (v) {
if (v instanceof Halogen_VDom_DOM_Prop.Created) {
return new Data_Maybe.Just(v.value0);
};
if (v instanceof Halogen_VDom_DOM_Prop.Removed) {
return Data_Maybe.Nothing.value;
};
throw new Error("Failed pattern match at Halogen.HTML.Core (line 103, column 21 - line 105, column 23): " + [ v.constructor.name ]);
})($31));
});
};
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["ref"] = ref;
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.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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 getRef = function (p) {
return HalogenM(Control_Monad_Free.liftF(new GetRef(p, Control_Category.identity(Control_Category.categoryFn))));
};
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["getRef"] = getRef;
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.2
"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.2
"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 ref = (function () {
var go = function (p) {
return function (mel) {
return new Data_Maybe.Just(new Halogen_Query_InputF.RefUpdate(p, mel, Data_Unit.unit));
};
};
return function ($10) {
return Halogen_HTML_Core.ref(go($10));
};
})();
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 autofocus = prop(Halogen_HTML_Core.booleanIsProp)("autofocus");
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["ref"] = ref;
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;
exports["autofocus"] = autofocus;
})(PS["Halogen.HTML.Properties"] = PS["Halogen.HTML.Properties"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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 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["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.2
"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.2
"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 602, column 1 - line 602, 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 197, column 5 - line 197, 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 596, column 1 - line 596, 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 93, column 1 - line 93, 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 415, column 3 - line 420, column 88): " + [ v.value0.constructor.name ]);
};
throw new Error("Failed pattern match at Data.Map.Internal (line 412, column 1 - line 412, 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 451, column 5 - line 456, column 108): " + [ v1.value0.constructor.name, v2.constructor.name ]);
};
throw new Error("Failed pattern match at Data.Map.Internal (line 448, column 3 - line 448, 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 431, column 3 - line 431, 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 ($copy_ctxs) {
return function ($copy_tree) {
var $tco_var_ctxs = $copy_ctxs;
var $tco_done = false;
var $tco_result;
function $tco_loop(ctxs, tree) {
if (ctxs instanceof Data_List_Types.Nil) {
$tco_done = true;
return tree;
};
if (ctxs instanceof Data_List_Types.Cons) {
if (ctxs.value0 instanceof TwoLeft && (ctxs.value0.value2 instanceof Leaf && tree instanceof Leaf)) {
$tco_done = true;
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)) {
$tco_done = true;
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) {
$tco_var_ctxs = ctxs.value1;
$copy_tree = 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);
return;
};
if (ctxs.value0 instanceof TwoRight && ctxs.value0.value0 instanceof Two) {
$tco_var_ctxs = ctxs.value1;
$copy_tree = 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);
return;
};
if (ctxs.value0 instanceof TwoLeft && ctxs.value0.value2 instanceof Three) {
$tco_done = true;
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) {
$tco_done = true;
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))) {
$tco_done = true;
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))) {
$tco_done = true;
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))) {
$tco_done = true;
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) {
$tco_done = true;
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) {
$tco_done = true;
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) {
$tco_done = true;
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) {
$tco_done = true;
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) {
$tco_done = true;
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) {
$tco_done = true;
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) {
$tco_done = true;
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) {
$tco_done = true;
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 501, column 9 - line 518, column 136): " + [ ctxs.value0.constructor.name, tree.constructor.name ]);
};
throw new Error("Failed pattern match at Data.Map.Internal (line 498, column 5 - line 518, column 136): " + [ ctxs.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($tco_var_ctxs, $copy_tree);
};
return $tco_result;
};
};
var removeMaxNode = 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 Two && (m.value0 instanceof Leaf && m.value3 instanceof Leaf)) {
$tco_done = true;
return up(ctx)(Leaf.value);
};
if (m instanceof Two) {
$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 && (m.value0 instanceof Leaf && (m.value3 instanceof Leaf && m.value6 instanceof Leaf))) {
$tco_done = true;
return up(new Data_List_Types.Cons(new TwoRight(Leaf.value, m.value1, m.value2), ctx))(Leaf.value);
};
if (m instanceof Three) {
$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 530, column 5 - line 534, column 107): " + [ m.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($tco_var_ctx, $copy_m);
};
return $tco_result;
};
};
var maxNode = function ($copy_m) {
var $tco_done = false;
var $tco_result;
function $tco_loop(m) {
if (m instanceof Two && m.value3 instanceof Leaf) {
$tco_done = true;
return {
key: m.value1,
value: m.value2
};
};
if (m instanceof Two) {
$copy_m = m.value3;
return;
};
if (m instanceof Three && m.value6 instanceof Leaf) {
$tco_done = true;
return {
key: m.value4,
value: m.value5
};
};
if (m instanceof Three) {
$copy_m = m.value6;
return;
};
throw new Error("Failed pattern match at Data.Map.Internal (line 521, column 33 - line 525, column 45): " + [ m.constructor.name ]);
};
while (!$tco_done) {
$tco_result = $tco_loop($copy_m);
};
return $tco_result;
};
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 471, column 34 - line 494, 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 539, column 15 - line 541, 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.2
"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 ($65) {
return Data_Foldable.foldMap(Data_List_Types.foldableList)(dictMonoid)(f)(toList($65));
};
};
}, function (f) {
return function (x) {
return function ($66) {
return Data_Foldable.foldl(Data_List_Types.foldableList)(f)(x)(toList($66));
};
};
}, function (f) {
return function (x) {
return function ($67) {
return Data_Foldable.foldr(Data_List_Types.foldableList)(f)(x)(toList($67));
};
};
});
exports["foldableSet"] = foldableSet;
})(PS["Data.Set"] = PS["Data.Set"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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.2
"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 getHTMLElementRef = function ($10) {
return Data_Functor.map(Halogen_Query_HalogenM.functorHalogenM)(function (v) {
return Control_Bind.bindFlipped(Data_Maybe.bindMaybe)(Web_HTML_HTMLElement.fromElement)(v);
})(Halogen_Query_HalogenM.getRef($10));
};
var action = function (act) {
return act(Data_Unit.unit);
};
exports["action"] = action;
exports["getHTMLElementRef"] = getHTMLElementRef;
})(PS["Halogen.Query"] = PS["Halogen.Query"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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.2
"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.2
"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.2
"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 cu0 = Data_Enum.fromEnum(Data_Enum.boundedEnumChar)(Data_String_Unsafe.charAt(0)(s));
var $25 = isLead(cu0) && Data_String_CodeUnits.length(s) > 1;
if ($25) {
var cu1 = Data_Enum.fromEnum(Data_Enum.boundedEnumChar)(Data_String_Unsafe.charAt(1)(s));
var $26 = isTrail(cu1);
if ($26) {
return unsurrogate(cu0)(cu1);
};
return cu0;
};
return cu0;
};
var unsafeCodePointAt0 = $foreign["_unsafeCodePointAt0"](unsafeCodePointAt0Fallback);
var toCodePointArray = $foreign["_toCodePointArray"](toCodePointArrayFallback)(unsafeCodePointAt0);
var length = function ($52) {
return Data_Array.length(toCodePointArray($52));
};
var fromCharCode = function ($53) {
return Data_String_CodeUnits.singleton(Data_Enum.toEnumWithDefaults(Data_Enum.boundedEnumChar)(Data_Bounded.bottom(Data_Bounded.boundedChar))(Data_Bounded.top(Data_Bounded.boundedChar))($53));
};
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) {
// Generated by purs version 0.12.2
"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_Nullable = PS["Data.Nullable"];
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 = PS["Effect"];
var Global_Unsafe = PS["Global.Unsafe"];
var Halogen = PS["Halogen"];
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"];
var fromNullableStr = function ($57) {
return Data_Maybe.fromMaybe("")(Data_Nullable.toMaybe($57));
};
var class_ = function ($58) {
return Halogen_HTML_Properties.class_(Halogen_HTML_Core.ClassName($58));
};
var attr = function (a) {
return Halogen_HTML_Properties.attr(a);
};
var _parseQueryString = function (srh) {
var decode = function ($59) {
return Global_Unsafe.unsafeDecodeURIComponent(Data_String_Common.replaceAll("+")(" ")($59));
};
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 $54 = srh$prime === "#" || srh$prime === "?";
if ($54) {
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 _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 ($61) {
return (function (v) {
return v === k;
})(Data_Tuple.fst($61));
})(qs)));
};
};
var _loc = Control_Bind.bindFlipped(Effect.bindEffect)(Web_HTML_Window.location)(Web_HTML.window);
var _curQuerystring = function __do() {
var v = _loc();
var v1 = Web_HTML_Location.search(v)();
return _parseQueryString(v1);
};
exports["class_"] = class_;
exports["attr"] = attr;
exports["_loc"] = _loc;
exports["_curQuerystring"] = _curQuerystring;
exports["_parseQueryString"] = _parseQueryString;
exports["_lookupQueryStringValue"] = _lookupQueryStringValue;
exports["fromNullableStr"] = fromNullableStr;
})(PS["Util"] = PS["Util"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"use strict";
var App = PS["App"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var DOM_HTML_Indexed_InputType = PS["DOM.HTML.Indexed.InputType"];
var Data_Function = PS["Data.Function"];
var Data_Functor = PS["Data.Functor"];
var Data_Lens = PS["Data.Lens"];
var Data_Lens_Getter = PS["Data.Lens.Getter"];
var Data_Lens_Internal_Forget = PS["Data.Lens.Internal.Forget"];
var Data_Lens_Lens = PS["Data.Lens.Lens"];
var Data_Lens_Setter = PS["Data.Lens.Setter"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Profunctor_Strong = PS["Data.Profunctor.Strong"];
var Data_Unit = PS["Data.Unit"];
var Effect_Aff = PS["Effect.Aff"];
var Effect_Aff_Class = PS["Effect.Aff.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 EarchiveDefault = (function () {
function EarchiveDefault(value0) {
this.value0 = value0;
};
EarchiveDefault.create = function (value0) {
return new EarchiveDefault(value0);
};
return EarchiveDefault;
})();
var EprivateDefault = (function () {
function EprivateDefault(value0) {
this.value0 = value0;
};
EprivateDefault.create = function (value0) {
return new EprivateDefault(value0);
};
return EprivateDefault;
})();
var EprivacyLock = (function () {
function EprivacyLock(value0) {
this.value0 = value0;
};
EprivacyLock.create = function (value0) {
return new EprivacyLock(value0);
};
return EprivacyLock;
})();
var UEditField = (function () {
function UEditField(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
UEditField.create = function (value0) {
return function (value1) {
return new UEditField(value0, value1);
};
};
return UEditField;
})();
var USubmit = (function () {
function USubmit(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
USubmit.create = function (value0) {
return function (value1) {
return new USubmit(value0, value1);
};
};
return USubmit;
})();
var _us = function (dictStrong) {
return Data_Lens_Lens.lens(function (v) {
return v.us;
})(function (v) {
return function (v1) {
return {
us: v1
};
};
})(dictStrong);
};
var usetting = function (u$prime) {
var render = function (v) {
var editField = function (f) {
return function ($22) {
return Halogen_HTML_Events.input(UEditField.create)(f($22));
};
};
return Halogen_HTML_Elements.div([ Util.class_("settings-form") ])([ Halogen_HTML_Elements.div([ Util.class_("fw7 mb2") ])([ Halogen_HTML_Core.text("Account Settings") ]), Halogen_HTML_Elements.div([ Util.class_("flex items-center mb2") ])([ Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputCheckbox.value), Util.class_("pointer mr2"), Halogen_HTML_Properties.id_("archiveDefault"), Halogen_HTML_Properties.name("archiveDefault"), Halogen_HTML_Properties.checked(v.us.archiveDefault), Halogen_HTML_Events.onChecked(editField(EarchiveDefault.create)) ]), Halogen_HTML_Elements.label([ Halogen_HTML_Properties["for"]("archiveDefault"), Util.class_("lh-copy") ])([ Halogen_HTML_Core.text("Archive Non-Private Bookmarks (archive.li)") ]) ]), Halogen_HTML_Elements.div([ Util.class_("flex items-center mb2") ])([ Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputCheckbox.value), Util.class_("pointer mr2"), Halogen_HTML_Properties.id_("privateDefault"), Halogen_HTML_Properties.name("privateDefault"), Halogen_HTML_Properties.checked(v.us.privateDefault), Halogen_HTML_Events.onChecked(editField(EprivateDefault.create)) ]), Halogen_HTML_Elements.label([ Halogen_HTML_Properties["for"]("privateDefault"), Util.class_("lh-copy") ])([ Halogen_HTML_Core.text("Default new bookmarks to Private") ]) ]), Halogen_HTML_Elements.div([ Util.class_("flex items-center mb2") ])([ Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputCheckbox.value), Util.class_("pointer mr2"), Halogen_HTML_Properties.id_("privacyLock"), Halogen_HTML_Properties.name("privacyLock"), Halogen_HTML_Properties.checked(v.us.privacyLock), Halogen_HTML_Events.onChecked(editField(EprivacyLock.create)) ]), Halogen_HTML_Elements.label([ Halogen_HTML_Properties["for"]("privacyLock"), Util.class_("lh-copy") ])([ Halogen_HTML_Core.text("Privacy Lock (Private Account)") ]) ]) ]);
};
var mkState = function (u) {
return {
us: u
};
};
var $$eval = function (v) {
if (v instanceof UEditField) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Setter.modifying(Halogen_Query_HalogenM.monadStateHalogenM)(_us(Data_Profunctor_Strong.strongFn))((function () {
if (v.value0 instanceof EarchiveDefault) {
return function (v1) {
return {
archiveDefault: v.value0.value0,
privateDefault: v1.privateDefault,
privacyLock: v1.privacyLock
};
};
};
if (v.value0 instanceof EprivateDefault) {
return function (v1) {
return {
archiveDefault: v1.archiveDefault,
privateDefault: v.value0.value0,
privacyLock: v1.privacyLock
};
};
};
if (v.value0 instanceof EprivacyLock) {
return function (v1) {
return {
archiveDefault: v1.archiveDefault,
privateDefault: v1.privateDefault,
privacyLock: v.value0.value0
};
};
};
throw new Error("Failed pattern match at Component.AccountSettings (line 82, column 12 - line 85, column 46): " + [ v.value0.constructor.name ]);
})()))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
};
if (v instanceof USubmit) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Getter.use(Halogen_Query_HalogenM.monadStateHalogenM)(_us(Data_Lens_Internal_Forget.strongForget)))(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.editAccountSettings(v1))))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
});
};
throw new Error("Failed pattern match at Component.AccountSettings (line 80, column 3 - line 80, 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(u$prime)),
render: render,
"eval": $$eval,
receiver: Data_Function["const"](Data_Maybe.Nothing.value)
});
};
exports["_us"] = _us;
exports["UEditField"] = UEditField;
exports["USubmit"] = USubmit;
exports["EarchiveDefault"] = EarchiveDefault;
exports["EprivateDefault"] = EprivateDefault;
exports["EprivacyLock"] = EprivacyLock;
exports["usetting"] = usetting;
})(PS["Component.AccountSettings"] = PS["Component.AccountSettings"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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_Lens = PS["Data.Lens"];
var Data_Lens_Getter = PS["Data.Lens.Getter"];
var Data_Lens_Internal_Forget = PS["Data.Lens.Internal.Forget"];
var Data_Lens_Lens = PS["Data.Lens.Lens"];
var Data_Lens_Setter = PS["Data.Lens.Setter"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Ord = PS["Data.Ord"];
var Data_Profunctor_Strong = PS["Data.Profunctor.Strong"];
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 _edit_bm = function (dictStrong) {
return Data_Lens_Lens.lens(function (v) {
return v.edit_bm;
})(function (v) {
return function (v1) {
return {
edit_bm: v1,
bm: v.bm,
deleteAsk: v.deleteAsk,
destroyed: v.destroyed
};
};
})(dictStrong);
};
var _bm = function (dictStrong) {
return Data_Lens_Lens.lens(function (v) {
return v.bm;
})(function (v) {
return function (v1) {
return {
bm: v1,
deleteAsk: v.deleteAsk,
destroyed: v.destroyed,
edit_bm: v.edit_bm
};
};
})(dictStrong);
};
var addbmark = function (b$prime) {
var render = function (v) {
var toTextarea = function ($58) {
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")($58)));
};
var mmoment = Globals.mmoment8601(v.bm.time);
var editField = function (f) {
return function ($59) {
return Halogen_HTML_Events.input(BEditField.create)(f($59));
};
};
var display_exists = Halogen_HTML_Elements.div([ Util.class_("alert") ])([ Halogen_HTML_Core.text("previously saved\xa0"), Halogen_HTML_Elements.span([ Util.class_("link f7 dib gray pr3"), Halogen_HTML_Properties.title(Data_Maybe.maybe(v.bm.time)(Data_Tuple.snd)(mmoment)) ])([ Halogen_HTML_Core.text(Data_Maybe.maybe("\xa0")(Data_Tuple.fst)(mmoment)) ]), Halogen_HTML_Elements.div([ Util.class_("edit_links dib ml1") ])([ Halogen_HTML_Elements.div([ Util.class_("delete_link di") ])([ 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 red") ])(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_("red") ])([ 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([ Util.class_("w-100") ])([ Halogen_HTML_Elements.tbody_([ Halogen_HTML_Elements.tr_([ Halogen_HTML_Elements.td([ Util.class_("w1") ])([ ]), 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_("w-100 mv1"), Halogen_HTML_Properties.required(true), Halogen_HTML_Properties.name("url"), Halogen_HTML_Properties.autofocus(Data_String_Common["null"](v.bm.url)), Halogen_HTML_Properties.value(v.edit_bm.url), Halogen_HTML_Events.onValueChange(editField(Eurl.create)) ]) ]) ]), 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_("w-100 mv1"), Halogen_HTML_Properties.name("title"), Halogen_HTML_Properties.value(v.edit_bm.title), Halogen_HTML_Events.onValueChange(editField(Etitle.create)) ]) ]) ]), 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_("w-100 mt1 mid-gray"), Halogen_HTML_Properties.id_("description"), Halogen_HTML_Properties.name("description"), Halogen_HTML_Properties.rows(4), Halogen_HTML_Properties.value(v.edit_bm.description), Halogen_HTML_Events.onValueChange(editField(Edescription.create)) ]) ]) ]), 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_("w-100 mv1"), Halogen_HTML_Properties.name("tags"), Halogen_HTML_Properties.autocomplete(false), Util.attr("autocapitalize")("off"), Halogen_HTML_Properties.autofocus(!Data_String_Common["null"](v.bm.url)), Halogen_HTML_Properties.value(v.edit_bm.tags), Halogen_HTML_Events.onValueChange(editField(Etags.create)) ]) ]) ]), 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 pointer"), Halogen_HTML_Properties.name("private"), Halogen_HTML_Properties.checked(v["edit_bm"]["private"]), Halogen_HTML_Events.onChecked(editField(Eprivate.create)) ]) ]) ]), 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 pointer"), Halogen_HTML_Properties.name("toread"), Halogen_HTML_Properties.checked(v.edit_bm.toread), Halogen_HTML_Events.onChecked(editField(Etoread.create)) ]) ]) ]), 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_("ph3 pv2 input-reset ba b--navy bg-transparent pointer f6 dib mt1 dim"), 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_("red") ])([ 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.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Setter.modifying(Halogen_Query_HalogenM.monadStateHalogenM)(_edit_bm(Data_Profunctor_Strong.strongFn))((function () {
if (v.value0 instanceof Eurl) {
return function (v1) {
return {
url: v.value0.value0,
title: v1.title,
description: v1.description,
tags: v1.tags,
"private": v1["private"],
toread: v1.toread,
bid: v1.bid,
slug: v1.slug,
selected: v1.selected,
time: v1.time,
archiveUrl: v1.archiveUrl
};
};
};
if (v.value0 instanceof Etitle) {
return function (v1) {
return {
url: v1.url,
title: v.value0.value0,
description: v1.description,
tags: v1.tags,
"private": v1["private"],
toread: v1.toread,
bid: v1.bid,
slug: v1.slug,
selected: v1.selected,
time: v1.time,
archiveUrl: v1.archiveUrl
};
};
};
if (v.value0 instanceof Edescription) {
return function (v1) {
return {
url: v1.url,
title: v1.title,
description: v.value0.value0,
tags: v1.tags,
"private": v1["private"],
toread: v1.toread,
bid: v1.bid,
slug: v1.slug,
selected: v1.selected,
time: v1.time,
archiveUrl: v1.archiveUrl
};
};
};
if (v.value0 instanceof Etags) {
return function (v1) {
return {
url: v1.url,
title: v1.title,
description: v1.description,
tags: v.value0.value0,
"private": v1["private"],
toread: v1.toread,
bid: v1.bid,
slug: v1.slug,
selected: v1.selected,
time: v1.time,
archiveUrl: v1.archiveUrl
};
};
};
if (v.value0 instanceof Eprivate) {
return function (v1) {
return {
url: v1.url,
title: v1.title,
description: v1.description,
tags: v1.tags,
"private": v.value0.value0,
toread: v1.toread,
bid: v1.bid,
slug: v1.slug,
selected: v1.selected,
time: v1.time,
archiveUrl: v1.archiveUrl
};
};
};
if (v.value0 instanceof Etoread) {
return function (v1) {
return {
url: v1.url,
title: v1.title,
description: v1.description,
tags: v1.tags,
"private": v1["private"],
toread: v.value0.value0,
bid: v1.bid,
slug: v1.slug,
selected: v1.selected,
time: v1.time,
archiveUrl: v1.archiveUrl
};
};
};
throw new Error("Failed pattern match at Component.Add (line 160, column 17 - line 166, column 36): " + [ 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)(Data_Lens_Getter.use(Halogen_Query_HalogenM.monadStateHalogenM)(_edit_bm(Data_Lens_Internal_Forget.strongForget)))(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))))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Setter.assign(Halogen_Query_HalogenM.monadStateHalogenM)(_bm(Data_Profunctor_Strong.strongFn))(v1))(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 150, column 3 - line 150, 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["_bm"] = _bm;
exports["_edit_bm"] = _edit_bm;
exports["addbmark"] = addbmark;
})(PS["Component.Add"] = PS["Component.Add"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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_Lens = PS["Data.Lens"];
var Data_Lens_Getter = PS["Data.Lens.Getter"];
var Data_Lens_Internal_Forget = PS["Data.Lens.Internal.Forget"];
var Data_Lens_Lens = PS["Data.Lens.Lens"];
var Data_Lens_Setter = PS["Data.Lens.Setter"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Nullable = PS["Data.Nullable"];
var Data_Profunctor_Strong = PS["Data.Profunctor.Strong"];
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 _edit_bm = function (dictStrong) {
return Data_Lens_Lens.lens(function (v) {
return v.edit_bm;
})(function (v) {
return function (v1) {
return {
edit_bm: v1,
bm: v.bm,
deleteAsk: v.deleteAsk,
edit: v.edit
};
};
})(dictStrong);
};
var _edit = function (dictStrong) {
return Data_Lens_Lens.lens(function (v) {
return v.edit;
})(function (v) {
return function (v1) {
return {
edit: v1,
bm: v.bm,
deleteAsk: v.deleteAsk,
edit_bm: v.edit_bm
};
};
})(dictStrong);
};
var _bm = function (dictStrong) {
return Data_Lens_Lens.lens(function (v) {
return v.bm;
})(function (v) {
return function (v1) {
return {
bm: v1,
deleteAsk: v.deleteAsk,
edit: v.edit,
edit_bm: v.edit_bm
};
};
})(dictStrong);
};
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)(Data_Lens_Getter.use(Halogen_Query_HalogenM.monadStateHalogenM)(_bm(Data_Lens_Internal_Forget.strongForget)))(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.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)(Data_Lens_Setter.modifying(Halogen_Query_HalogenM.monadStateHalogenM)(_bm(Data_Profunctor_Strong.strongFn))(function (v2) {
return {
url: v2.url,
title: v2.title,
description: v2.description,
tags: v2.tags,
"private": v2["private"],
toread: v2.toread,
bid: v2.bid,
slug: v2.slug,
selected: v.value0,
time: v2.time,
archiveUrl: v2.archiveUrl
};
}))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Setter.modifying(Halogen_Query_HalogenM.monadStateHalogenM)(_edit_bm(Data_Profunctor_Strong.strongFn))(function (v2) {
return {
url: v2.url,
title: v2.title,
description: v2.description,
tags: v2.tags,
"private": v2["private"],
toread: v2.toread,
bid: v2.bid,
slug: v2.slug,
selected: v.value0,
time: v2.time,
archiveUrl: v2.archiveUrl
};
}))(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 $34 = {};
for (var $35 in v1) {
if ({}.hasOwnProperty.call(v1, $35)) {
$34[$35] = v1[$35];
};
};
$34.deleteAsk = v.value0;
return $34;
}))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
};
if (v instanceof BDestroy) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Getter.use(Halogen_Query_HalogenM.monadStateHalogenM)(_bm(Data_Lens_Internal_Forget.strongForget)))(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.bid))))(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)(Data_Lens_Getter.use(Halogen_Query_HalogenM.monadStateHalogenM)(_bm(Data_Lens_Internal_Forget.strongForget)))(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.bid))))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Setter.modifying(Halogen_Query_HalogenM.monadStateHalogenM)(_bm(Data_Profunctor_Strong.strongFn))(function (v2) {
return {
url: v2.url,
title: v2.title,
description: v2.description,
tags: v2.tags,
"private": v2["private"],
toread: false,
bid: v2.bid,
slug: v2.slug,
selected: v2.selected,
time: v2.time,
archiveUrl: v2.archiveUrl
};
}))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value0);
});
});
});
};
if (v instanceof BEdit) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Getter.use(Halogen_Query_HalogenM.monadStateHalogenM)(_bm(Data_Lens_Internal_Forget.strongForget)))(function (v1) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Setter.assign(Halogen_Query_HalogenM.monadStateHalogenM)(_edit_bm(Data_Profunctor_Strong.strongFn))(v1))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Setter.assign(Halogen_Query_HalogenM.monadStateHalogenM)(_edit(Data_Profunctor_Strong.strongFn))(v.value0))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
});
});
};
if (v instanceof BEditField) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Setter.modifying(Halogen_Query_HalogenM.monadStateHalogenM)(_edit_bm(Data_Profunctor_Strong.strongFn))((function () {
if (v.value0 instanceof Eurl) {
return function (v1) {
return {
url: v.value0.value0,
title: v1.title,
description: v1.description,
tags: v1.tags,
"private": v1["private"],
toread: v1.toread,
bid: v1.bid,
slug: v1.slug,
selected: v1.selected,
time: v1.time,
archiveUrl: v1.archiveUrl
};
};
};
if (v.value0 instanceof Etitle) {
return function (v1) {
return {
url: v1.url,
title: v.value0.value0,
description: v1.description,
tags: v1.tags,
"private": v1["private"],
toread: v1.toread,
bid: v1.bid,
slug: v1.slug,
selected: v1.selected,
time: v1.time,
archiveUrl: v1.archiveUrl
};
};
};
if (v.value0 instanceof Edescription) {
return function (v1) {
return {
url: v1.url,
title: v1.title,
description: v.value0.value0,
tags: v1.tags,
"private": v1["private"],
toread: v1.toread,
bid: v1.bid,
slug: v1.slug,
selected: v1.selected,
time: v1.time,
archiveUrl: v1.archiveUrl
};
};
};
if (v.value0 instanceof Etags) {
return function (v1) {
return {
url: v1.url,
title: v1.title,
description: v1.description,
tags: v.value0.value0,
"private": v1["private"],
toread: v1.toread,
bid: v1.bid,
slug: v1.slug,
selected: v1.selected,
time: v1.time,
archiveUrl: v1.archiveUrl
};
};
};
if (v.value0 instanceof Eprivate) {
return function (v1) {
return {
url: v1.url,
title: v1.title,
description: v1.description,
tags: v1.tags,
"private": v.value0.value0,
toread: v1.toread,
bid: v1.bid,
slug: v1.slug,
selected: v1.selected,
time: v1.time,
archiveUrl: v1.archiveUrl
};
};
};
if (v.value0 instanceof Etoread) {
return function (v1) {
return {
url: v1.url,
title: v1.title,
description: v1.description,
tags: v1.tags,
"private": v1["private"],
toread: v.value0.value0,
bid: v1.bid,
slug: v1.slug,
selected: v1.selected,
time: v1.time,
archiveUrl: v1.archiveUrl
};
};
};
throw new Error("Failed pattern match at Component.BMark (line 231, column 17 - line 237, column 36): " + [ 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)(Data_Lens_Getter.use(Halogen_Query_HalogenM.monadStateHalogenM)(_edit_bm(Data_Lens_Internal_Forget.strongForget)))(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))))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Setter.assign(Halogen_Query_HalogenM.monadStateHalogenM)(_bm(Data_Profunctor_Strong.strongFn))(v1))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Setter.assign(Halogen_Query_HalogenM.monadStateHalogenM)(_edit(Data_Profunctor_Strong.strongFn))(false))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
});
});
});
});
};
throw new Error("Failed pattern match at Component.BMark (line 193, column 3 - line 193, column 62): " + [ v.constructor.name ]);
};
var app = Globals["app'"](Data_Unit.unit);
var render = function (v) {
var toTextarea = function (input) {
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")(input)));
};
var star = Data_Monoid.guard(Data_Monoid.monoidArray)(app.dat.isowner)([ Halogen_HTML_Elements.div([ Util.class_("star fl pointer" + Data_Monoid.guard(Data_Monoid.monoidString)(v.bm.selected)(" selected")) ])([ Halogen_HTML_Elements.button([ Util.class_("moon-gray"), 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 di") ])([ 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 light-silver hover-blue") ])([ Halogen_HTML_Core.text("edit\xa0\xa0") ]), Halogen_HTML_Elements.div([ Util.class_("delete_link di") ])([ 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(true))), Util.class_("delete light-silver hover-blue" + Data_Monoid.guard(Data_Monoid.monoidString)(v.deleteAsk)(" dn")) ])([ Halogen_HTML_Core.text("delete") ]), Halogen_HTML_Elements.span([ Util.class_("confirm red" + Data_Monoid.guard(Data_Monoid.monoidString)(!v.deleteAsk)(" dn")) ])([ 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_("red") ])([ Halogen_HTML_Core.text("destroy") ]) ]) ]) ]), Halogen_HTML_Elements.div([ Util.class_("read di") ])(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 Util.fromNullableStr(app.userR) + ("/t:" + tag);
};
var linkToFilterSingle = function (slug) {
return Util.fromNullableStr(app.userR) + ("/b:" + slug);
};
var editField = function (f) {
return function ($64) {
return Halogen_HTML_Events.input(BEditField.create)(f($64));
};
};
var display_edit = [ Halogen_HTML_Elements.div([ Util.class_("edit_bookmark_form pa2 pt0 bg-white") ])([ Halogen_HTML_Elements.form([ Halogen_HTML_Events.onSubmit(Halogen_HTML_Events.input(BEditSubmit.create)) ])([ Halogen_HTML_Elements.div_([ Halogen_HTML_Core.text("url") ]), Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputUrl.value), Util.class_("url w-100 mb2 pt1 f7 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(editField(Eurl.create)) ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.div_([ Halogen_HTML_Core.text("title") ]), Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputText.value), Util.class_("title w-100 mb2 pt1 f7 edit_form_input"), Halogen_HTML_Properties.name("title"), Halogen_HTML_Properties.value(v.edit_bm.title), Halogen_HTML_Events.onValueChange(editField(Etitle.create)) ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.div_([ Halogen_HTML_Core.text("description") ]), Halogen_HTML_Elements.textarea([ Util.class_("description w-100 mb1 pt1 f7 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(editField(Edescription.create)) ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.div([ Halogen_HTML_Properties.id_("tags_input_box") ])([ Halogen_HTML_Elements.div_([ 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 w-100 mb1 pt1 f7 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(editField(Etags.create)) ]), Halogen_HTML_Elements.br_ ]), Halogen_HTML_Elements.div([ Util.class_("edit_form_checkboxes mv3") ])([ Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputCheckbox.value), Util.class_("private pointer"), Halogen_HTML_Properties.id_("edit_private"), Halogen_HTML_Properties.name("private"), Halogen_HTML_Properties.checked(v["edit_bm"]["private"]), Halogen_HTML_Events.onChecked(editField(Eprivate.create)) ]), Halogen_HTML_Core.text(" "), Halogen_HTML_Elements.label([ Halogen_HTML_Properties["for"]("edit_private"), Util.class_("mr2") ])([ 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 pointer"), Halogen_HTML_Properties.id_("edit_toread"), Halogen_HTML_Properties.name("toread"), Halogen_HTML_Properties.checked(v.edit_bm.toread), Halogen_HTML_Events.onChecked(editField(Etoread.create)) ]), Halogen_HTML_Core.text(" "), Halogen_HTML_Elements.label([ Halogen_HTML_Properties["for"]("edit_toread") ])([ Halogen_HTML_Core.text("to-read") ]), Halogen_HTML_Elements.br_ ]), Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputSubmit.value), Util.class_("mr1 pv1 ph2 dark-gray ba b--moon-gray bg-near-white pointer rdim"), 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_("pv1 ph2 dark-gray ba b--moon-gray bg-near-white pointer rdim"), 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_("link f5 lh-title" + Data_Monoid.guard(Data_Monoid.monoidString)(v.bm.toread)(" unread")) ])([ Halogen_HTML_Core.text((function () {
var $59 = Data_String_Common["null"](v.bm.title);
if ($59) {
return "[no title]";
};
return v.bm.title;
})()) ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.a([ Halogen_HTML_Properties.href(v.bm.url), Util.class_("link f7 gray hover-blue") ])([ Halogen_HTML_Core.text(v.bm.url) ]), Halogen_HTML_Elements.a([ Halogen_HTML_Properties.href(Data_Maybe.fromMaybe("http://archive.is/" + v.bm.url)(Data_Nullable.toMaybe(v.bm.archiveUrl))), Util.class_("link f7 gray hover-blue ml2" + Data_Monoid.guard(Data_Monoid.monoidString)(Data_Maybe.isJust(Data_Nullable.toMaybe(v.bm.archiveUrl)))(" green")), Halogen_HTML_Properties.target("_blank"), Halogen_HTML_Properties.title("archive link") ])([ (function () {
var $60 = Data_Maybe.isJust(Data_Nullable.toMaybe(v.bm.archiveUrl));
if ($60) {
return Halogen_HTML_Core.text("\u2611");
};
return Halogen_HTML_Core.text("\u2610");
})() ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.div([ Util.class_("description mt1 mid-gray") ])(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_("link tag mr1" + 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_("link f7 dib gray w4"), Halogen_HTML_Properties.title(Data_Maybe.maybe(v.bm.time)(Data_Tuple.snd)(mmoment)), Halogen_HTML_Properties.href(linkToFilterSingle(v.bm.slug)) ])([ Halogen_HTML_Core.text(Data_Maybe.maybe("\xa0")(Data_Tuple.fst)(mmoment)) ]) ])(links)) ];
return Halogen_HTML_Elements.div([ Halogen_HTML_Properties.id_(Data_Show.show(Data_Show.showInt)(v.bm.bid)), Util.class_("bookmark w-100 mw7 pa1 mb3" + 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 display;
})()));
};
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["_bm"] = _bm;
exports["_edit_bm"] = _edit_bm;
exports["_edit"] = _edit;
exports["bmark"] = bmark;
})(PS["Component.BMark"] = PS["Component.BMark"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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 blist = function (st) {
var render = function (bms) {
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)));
};
return Halogen_HTML_Elements.div_(Data_Functor.map(Data_Functor.functorArray)(renderBookmark)(bms));
};
var $$eval = function (v) {
var removeBookmark = function (bookmarkId) {
return Data_Array.filter(function (b) {
return b.bid !== bookmarkId;
});
};
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;
})(PS["Component.BList"] = PS["Component.BList"] || {});
(function(exports) {// use at your own risk!
exports.unsafeSetInnerHTML = function(element) {
return function(html) {
return function() {
element.innerHTML = html;
};
};
};
})(PS["Component.RawHtml"] = PS["Component.RawHtml"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"use strict";
var $foreign = PS["Component.RawHtml"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Monad_State_Class = PS["Control.Monad.State.Class"];
var Data_Foldable = PS["Data.Foldable"];
var Data_Function = PS["Data.Function"];
var Data_Maybe = PS["Data.Maybe"];
var Effect = PS["Effect"];
var Effect_Aff = PS["Effect.Aff"];
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 = PS["Halogen.Query"];
var Halogen_Query_HalogenM = PS["Halogen.Query.HalogenM"];
var Halogen_Query_InputF = PS["Halogen.Query.InputF"];
var Prelude = PS["Prelude"];
var Web_HTML = PS["Web.HTML"];
var SetInnerHTML = (function () {
function SetInnerHTML(value0) {
this.value0 = value0;
};
SetInnerHTML.create = function (value0) {
return new SetInnerHTML(value0);
};
return SetInnerHTML;
})();
var Receive = (function () {
function Receive(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
Receive.create = function (value0) {
return function (value1) {
return new Receive(value0, value1);
};
};
return Receive;
})();
var mkComponent = function (toRawHTML) {
var render = function (state) {
return Halogen_HTML_Elements.div([ Halogen_HTML_Properties.ref(state.elRef) ])([ ]);
};
var $$eval = function (v) {
if (v instanceof SetInnerHTML) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.get(Halogen_Query_HalogenM.monadStateHalogenM))(function (v1) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Halogen_Query.getHTMLElementRef(v1.elRef))(function (v2) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Foldable.for_(Halogen_Query_HalogenM.applicativeHalogenM)(Data_Foldable.foldableMaybe)(v2)(function (el) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.get(Halogen_Query_HalogenM.monadStateHalogenM))(function (v3) {
return Effect_Class.liftEffect(Halogen_Query_HalogenM.monadEffectHalogenM(Effect_Aff.monadEffectAff))($foreign.unsafeSetInnerHTML(el)(toRawHTML(v3.inputval)));
});
}))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value0);
});
});
});
};
if (v instanceof Receive) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.modify_(Halogen_Query_HalogenM.monadStateHalogenM)(function (v1) {
var $12 = {};
for (var $13 in v1) {
if ({}.hasOwnProperty.call(v1, $13)) {
$12[$13] = v1[$13];
};
};
$12.inputval = v.value0;
return $12;
}))(function () {
return $$eval(new SetInnerHTML(v.value1));
});
};
throw new Error("Failed pattern match at Component.RawHtml (line 51, column 10 - line 62, column 27): " + [ v.constructor.name ]);
};
return Halogen_Component.lifecycleComponent(Halogen_HTML_Core.bifunctorHTML)({
initialState: function (inputval) {
return {
elRef: "inputval",
inputval: inputval
};
},
render: render,
"eval": $$eval,
receiver: Halogen_HTML_Events.input(Receive.create),
initializer: Data_Maybe.Just.create(Halogen_Query.action(SetInnerHTML.create)),
finalizer: Data_Maybe.Nothing.value
});
};
exports["SetInnerHTML"] = SetInnerHTML;
exports["Receive"] = Receive;
exports["mkComponent"] = mkComponent;
})(PS["Component.RawHtml"] = PS["Component.RawHtml"] || {});
(function(exports) {exports.markedImpl = function(str) {
marked.setOptions({
pedantic: false,
gfm: true
});
return marked(str);
};
})(PS["Foreign.Marked"] = PS["Foreign.Marked"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"use strict";
var $foreign = PS["Foreign.Marked"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
var Globals = PS["Globals"];
var Prelude = PS["Prelude"];
var marked = function ($0) {
return Globals.RawHTML($foreign.markedImpl($0));
};
exports["marked"] = marked;
})(PS["Foreign.Marked"] = PS["Foreign.Marked"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"use strict";
var Component_RawHtml = PS["Component.RawHtml"];
var Effect_Aff = PS["Effect.Aff"];
var Foreign_Marked = PS["Foreign.Marked"];
var Halogen = PS["Halogen"];
var Halogen_HTML = PS["Halogen.HTML"];
var component = Component_RawHtml.mkComponent(Foreign_Marked.marked);
exports["component"] = component;
})(PS["Component.Markdown"] = PS["Component.Markdown"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"use strict";
var Control_Applicative = PS["Control.Applicative"];
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_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 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_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 nlist = function (st$prime) {
var toTextarea = function (input) {
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")(input)));
};
var mmoment = function (bm) {
return Globals.mmoment8601(bm.created);
};
var mkState = function (notes$prime) {
return {
notes: notes$prime,
cur: Data_Maybe.Nothing.value,
deleteAsk: false,
edit: false
};
};
var $$eval = function (v) {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value0);
};
var app = Globals["app'"](Data_Unit.unit);
var linkToFilterSingle = function (slug) {
return Util.fromNullableStr(app.userR) + ("/notes/" + slug);
};
var render = function (v) {
var renderNote = function (bm) {
return Halogen_HTML_Elements.div([ Halogen_HTML_Properties.id_(Data_Show.show(Data_Show.showInt)(bm.id)), Util.class_("note w-100 mw7 pa1 mb2") ])([ Halogen_HTML_Elements.div([ Util.class_("display") ])([ Halogen_HTML_Elements.a([ Halogen_HTML_Properties.href(linkToFilterSingle(bm.slug)), Util.class_("link f5 lh-title") ])([ Halogen_HTML_Core.text((function () {
var $5 = Data_String_Common["null"](bm.title);
if ($5) {
return "[no title]";
};
return bm.title;
})()) ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.div([ Util.class_("description mt1 mid-gray") ])(toTextarea(Data_String_CodePoints.take(200)(bm.text))), Halogen_HTML_Elements.a([ Util.class_("link f7 dib gray w4"), Halogen_HTML_Properties.title(Data_Maybe.maybe(bm.created)(Data_Tuple.snd)(mmoment(bm))), Halogen_HTML_Properties.href(linkToFilterSingle(bm.slug)) ])([ Halogen_HTML_Core.text(Data_Maybe.maybe("\xa0")(Data_Tuple.fst)(mmoment(bm))) ]) ]) ]);
};
return Halogen_HTML_Elements.div_(Data_Functor.map(Data_Functor.functorArray)(renderNote)(v.notes));
};
return Halogen_Component.component(Halogen_HTML_Core.bifunctorHTML)({
initialState: Data_Function["const"](mkState(st$prime)),
render: render,
"eval": $$eval,
receiver: Data_Function["const"](Data_Maybe.Nothing.value)
});
};
exports["nlist"] = nlist;
})(PS["Component.NList"] = PS["Component.NList"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"use strict";
var App = PS["App"];
var Component_Markdown = PS["Component.Markdown"];
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_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_HeytingAlgebra = PS["Data.HeytingAlgebra"];
var Data_Lens = PS["Data.Lens"];
var Data_Lens_Getter = PS["Data.Lens.Getter"];
var Data_Lens_Internal_Forget = PS["Data.Lens.Internal.Forget"];
var Data_Lens_Lens = PS["Data.Lens.Lens"];
var Data_Lens_Setter = PS["Data.Lens.Setter"];
var Data_Maybe = PS["Data.Maybe"];
var Data_Monoid = PS["Data.Monoid"];
var Data_Ord = PS["Data.Ord"];
var Data_Profunctor_Strong = PS["Data.Profunctor.Strong"];
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_String_Pattern = PS["Data.String.Pattern"];
var Data_Tuple = PS["Data.Tuple"];
var Data_Unit = PS["Data.Unit"];
var Data_Void = PS["Data.Void"];
var Effect = PS["Effect"];
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_Location = PS["Web.HTML.Location"];
var Etitle = (function () {
function Etitle(value0) {
this.value0 = value0;
};
Etitle.create = function (value0) {
return new Etitle(value0);
};
return Etitle;
})();
var Etext = (function () {
function Etext(value0) {
this.value0 = value0;
};
Etext.create = function (value0) {
return new Etext(value0);
};
return Etext;
})();
var EisMarkdown = (function () {
function EisMarkdown(value0) {
this.value0 = value0;
};
EisMarkdown.create = function (value0) {
return new EisMarkdown(value0);
};
return EisMarkdown;
})();
var NNop = (function () {
function NNop(value0) {
this.value0 = value0;
};
NNop.create = function (value0) {
return new NNop(value0);
};
return NNop;
})();
var NEditField = (function () {
function NEditField(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
NEditField.create = function (value0) {
return function (value1) {
return new NEditField(value0, value1);
};
};
return NEditField;
})();
var NEditSubmit = (function () {
function NEditSubmit(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
NEditSubmit.create = function (value0) {
return function (value1) {
return new NEditSubmit(value0, value1);
};
};
return NEditSubmit;
})();
var NEdit = (function () {
function NEdit(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
NEdit.create = function (value0) {
return function (value1) {
return new NEdit(value0, value1);
};
};
return NEdit;
})();
var NDeleteAsk = (function () {
function NDeleteAsk(value0, value1) {
this.value0 = value0;
this.value1 = value1;
};
NDeleteAsk.create = function (value0) {
return function (value1) {
return new NDeleteAsk(value0, value1);
};
};
return NDeleteAsk;
})();
var NDestroy = (function () {
function NDestroy(value0) {
this.value0 = value0;
};
NDestroy.create = function (value0) {
return new NDestroy(value0);
};
return NDestroy;
})();
var _note = function (dictStrong) {
return Data_Lens_Lens.lens(function (v) {
return v.note;
})(function (v) {
return function (v1) {
return {
note: v1,
deleteAsk: v.deleteAsk,
destroyed: v.destroyed,
edit: v.edit,
edit_note: v.edit_note
};
};
})(dictStrong);
};
var _edit_note = function (dictStrong) {
return Data_Lens_Lens.lens(function (v) {
return v.edit_note;
})(function (v) {
return function (v1) {
return {
edit_note: v1,
deleteAsk: v.deleteAsk,
destroyed: v.destroyed,
edit: v.edit,
note: v.note
};
};
})(dictStrong);
};
var _edit = function (dictStrong) {
return Data_Lens_Lens.lens(function (v) {
return v.edit;
})(function (v) {
return function (v1) {
return {
edit: v1,
deleteAsk: v.deleteAsk,
destroyed: v.destroyed,
edit_note: v.edit_note,
note: v.note
};
};
})(dictStrong);
};
var nnote = function (st$prime) {
var render = function (v) {
var toTextarea = function (input) {
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")(input)));
};
var mmoment = function (n) {
return Globals.mmoment8601(n.created);
};
var renderNote = Halogen_HTML_Elements.div([ Halogen_HTML_Properties.id_(Data_Show.show(Data_Show.showInt)(v.note.id)), Util.class_("note w-100 mw7 pa1 mb2") ])(Data_Semigroup.append(Data_Semigroup.semigroupArray)([ Halogen_HTML_Elements.div([ Util.class_("display") ])([ Halogen_HTML_Elements.div([ Util.class_("link f5 lh-title") ])([ Halogen_HTML_Core.text((function () {
var $24 = Data_String_Common["null"](v.note.title);
if ($24) {
return "[no title]";
};
return v.note.title;
})()) ]), Halogen_HTML_Elements.br_, (function () {
if (v.note.isMarkdown) {
return Halogen_HTML_Elements.div([ Util.class_("description mt1") ])([ Halogen_HTML.slot(Data_Unit.unit)(Component_Markdown.component)(v.note.text)(Data_Void.absurd) ]);
};
return Halogen_HTML_Elements.div([ Util.class_("description mt1 mid-gray") ])(toTextarea(v.note.text));
})(), Halogen_HTML_Elements.div([ Util.class_("link f7 dib gray w4"), Halogen_HTML_Properties.title(Data_Maybe.maybe(v.note.created)(Data_Tuple.snd)(mmoment(v.note))) ])([ Halogen_HTML_Core.text(Data_Maybe.maybe("\xa0")(Data_Tuple.fst)(mmoment(v.note))) ]) ]) ])([ Halogen_HTML_Elements.div([ Util.class_("edit_links db mt3") ])([ 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_(NEdit.create(true))), Util.class_("edit light-silver hover-blue") ])([ Halogen_HTML_Core.text("edit\xa0\xa0") ]), Halogen_HTML_Elements.div([ Util.class_("delete_link di") ])([ 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_(NDeleteAsk.create(true))), Util.class_("delete light-silver hover-blue" + Data_Monoid.guard(Data_Monoid.monoidString)(v.deleteAsk)(" dn")) ])([ Halogen_HTML_Core.text("delete") ]), Halogen_HTML_Elements.span([ Util.class_("confirm red" + Data_Monoid.guard(Data_Monoid.monoidString)(!v.deleteAsk)(" dn")) ])([ 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_(NDeleteAsk.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_(NDestroy.create)), Util.class_("red") ])([ Halogen_HTML_Core.text("destroy") ]) ]) ]) ]) ]));
var editField = function (f) {
return function ($59) {
return Halogen_HTML_Events.input(NEditField.create)(f($59));
};
};
var renderNote_edit = Halogen_HTML_Elements.form([ Halogen_HTML_Events.onSubmit(Halogen_HTML_Events.input(NEditSubmit.create)) ])([ Halogen_HTML_Elements.p([ Util.class_("mt2 mb1") ])([ Halogen_HTML_Core.text("title:") ]), Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputText.value), Util.class_("title w-100 mb1 pt1 f7 edit_form_input"), Halogen_HTML_Properties.name("title"), Halogen_HTML_Properties.value(v.edit_note.title), Halogen_HTML_Events.onValueChange(editField(Etitle.create)) ]), Halogen_HTML_Elements.br_, Halogen_HTML_Elements.p([ Util.class_("mt2 mb1") ])([ Halogen_HTML_Core.text("description:") ]), Halogen_HTML_Elements.textarea([ Util.class_("description w-100 mb1 pt1 f7 edit_form_input"), Halogen_HTML_Properties.name("text"), Halogen_HTML_Properties.rows(30), Halogen_HTML_Properties.value(v.edit_note.text), Halogen_HTML_Events.onValueChange(editField(Etext.create)) ]), Halogen_HTML_Elements.div([ Util.class_("edit_form_checkboxes mb3") ])([ Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputCheckbox.value), Util.class_("is-markdown pointer"), Halogen_HTML_Properties.id_("edit_ismarkdown"), Halogen_HTML_Properties.name("ismarkdown"), Halogen_HTML_Properties.checked(v.edit_note.isMarkdown), Halogen_HTML_Events.onChecked(editField(EisMarkdown.create)) ]), Halogen_HTML_Core.text(" "), Halogen_HTML_Elements.label([ Halogen_HTML_Properties["for"]("edit_ismarkdown"), Util.class_("mr2") ])([ Halogen_HTML_Core.text("use markdown?") ]), Halogen_HTML_Elements.br_ ]), Halogen_HTML_Elements.input([ Halogen_HTML_Properties.type_(Halogen_HTML_Core.inputTypeIsProp)(DOM_HTML_Indexed_InputType.InputSubmit.value), Util.class_("mr1 pv1 ph2 dark-gray ba b--moon-gray bg-near-white pointer rdim"), 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_("pv1 ph2 dark-gray ba b--moon-gray bg-near-white pointer rdim"), Halogen_HTML_Properties.value("cancel"), Halogen_HTML_Events.onClick(Halogen_HTML_Events.input_(NEdit.create(false))) ]) ]);
var display_destroyed = Halogen_HTML_Elements.p([ Util.class_("red") ])([ Halogen_HTML_Core.text("you killed this note") ]);
if (v.destroyed) {
return display_destroyed;
};
if (v.edit) {
return renderNote_edit;
};
return renderNote;
};
var mkState = function (note$prime) {
return {
note: note$prime,
edit_note: note$prime,
deleteAsk: false,
edit: note$prime.id <= 0,
destroyed: false
};
};
var app = Globals["app'"](Data_Unit.unit);
var $$eval = function (v) {
if (v instanceof NNop) {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value0);
};
if (v instanceof NEditField) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Setter.modifying(Halogen_Query_HalogenM.monadStateHalogenM)(_edit_note(Data_Profunctor_Strong.strongFn))((function () {
if (v.value0 instanceof Etitle) {
return function (v1) {
return {
id: v1.id,
slug: v1.slug,
title: v.value0.value0,
text: v1.text,
length: v1.length,
isMarkdown: v1.isMarkdown,
created: v1.created,
updated: v1.updated
};
};
};
if (v.value0 instanceof Etext) {
return function (v1) {
return {
id: v1.id,
slug: v1.slug,
title: v1.title,
text: v.value0.value0,
length: v1.length,
isMarkdown: v1.isMarkdown,
created: v1.created,
updated: v1.updated
};
};
};
if (v.value0 instanceof EisMarkdown) {
return function (v1) {
return {
id: v1.id,
slug: v1.slug,
title: v1.title,
text: v1.text,
length: v1.length,
isMarkdown: v.value0.value0,
created: v1.created,
updated: v1.updated
};
};
};
throw new Error("Failed pattern match at Component.NNote (line 158, column 19 - line 161, column 44): " + [ v.value0.constructor.name ]);
})()))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
};
if (v instanceof NDeleteAsk) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.modify_(Halogen_Query_HalogenM.monadStateHalogenM)(function (v1) {
var $38 = {};
for (var $39 in v1) {
if ({}.hasOwnProperty.call(v1, $39)) {
$38[$39] = v1[$39];
};
};
$38.deleteAsk = v.value0;
return $38;
}))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
};
if (v instanceof NDestroy) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Getter.use(Halogen_Query_HalogenM.monadStateHalogenM)(_note(Data_Lens_Internal_Forget.strongForget)))(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.destroyNote(v1.id))))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Control_Monad_State_Class.modify_(Halogen_Query_HalogenM.monadStateHalogenM)(function (v2) {
var $44 = {};
for (var $45 in v2) {
if ({}.hasOwnProperty.call(v2, $45)) {
$44[$45] = v2[$45];
};
};
$44.destroyed = true;
return $44;
}))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value0);
});
});
});
};
if (v instanceof NEdit) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Getter.use(Halogen_Query_HalogenM.monadStateHalogenM)(_note(Data_Lens_Internal_Forget.strongForget)))(function (v1) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Setter.assign(Halogen_Query_HalogenM.monadStateHalogenM)(_edit_note(Data_Profunctor_Strong.strongFn))(v1))(function () {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Setter.assign(Halogen_Query_HalogenM.monadStateHalogenM)(_edit(Data_Profunctor_Strong.strongFn))(v.value0))(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
});
});
};
if (v instanceof NEditSubmit) {
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)(Data_Lens_Getter.use(Halogen_Query_HalogenM.monadStateHalogenM)(_edit_note(Data_Lens_Internal_Forget.strongForget)))(function (v1) {
return Control_Bind.bind(Halogen_Query_HalogenM.bindHalogenM)(Effect_Aff_Class.liftAff(Halogen_Query_HalogenM.monadAffHalogenM(Effect_Aff_Class.monadAffAff))(App.editNote(v1)))(function (v2) {
if (v2.body instanceof Data_Either.Left) {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
};
if (v2.body instanceof Data_Either.Right) {
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)((function () {
var $55 = v1.id === 0;
if ($55) {
return Effect_Class.liftEffect(Halogen_Query_HalogenM.monadEffectHalogenM(Effect_Aff.monadEffectAff))(Control_Bind.bindFlipped(Effect.bindEffect)(Web_HTML_Location.setHref(Util.fromNullableStr(app.noteR)))(Util["_loc"]));
};
return Control_Bind.discard(Control_Bind.discardUnit)(Halogen_Query_HalogenM.bindHalogenM)(Data_Lens_Setter.assign(Halogen_Query_HalogenM.monadStateHalogenM)(_note(Data_Profunctor_Strong.strongFn))(v1))(function () {
return Data_Lens_Setter.assign(Halogen_Query_HalogenM.monadStateHalogenM)(_edit(Data_Profunctor_Strong.strongFn))(false);
});
})())(function () {
return Control_Applicative.pure(Halogen_Query_HalogenM.applicativeHalogenM)(v.value1);
});
};
throw new Error("Failed pattern match at Component.NNote (line 188, column 5 - line 197, column 14): " + [ v2.body.constructor.name ]);
});
});
});
};
throw new Error("Failed pattern match at Component.NNote (line 153, column 3 - line 153, column 72): " + [ v.constructor.name ]);
};
return Halogen_Component.parentComponent(Data_Ord.ordUnit)({
initialState: Data_Function["const"](mkState(st$prime)),
render: render,
"eval": $$eval,
receiver: Data_Function["const"](Data_Maybe.Nothing.value)
});
};
exports["NNop"] = NNop;
exports["NEditField"] = NEditField;
exports["NEditSubmit"] = NEditSubmit;
exports["NEdit"] = NEdit;
exports["NDeleteAsk"] = NDeleteAsk;
exports["NDestroy"] = NDestroy;
exports["_note"] = _note;
exports["_edit_note"] = _edit_note;
exports["_edit"] = _edit;
exports["Etitle"] = Etitle;
exports["Etext"] = Etext;
exports["EisMarkdown"] = EisMarkdown;
exports["nnote"] = nnote;
})(PS["Component.NNote"] = PS["Component.NNote"] || {});
(function(exports) {
// Generated by purs version 0.12.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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.2
"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.2
"use strict";
var App = PS["App"];
var Component_AccountSettings = PS["Component.AccountSettings"];
var Component_Add = PS["Component.Add"];
var Component_BList = PS["Component.BList"];
var Component_NList = PS["Component.NList"];
var Component_NNote = PS["Component.NNote"];
var Control_Applicative = PS["Control.Applicative"];
var Control_Bind = PS["Control.Bind"];
var Control_Semigroupoid = PS["Control.Semigroupoid"];
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_Event_Event = PS["Web.Event.Event"];
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 renderNotes = function (renderElSelector) {
return function (notes) {
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_NList.nlist(notes))(Data_Unit.unit)(el)))(function () {
return showFooter;
});
})));
};
};
var renderNote = function (renderElSelector) {
return function (note) {
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 Data_Functor["void"](Effect_Aff.functorAff)(Halogen_VDom_Driver.runUI(Component_NNote.nnote(note))(Data_Unit.unit)(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);
})));
};
};
var renderAccountSettings = function (renderElSelector) {
return function (accountSettings) {
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 Data_Functor["void"](Effect_Aff.functorAff)(Halogen_VDom_Driver.runUI(Component_AccountSettings.usetting(accountSettings))(Data_Unit.unit)(el));
})));
};
};
var main = Control_Applicative.pure(Effect.applicativeEffect)(Data_Unit.unit);
var logoutE = function (e) {
return Control_Bind.bindFlipped(Effect.bindEffect)(function ($0) {
return Data_Functor["void"](Effect.functorEffect)(Effect_Aff.launchAff(App.logout($0)));
})(Web_Event_Event.preventDefault(e));
};
exports["main"] = main;
exports["logoutE"] = logoutE;
exports["renderBookmarks"] = renderBookmarks;
exports["renderAddForm"] = renderAddForm;
exports["renderNotes"] = renderNotes;
exports["renderNote"] = renderNote;
exports["renderAccountSettings"] = renderAccountSettings;
exports["showFooter"] = showFooter;
})(PS["Main"] = PS["Main"] || {});
PS["Main"].main();