@@ -56,7 +56,7 @@ moduleToJs mt opts (Module name decls (Just exps)) env = do
56 let jsImports = map (importToJs mt opts) . delete (ModuleName [ProperName C.prim]) . (\\ [name]) . nub $ concatMap imports decls
56 let jsImports = map (importToJs mt opts) . delete (ModuleName [ProperName C.prim]) . (\\ [name]) . nub $ concatMap imports decls
57 jsDecls <- mapM (\decl -> declToJs opts name decl env) decls
57 jsDecls <- mapM (\decl -> declToJs opts name decl env) decls
58 let optimized = concat $ map (map $ optimize opts) $ catMaybes jsDecls
58 let optimized = concat $ map (map $ optimize opts) $ catMaybes jsDecls
59− let isModuleEmpty = null optimized
59+ let isModuleEmpty = null exps
60 let moduleBody = JSStringLiteral "use strict" : jsImports ++ optimized
60 let moduleBody = JSStringLiteral "use strict" : jsImports ++ optimized
61 let moduleExports = JSObjectLiteral $ concatMap exportToJs exps
61 let moduleExports = JSObjectLiteral $ concatMap exportToJs exps
62 return $ case mt of
62 return $ case mt of