yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add toString definition for Maps

Browse source
This commit is contained in:
evancz 2012-10-10 15:05:46 -07:00
parent 7822f02666
commit c24eca8836
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
core-js/Value.js
View file

@ -188,6 +188,9 @@ var Value = function(){
return "[]"; return "[]";
} else if (v[0] === "JSON") { } else if (v[0] === "JSON") {
return "(JSON.fromList " + toString(ElmJSON.toList(v)) + ")"; return "(JSON.fromList " + toString(ElmJSON.toList(v)) + ")";
} else if (v[0] === "RBNode" || v[0] === "RBEmpty") {
function cons(k){ return function(v) { return function(acc) { return ["Cons",["Tuple2",k,v],acc]; }; }; }
return "(Map.fromList " + toString(ElmCode.Map.fold(cons)(["Nil"])(v)) + ")";
} else { } else {
var output = ""; var output = "";
for (var i = v.length; --i; ) { for (var i = v.length; --i; ) {