Add toString
definition for Maps
This commit is contained in:
parent
7822f02666
commit
c24eca8836
1 changed files with 3 additions and 0 deletions
|
@ -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; ) {
|
||||||
|
|
Loading…
Reference in a new issue