@@ -56,7 +56,10 @@ moduleToJs (Module coms name imps exps foreigns decls) = do
56 jsDecls <- mapM (bindToJs name) decls
56 jsDecls <- mapM (bindToJs name) decls
57 optimized <- T.traverse (T.traverse optimize) jsDecls
57 optimized <- T.traverse (T.traverse optimize) jsDecls
58 let isModuleEmpty = null exps
58 let isModuleEmpty = null exps
59+ comments <- not <$> asks optionsNoComments
60+ let strict = JSStringLiteral "use strict"
61+ let header = if comments && not (null coms) then JSComment coms strict else strict
59− let moduleBody = JSComment coms (JSStringLiteral "use strict") : jsImports ++ foreigns' ++ concat optimized
62+ let moduleBody = header : jsImports ++ foreigns' ++ concat optimized
60 let exps' = JSObjectLiteral $ map (runIdent &&& JSVar . identToJs) exps
63 let exps' = JSObjectLiteral $ map (runIdent &&& JSVar . identToJs) exps
61 return $ case additional of
64 return $ case additional of
62 MakeOptions -> moduleBody ++ [JSAssignment (JSAccessor "exports" (JSVar "module")) exps']
65 MakeOptions -> moduleBody ++ [JSAssignment (JSAccessor "exports" (JSVar "module")) exps']