@@ -5,7 +5,6 @@ module Generate.JavaScript.Variable
7 , qualified
7 , qualified
9 , coreNative
8 , coreNative
10 , staticProgram
9 , staticProgram
11 , defineGlobal
10 , defineGlobal
@@ -58,19 +57,14 @@ global home name =
61−native :: ModuleName.Canonical -> Text -> JS.Expr
62−native moduleName name =
63− JS.obj [ moduleToText moduleName, name ]
66coreNative :: Text -> Text -> JS.Expr
60coreNative :: Text -> Text -> JS.Expr
67coreNative moduleName name =
61coreNative moduleName name =
68− native (ModuleName.inCore ("Native." <> moduleName)) name
62+ global (ModuleName.inCore ("Native." <> moduleName)) name
71staticProgram :: JS.Expr
65staticProgram :: JS.Expr
72staticProgram =
66staticProgram =
73− native (ModuleName.inVirtualDom "Native.VirtualDom") "staticProgram"
67+ global (ModuleName.inVirtualDom "Native.VirtualDom") "staticProgram"