@@ -1,4 +1,12 @@
1−module Generate.JavaScript.BuiltIn where
1+module Generate.JavaScript.BuiltIn
2+ ( character, string
3+ , list, range
4+ , recordUpdate
5+ , eq, cmp
6+ , cmd, sub
7+ , crash
8+ )
9+ where
210
311import Control.Arrow (first)
412import qualified Language.ECMAScript3.Syntax as JS
@@ -11,7 +19,12 @@ import qualified Reporting.Region as R
1119
1220utils :: String -> [JS.Expression ()] -> JS.Expression ()
1321utils func args =
14− obj ["_U", func] `call` args
22+ obj ["_elm_lang$core$Native_Utils", func] `call` args
23+
24+
25+nativeList :: String -> [JS.Expression ()] -> JS.Expression ()
26+nativeList func args =
27+ obj ["_elm_lang$core$Native_List", func] `call` args
1528
1629
1730
@@ -34,12 +47,12 @@ string str =
3447
3548list :: [JS.Expression ()] -> JS.Expression ()
3649list elements =
37− utils "list" [ JS.ArrayLit () elements ]
50+ nativeList "fromArray" [ JS.ArrayLit () elements ]
3851
3952
4053range :: JS.Expression () -> JS.Expression () -> JS.Expression ()
4154range low high =
42− utils "range" [ low, high ]
55+ nativeList "range" [ low, high ]
4356
4457
4558