Skip empty module comments
commit1f1f40fc2e7ae7bb82e8e770159c64764a1c7471
authorGary Burgess <gary.burgess@gmail.com>
dateTue 24 Feb 2015, 00:00 (12 years ago)
parent98e7e3d
psc-docs/Main.hs+3−2
@@ -89,8 +89,9 @@ renderModule :: P.Module -> Docs
8989renderModule mdl@(P.Module coms moduleName _ exps) = do
9090 headerLevel 2 $ "Module " ++ P.runModuleName moduleName
9191 spacer
92− renderComments coms
93− spacer
92+ unless (null coms) $ do
93+ renderComments coms
94+ spacer
9495 renderTopLevel exps (P.exportedDeclarations mdl)
9596 spacer
9697