Initialize programs the new way

aslakg · Aug 10, 2016 · 0fee899 · 0fee899
1 parent 46ec85c
commit 0fee899
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/src/Pipeline/Generate.hs b/src/Pipeline/Generate.hs
@@ -163,13 +163,17 @@ footer rootModules =
 export :: Module.Canonical -> String
 export canonicalName@(Module.Canonical _ moduleName) =
   let
-    jsName =
+    makeProgram =
       Module.qualifiedVar canonicalName "main"
+
+    object =
+      objectFor moduleName
+
+    name =
+      Module.nameToString moduleName
   in
     setup moduleName
-    ++ "_elm_lang$core$Native_Platform.addPublicModule(" ++ objectFor moduleName
-    ++ ", '" ++ Module.nameToString moduleName
-    ++ "', typeof " ++ jsName ++ " === 'undefined' ? null : " ++ jsName ++ ");"
+    ++ makeProgram ++ "(" ++ object ++ ", '" ++ name ++ "');"
 
 
 setup :: [String] -> String