git.iko.soy/elk
on master help sign in
Add the beginnings of a button module and mess with the definition of equality.
24d508bevancz
libraries/Input/Button.elmnew file+6
compare with master
unifiedsplit
@@ -0,0 +1,6 @@
1+
2+module Input.Button where
3+
4+type ButtonPool t = { button : String -> t -> Element, presses : Signal t }
5+
6+buttonPool : String -> ButtonPool t
libraries/Native/Misc.js+10−10
@@ -13,18 +13,18 @@ import JSON
13 'use strict';
13 'use strict';
14
14
15 function eq(x,y) {
15 function eq(x,y) {
16+ if (x === y) return true;
16 if (typeof x === "object") {
17 if (typeof x === "object") {
17− if (x !== null && '_' in x) {
18+ if ('_' in x) {
18− for (var i in x) { if (x[i] != y[i]) return false; }
19− for (var i in y) { if (!(i in x)) return false; }
20− return true;
21− }
22− if (x === y) return true;
23− if (x.length !== y.length) return false;
24− for (var i = x.length; i--; ) {
25− if (!eq(x[i],y[i])) return false;
19+ for (var i in x) { if (!eq(x[i],y[i])) return false; }
26− }
20+ for (var i in y) { if (!(i in x)) return false; }
27 return true;
21 return true;
22+ }
23+ if (x.ctor !== y.ctor) return false;
24+ for (var i = x.length; i--; ) {
25+ if (!eq(x[i],y[i])) return false;
26+ }
27+ return true;
28 }
28 }
29 return x === y;
29 return x === y;
30 }
30 }