@@ -89,8 +89,9 @@ renderModule :: P.Module -> Docs
89renderModule mdl@(P.Module coms moduleName _ exps) = do
89renderModule mdl@(P.Module coms moduleName _ exps) = do
90 headerLevel 2 $ "Module " ++ P.runModuleName moduleName
90 headerLevel 2 $ "Module " ++ P.runModuleName moduleName
92+ unless (null coms) $ do
92− renderComments coms
93+ renderComments coms
94 renderTopLevel exps (P.exportedDeclarations mdl)
95 renderTopLevel exps (P.exportedDeclarations mdl)