git.iko.soy/elk
on master help sign in
Fix bug in how Dictionaries and Sets are converted to strings.
b2240f9evancz
core-js/Value.js+7−1
compare with master
unifiedsplit
@@ -194,7 +194,13 @@ var Value = function(){
194 return "(JSON.fromList " + toString(Elm.JSON.toList(v)) + ")";
194 return "(JSON.fromList " + toString(Elm.JSON.toList(v)) + ")";
195 } else if (v[0] === "RBNode" || v[0] === "RBEmpty") {
195 } else if (v[0] === "RBNode" || v[0] === "RBEmpty") {
196 function cons(k){ return function(v) { return function(acc) { return ["Cons",["Tuple2",k,v],acc]; }; }; }
196 function cons(k){ return function(v) { return function(acc) { return ["Cons",["Tuple2",k,v],acc]; }; }; }
197− return "(Map.fromList " + toString(Elm.Dict.fold(cons)(["Nil"])(v)) + ")";
197+ var list = Elm.Dict.foldr(cons)(["Nil"])(v);
198+ var name = "Dict";
199+ if (list[0] === "Cons" && list[1][2][0] === "Tuple0") {
200+ name = "Set";
201+ list = Elm.List.map(function(x) { return x[1]; })(list);
202+ }
203+ return "(" + name + ".fromList " + toString(list) + ")";
198 } else {
204 } else {
199 var output = "";
205 var output = "";
200 for (var i = v.length; --i; ) {
206 for (var i = v.length; --i; ) {