on master help sign in
Do not do anything special for Native values
commit219aff86b8e08f461d0b9d03152a66c121769cab authorEvan Czaplicki <evancz@users.noreply.github.com> dateThu 30 Mar 2017, 12:15 (10 years ago) parent9e24b4f
1 file changed+2−8
src/Generate/JavaScript/Variable.hs+2−8
src/Generate/JavaScript/Variable.hs+2−8
@@ -5,7 +5,6 @@ module Generate.JavaScript.Variable
55 , local
66 , global
77 , qualified
8− , native
98 , coreNative
109 , staticProgram
1110 , defineGlobal
@@ -58,19 +57,14 @@ global home name =
5857-- MISC
5958
6059
61−native :: ModuleName.Canonical -> Text -> JS.Expr
62−native moduleName name =
63− JS.obj [ moduleToText moduleName, name ]
64−
65−
6660coreNative :: Text -> Text -> JS.Expr
6761coreNative moduleName name =
68− native (ModuleName.inCore ("Native." <> moduleName)) name
62+ global (ModuleName.inCore ("Native." <> moduleName)) name
6963
7064
7165staticProgram :: JS.Expr
7266staticProgram =
73− native (ModuleName.inVirtualDom "Native.VirtualDom") "staticProgram"
67+ global (ModuleName.inVirtualDom "Native.VirtualDom") "staticProgram"
7468
7569
7670