git.iko.soy/elk
on master help sign in
Switch back to array literals for list literals, fix #1521
bfae985Evan Czaplicki
src/Generate/JavaScript/BuiltIn.hs+1−15
compare with master
unifiedsplit
@@ -40,21 +40,7 @@ character char =
40
40
41list :: [JS.Expr] -> JS.Expr
41list :: [JS.Expr] -> JS.Expr
42list elements =
42list elements =
43− case elements of
43+ Var.coreNative "List" "fromArray" <| JS.Array elements
44− [] ->
45− JS.Object [ "ctor" ==> JS.String "[]" ]
46−
47− front : back ->
48− cons front (list back)
49−
50−
51−cons :: JS.Expr -> JS.Expr -> JS.Expr
52−cons front back =
53− JS.Object
54− [ "ctor" ==> JS.String "::"
55− , "_0" ==> front
56− , "_1" ==> back
57− ]
58
44
59
45
60
46