Define Elm outside the overall closure

aslakg · Feb 20, 2016 · fa6a7d3 · fa6a7d3
1 parent 89a7bec
commit fa6a7d3
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Pipeline/Generate.hs b/src/Pipeline/Generate.hs
@@ -150,7 +150,7 @@ html generatedJavaScript moduleName =
 footer :: [TMP.CanonicalModule] -> Text.Text
 footer rootModules =
   Text.pack $ unlines $
-    "var Elm = Elm || { __modules__: {} };"
+    "Elm = Elm || { __modules__: {} };"
     : map export rootModules
     ++ ["}());"]
 
@@ -176,7 +176,8 @@ export versionedName =
 
 
 header :: Text.Text
-header = [r|(function() {
+header = [r|var Elm;
+(function() {
 'use strict';
 
 function F2(fun)