Cleanup

Author: natefaubion

js/index.js

@@ -209,8 +209,10 @@ execute js sources bc@(BackendConfig backend) = do
       json = encodeJSON (Object.insert "<file>" js sources)
 
       scripts = joinWith "\n"
-        [ "var load = PSRequireShim(" <> json <> ");"
-        , """load("<file>").main();"""
+        [ "(function() {"
+        , "  var module = PSRequireShim(" <> json <> ")('<file>');"
+        , "  module.main && module.main();"
+        , "})();"
         ]
 
   column2 <- JQuery.select "#column2"

src/Main.purs

@@ -75,8 +75,7 @@ runLoader (Loader k) = k
 makeLoader :: (Module -> Module) -> String -> Loader
 makeLoader modFn rootPath = Loader \js -> do
   let initDeps = parseDeps "<file>" js
-  result <- go initDeps Object.empty
-  pure result
+  go initDeps Object.empty
   where
   moduleCache :: Ref (Object Module)
   moduleCache = unsafePerformEffect (Ref.new Object.empty)