git.iko.soy/elk
on master help sign in
Check in all the new JS
3008387Evan Czaplicki
tests/test-files/good-expected-js/AliasSubstitution.elm.js+3−18
compare with master
unifiedsplit
@@ -1,19 +1,4 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var extractVec = function (v) {
2+var elm_lang$core$Main$extractVec = function (v) {
13− return {_: {},x: v.x,y: v.y};
3+ return {_: {},x: v.x,y: v.y};
14− };
15− _elm.Main.values = {_op: _op
16− ,Vec2Ext: Vec2Ext
17− ,extractVec: extractVec};
18− return _elm.Main.values;
19};
4};
tests/test-files/good-expected-js/CaseExpression3.elm.js+23−47
@@ -1,47 +1,23 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var Cons = F2(function (a,b) {
2+var elm_lang$core$Main$Cons = F2(function (a,
3+b) {
13− return {ctor: "Cons"
4+ return {ctor: "Cons",_0: a,_1: b};
14− ,_0: a
15− ,_1: b};
16− });
5+});
17− var Nil = {ctor: "Nil"};
6+var elm_lang$core$Main$Nil = {ctor: "Nil"};
18− var zip = F2(function (list1,
7+var elm_lang$core$Main$zip = F2(function (list1,
19− list2) {
8+list2) {
20− var _v0 = {ctor: "_Tuple2"
9+ var _p0 = {ctor: "_Tuple2"
21− ,_0: list1
10+ ,_0: list1
22− ,_1: list2};
11+ ,_1: list2};
23− switch (_v0.ctor)
24− {case "_Tuple2":
25− switch (_v0._0.ctor)
12+ switch (_p0._0.ctor)
26− {case "Nil": return Nil;}
13+ {case "Nil": return elm_lang$core$Main$Nil;
27− switch (_v0._1.ctor)
14+ default: switch (_p0._1.ctor)
28− {case "Nil": return Nil;}
15+ {case "Nil": return elm_lang$core$Main$Nil;
29− switch (_v0._0.ctor)
16+ default: var x = _p0._0._0;
30− {case "Cons":
17+ var xs = _p0._0._1;
31− switch (_v0._1.ctor)
18+ var y = _p0._1._0;
19+ var ys = _p0._1._1;
32− {case "Cons": return A2(Cons,
20+ return A2(elm_lang$core$Main$Cons,
33− {ctor: "_Tuple2"
21+ {ctor: "_Tuple2",_0: x,_1: y},
34− ,_0: _v0._0._0
22+ A2(elm_lang$core$Main$zip,xs,ys));}}
35− ,_1: _v0._1._0},
36− A2(zip,_v0._0._1,_v0._1._1));}
37− break;}
38− break;}
39− _U.badCase($moduleName,
40− "bugs in reporting the exact location right now");
41− });
23+});
42− _elm.Main.values = {_op: _op
43− ,Nil: Nil
44− ,Cons: Cons
45− ,zip: zip};
46− return _elm.Main.values;
47−};
tests/test-files/good-expected-js/Lists/EmptyList.elm.js+2−16
@@ -1,16 +1,2 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
2+var elm_lang$core$Main$emptyList = _utils.list([]);
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var emptyList = _L.fromArray([]);
13− _elm.Main.values = {_op: _op
14− ,emptyList: emptyList};
15− return _elm.Main.values;
16−};
tests/test-files/good-expected-js/Lists/ListRange.elm.js+3−16
@@ -1,16 +1,3 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var listRange = _L.range(2,10);
2+var elm_lang$core$Main$listRange = _utils.range(2,
13− _elm.Main.values = {_op: _op
3+10);
14− ,listRange: listRange};
15− return _elm.Main.values;
16−};
tests/test-files/good-expected-js/Lists/NonEmptyList.elm.js+4−18
@@ -1,18 +1,4 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
2+var elm_lang$core$Main$nonEmptyList = _utils.list([1
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var nonEmptyList = _L.fromArray([1
13− ,4
3+ ,4
14− ,5]);
4+ ,5]);
15− _elm.Main.values = {_op: _op
16− ,nonEmptyList: nonEmptyList};
17− return _elm.Main.values;
18−};
tests/test-files/good-expected-js/NoExpressions.elm.js+1−14
@@ -1,14 +1 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− _elm.Main.values = {_op: _op};
13− return _elm.Main.values;
14−};
tests/test-files/good-expected-js/Otherwise.elm.js+3−18
@@ -1,18 +1,3 @@
1−Elm.Otherwise = Elm.Otherwise || {};
1+var elm_lang$core$Otherwise$_op = {};
2−Elm.Otherwise.make = function (_elm) {
3− "use strict";
4− _elm.Otherwise = _elm.Otherwise || {};
5− if (_elm.Otherwise.values)
6− return _elm.Otherwise.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Otherwise";
12− var boo = false ? "Yay" : "Boo";
2+var elm_lang$core$Otherwise$boo = false ? "Yay" : "Boo";
13− var otherwise = 3;
3+var elm_lang$core$Otherwise$otherwise = 3;
14− _elm.Otherwise.values = {_op: _op
15− ,otherwise: otherwise
16− ,boo: boo};
17− return _elm.Otherwise.values;
18−};
tests/test-files/good-expected-js/Ports.elm.js+54−71
@@ -1,74 +1,57 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var students = Elm.Native.Port.make(_elm).outbound("students",
2+var elm_lang$core$Main$students = Elm.Native.Port.make(_elm).outbound("students",
13− function (v) {
3+function (v) {
14− return Elm.Native.List.make(_elm).toArray(v).map(function (v) {
4+ return Elm.Native.List.make(_elm).toArray(v).map(function (v) {
15− return {name: v.name
5+ return {name: v.name,age: v.age};
16− ,age: v.age};
17− });
18− },
19− _L.fromArray([{_: {}
20− ,age: 42
21− ,name: "Tom"}]));
22− var time = Elm.Native.Port.make(_elm).outbound("time",
23− function (v) {
24− return v;
25− },
26− 3.14);
27− var fortyTwo = Elm.Native.Port.make(_elm).outbound("fortyTwo",
28− function (v) {
29− return v;
30− },
31− 42);
32− var record = Elm.Native.Port.make(_elm).inbound("record",
33− "{ x : Float, y : Float }",
34− function (v) {
35− return typeof v === "object" && "x" in v && "y" in v ? {_: {}
36− ,x: typeof v.x === "number" ? v.x : _U.badPort("a number",
37− v.x)
38− ,y: typeof v.y === "number" ? v.y : _U.badPort("a number",
39− v.y)} : _U.badPort("an object with fields `x`, `y`",
40− v);
41− });
42− var array = Elm.Native.Port.make(_elm).inbound("array",
43− "List Int",
44− function (v) {
45− return typeof v === "object" && v instanceof Array ? Elm.Native.List.make(_elm).fromArray(v.map(function (v) {
46− return typeof v === "number" ? v : _U.badPort("a number",
47− v);
48− })) : _U.badPort("an array",v);
49− });
50− var tuple = Elm.Native.Port.make(_elm).inbound("tuple",
51− "(Float, Bool)",
52− function (v) {
53− return typeof v === "object" && v instanceof Array ? {ctor: "_Tuple2"
54− ,_0: typeof v[0] === "number" ? v[0] : _U.badPort("a number",
55− v[0])
56− ,_1: typeof v[1] === "boolean" ? v[1] : _U.badPort("a boolean (true or false)",
57− v[1])} : _U.badPort("an array",
58− v);
59 });
6 });
7+},
8+_utils.list([{_: {},age: 42,name: "Tom"}]));
9+var elm_lang$core$Main$time = Elm.Native.Port.make(_elm).outbound("time",
10+function (v) {
11+ return v;
12+},
13+3.14);
14+var elm_lang$core$Main$fortyTwo = Elm.Native.Port.make(_elm).outbound("fortyTwo",
15+function (v) {
16+ return v;
17+},
18+42);
60− var number = Elm.Native.Port.make(_elm).inbound("number",
19+var elm_lang$core$Main$record = Elm.Native.Port.make(_elm).inbound("record",
20+"{ x : Float, y : Float }",
21+function (v) {
22+ return typeof v === "object" && "x" in v && "y" in v ? {_: {}
23+ ,x: typeof v.x === "number" ? v.x : _U.badPort("a number",
24+ v.x)
25+ ,y: typeof v.y === "number" ? v.y : _U.badPort("a number",
26+ v.y)} : _U.badPort("an object with fields `x`, `y`",
27+ v);
28+});
29+var elm_lang$core$Main$array = Elm.Native.Port.make(_elm).inbound("array",
61− "Int",
30+"List Int",
62− function (v) {
31+function (v) {
32+ return typeof v === "object" && v instanceof Array ? Elm.Native.List.make(_elm).fromArray(v.map(function (v) {
63 return typeof v === "number" ? v : _U.badPort("a number",
33 return typeof v === "number" ? v : _U.badPort("a number",
64 v);
34 v);
65− });
35+ })) : _U.badPort("an array",v);
36+});
37+var elm_lang$core$Main$tuple = Elm.Native.Port.make(_elm).inbound("tuple",
38+"(Float, Bool)",
39+function (v) {
40+ return typeof v === "object" && v instanceof Array ? {ctor: "_Tuple2"
41+ ,_0: typeof v[0] === "number" ? v[0] : _U.badPort("a number",
42+ v[0])
43+ ,_1: typeof v[1] === "boolean" ? v[1] : _U.badPort("a boolean (true or false)",
44+ v[1])} : _U.badPort("an array",v);
45+});
46+var elm_lang$core$Main$number = Elm.Native.Port.make(_elm).inbound("number",
47+"Int",
48+function (v) {
49+ return typeof v === "number" ? v : _U.badPort("a number",
50+ v);
51+});
66− var userID = Elm.Native.Port.make(_elm).inbound("userID",
52+var elm_lang$core$Main$userID = Elm.Native.Port.make(_elm).inbound("userID",
67− "String",
53+"String",
68− function (v) {
54+function (v) {
69− return typeof v === "string" || typeof v === "object" && v instanceof String ? v : _U.badPort("a string",
55+ return typeof v === "string" || typeof v === "object" && v instanceof String ? v : _U.badPort("a string",
70− v);
56+ v);
71− });
57+});
72− _elm.Main.values = {_op: _op};
73− return _elm.Main.values;
74−};
tests/test-files/good-expected-js/PortsWithTypeAliases.elm.js+25−38
@@ -1,38 +1,25 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var pairs = Elm.Native.Port.make(_elm).inbound("pairs",
2+var elm_lang$core$Main$pairs = Elm.Native.Port.make(_elm).inbound("pairs",
13− "Main.Point String String",
3+"Main.Point String String",
14− function (v) {
4+function (v) {
15− return typeof v === "object" && "x" in v && "y" in v ? {_: {}
5+ return typeof v === "object" && "x" in v && "y" in v ? {_: {}
16− ,x: typeof v.x === "string" || typeof v.x === "object" && v.x instanceof String ? v.x : _U.badPort("a string",
6+ ,x: typeof v.x === "string" || typeof v.x === "object" && v.x instanceof String ? v.x : _U.badPort("a string",
17− v.x)
7+ v.x)
18− ,y: typeof v.y === "string" || typeof v.y === "object" && v.y instanceof String ? v.y : _U.badPort("a string",
8+ ,y: typeof v.y === "string" || typeof v.y === "object" && v.y instanceof String ? v.y : _U.badPort("a string",
19− v.y)} : _U.badPort("an object with fields `x`, `y`",
9+ v.y)} : _U.badPort("an object with fields `x`, `y`",
20− v);
10+ v);
21− });
11+});
22− var points = Elm.Native.Port.make(_elm).inbound("points",
12+var elm_lang$core$Main$points = Elm.Native.Port.make(_elm).inbound("points",
23− "Main.Point2D",
13+"Main.Point2D",
24− function (v) {
14+function (v) {
25− return typeof v === "object" && "x" in v && "y" in v ? {_: {}
15+ return typeof v === "object" && "x" in v && "y" in v ? {_: {}
26− ,x: typeof v.x === "number" ? v.x : _U.badPort("a number",
16+ ,x: typeof v.x === "number" ? v.x : _U.badPort("a number",
27− v.x)
17+ v.x)
28− ,y: typeof v.y === "number" ? v.y : _U.badPort("a number",
18+ ,y: typeof v.y === "number" ? v.y : _U.badPort("a number",
29− v.y)} : _U.badPort("an object with fields `x`, `y`",
19+ v.y)} : _U.badPort("an object with fields `x`, `y`",
30− v);
20+ v);
31− });
21+});
32− var Point = F2(function (a,b) {
22+var elm_lang$core$Main$Point = F2(function (a,
23+b) {
33− return {_: {},x: a,y: b};
24+ return {_: {},x: a,y: b};
34− });
25+});
35− _elm.Main.values = {_op: _op
36− ,Point: Point};
37− return _elm.Main.values;
38−};
tests/test-files/good-expected-js/QuotesAndComments.elm.js+7−24
@@ -1,25 +1,8 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var commentStart = "{-";
2+var elm_lang$core$Main$commentStart = "{-";
13− var singleQuote = _U.chr("\'");
3+var elm_lang$core$Main$singleQuote = _utils.chr("\'");
14− var doubleQuote = _U.chr("\"");
4+var elm_lang$core$Main$doubleQuote = _utils.chr("\"");
15− var variablesWithPrimes = function (x) {
5+var elm_lang$core$Main$variablesWithPrimes = function (x) {
16− var x$ = x;
6+ var x$ = x;
17− return x$;
7+ return x$;
18− };
19− _elm.Main.values = {_op: _op
20− ,variablesWithPrimes: variablesWithPrimes
21− ,doubleQuote: doubleQuote
22− ,singleQuote: singleQuote
23− ,commentStart: commentStart};
24− return _elm.Main.values;
25};
8};
tests/test-files/good-expected-js/Soundness/Apply.elm.js+4−20
@@ -1,21 +1,5 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var apply = function (f) {
2+var elm_lang$core$Main$apply = function (f) {
13− var g = function (x) {
3+ var g = function (x) { return f(x);};
14− return f(x);
15− };
16− return g;
17− };
18− _elm.Main.values = {_op: _op
19− ,apply: apply};
20− return _elm.Main.values;
4+ return g;
21};
5};
tests/test-files/good-expected-js/Soundness/ApplyAnnotated.elm.js+4−20
@@ -1,21 +1,5 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var apply = function (f) {
2+var elm_lang$core$Main$apply = function (f) {
13− var g = function (x) {
3+ var g = function (x) { return f(x);};
14− return f(x);
15− };
16− return g;
17− };
18− _elm.Main.values = {_op: _op
19− ,apply: apply};
20− return _elm.Main.values;
4+ return g;
21};
5};
tests/test-files/good-expected-js/Soundness/Id.elm.js+5−21
@@ -1,21 +1,5 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var myId = function () {
2+var elm_lang$core$Main$myId = function () {
13− var id = function (x) {
3+ var id = function (x) { return x;};
14− return x;
15− };
16− return id;
4+ return id;
17− }();
5+}();
18− _elm.Main.values = {_op: _op
19− ,myId: myId};
20− return _elm.Main.values;
21−};
tests/test-files/good-expected-js/Soundness/IdAnnotated.elm.js+5−21
@@ -1,21 +1,5 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var myId = function () {
2+var elm_lang$core$Main$myId = function () {
13− var id = function (x) {
3+ var id = function (x) { return x;};
14− return x;
15− };
16− return id;
4+ return id;
17− }();
5+}();
18− _elm.Main.values = {_op: _op
19− ,myId: myId};
20− return _elm.Main.values;
21−};
tests/test-files/good-expected-js/Soundness/TrickyId.elm.js+4−18
@@ -1,19 +1,5 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var myId = function (x) {
2+var elm_lang$core$Main$myId = function (x) {
13− var y = x;
3+ var y = x;
14− return y;
15− };
16− _elm.Main.values = {_op: _op
17− ,myId: myId};
18− return _elm.Main.values;
4+ return y;
19};
5};
tests/test-files/good-expected-js/Soundness/TrickyIdAnnotated.elm.js+4−18
@@ -1,19 +1,5 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var myId = function (x) {
2+var elm_lang$core$Main$myId = function (x) {
13− var y = x;
3+ var y = x;
14− return y;
15− };
16− _elm.Main.values = {_op: _op
17− ,myId: myId};
18− return _elm.Main.values;
4+ return y;
19};
5};
tests/test-files/good-expected-js/Strings/Multiline.elm.js+2−16
@@ -1,16 +1,2 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var s = "\nhere\'s a quote: \"\n\n";
2+var elm_lang$core$Main$s = "\nhere\'s a quote: \"\n\n";
13− _elm.Main.values = {_op: _op
14− ,s: s};
15− return _elm.Main.values;
16−};
tests/test-files/good-expected-js/Strings/MultilineNormal.elm.js+2−16
@@ -1,16 +1,2 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var s = "\nhere\'s a quote: \"\n\n";
2+var elm_lang$core$Main$s = "\nhere\'s a quote: \"\n\n";
13− _elm.Main.values = {_op: _op
14− ,s: s};
15− return _elm.Main.values;
16−};
tests/test-files/good-expected-js/TailRecursive.elm.js+16−28
@@ -1,28 +1,16 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var any = F2(function (f,l) {
2+var elm_lang$core$Main$any = F2(function (f,l) {
13− _v0: while (true) {
3+ any: while (true) {
4+ var _p0 = l;
14− switch (l.ctor)
5+ switch (_p0.ctor)
15− {case "::": if (f(l._0))
6+ {case "::": var x = _p0._0;
16− return true; else {
17− var _v4 = f,_v5 = l._1;
7+ var xs = _p0._1;
18− f = _v4;
8+ if (f(x)) return true; else {
19− l = _v5;
9+ var _v0 = f,_v1 = xs;
10+ f = _v0;
11+ l = _v1;
20− continue _v0;
12+ continue any;
21− }}
13+ }
22− return false;
14+ default: return false;}
23− }
24− });
15+ }
25− _elm.Main.values = {_op: _op
26− ,any: any};
27− return _elm.Main.values;
28−};
16+});
tests/test-files/good-expected-js/Unify/NonHomogeneousRecords.elm.js+10−24
@@ -1,24 +1,10 @@
1−Elm.Main = Elm.Main || {};
1+var elm_lang$core$Main$_op = {};
2−Elm.Main.make = function (_elm) {
3− "use strict";
4− _elm.Main = _elm.Main || {};
5− if (_elm.Main.values)
6− return _elm.Main.values;
7− var _op = {},
8− _N = Elm.Native,
9− _U = _N.Utils.make(_elm),
10− _L = _N.List.make(_elm),
11− $moduleName = "Main";
12− var f = function (t) {
2+var elm_lang$core$Main$f = function (t) {
13− var y = t.y;
3+ var y = t.y;
14− var x = t.x;
4+ var x = t.x;
15− return t;
5+ return t;
16− };
6+};
17− var Thing = F2(function (a,b) {
7+var elm_lang$core$Main$Thing = F2(function (a,
8+b) {
18− return {_: {},x: a,y: b};
9+ return {_: {},x: a,y: b};
19− });
10+});
20− _elm.Main.values = {_op: _op
21− ,Thing: Thing
22− ,f: f};
23− return _elm.Main.values;
24−};