Merge pull request #393 from purescript/noemptymodules

Do not generate module wrapper when module has no declarations
purescript · Apr 27, 2014 · 511ba81 · 511ba81
2 parents 6cda05d + 79de82b
commit 511ba81
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Language/PureScript/CodeGen/JS.hs b/src/Language/PureScript/CodeGen/JS.hs
@@ -56,13 +56,15 @@ data ModuleType = CommonJS | Globals
 moduleToJs :: ModuleType -> Options -> Module -> Environment -> [JS]
 moduleToJs mt opts (Module name decls (Just exps)) env = case mt of
   CommonJS -> moduleBody ++ [JSAssignment (JSAccessor "exports" (JSVar "module")) moduleExports]
-  Globals ->
+  Globals | not isModuleEmpty ->
     [ JSVariableIntroduction (fromJust (optionsBrowserNamespace opts))
                              (Just (JSBinary Or (JSVar (fromJust (optionsBrowserNamespace opts))) (JSObjectLiteral [])) )
     , JSAssignment (JSAccessor (moduleNameToJs name) (JSVar (fromJust (optionsBrowserNamespace opts))))
                    (JSApp (JSFunction Nothing [] (JSBlock (moduleBody ++ [JSReturn moduleExports]))) [])
     ]
+  _ -> []
   where
+  isModuleEmpty = null jsDecls
   moduleBody = JSStringLiteral "use strict" : jsImports ++ jsDecls
   moduleExports = JSObjectLiteral $ concatMap exportToJs exps
   jsDecls = (concat $ mapMaybe (\decl -> fmap (map $ optimize opts) $ declToJs opts name decl env) decls)