Merge pull request #552 from purescript/551
Fix isModuleEmpty, resolves #551
commit29fe901b763411f8d4428949e1ad634de0afc4b7
authorPhil Freeman <paf31@cantab.net>
dateSat 9 Aug 2014, 08:41 (12 years ago)
parent524f8e41aa31c8
src/Language/PureScript/CodeGen/JS.hs+1−1
@@ -56,7 +56,7 @@ moduleToJs mt opts (Module name decls (Just exps)) env = do
5656 let jsImports = map (importToJs mt opts) . delete (ModuleName [ProperName C.prim]) . (\\ [name]) . nub $ concatMap imports decls
5757 jsDecls <- mapM (\decl -> declToJs opts name decl env) decls
5858 let optimized = concat $ map (map $ optimize opts) $ catMaybes jsDecls
59− let isModuleEmpty = null optimized
59+ let isModuleEmpty = null exps
6060 let moduleBody = JSStringLiteral "use strict" : jsImports ++ optimized
6161 let moduleExports = JSObjectLiteral $ concatMap exportToJs exps
6262 return $ case mt of