Fix isModuleEmpty, resolves #551
commit1aa31c8d5bd64b58e2e35e72db7b62f0cad8936d
authorGary Burgess <gary.burgess@gmail.com>
dateSat 9 Aug 2014, 11:51 (12 years ago)
parent94c24d1
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