@@ -44,14 +44,13 @@ declAsMarkdown RenderedDeclaration{..} = do
4444 zipWithM_ (\f c -> tell' (childToString f c)) (First : repeat NotFirst) children
4545 spacer
4646
47+ for_ rdComments tell'
48+
4749 unless (null instances) $ do
4850 headerLevel 5 "Instances"
49− fencedBlock $ do
50− mapM_ (tell' . childToString NotFirst) instances
51+ fencedBlock $ mapM_ (tell' . childToString NotFirst) instances
5152 spacer
5253
53− for_ rdComments tell'
54−
5554codeToString :: RenderedCode -> String
5655codeToString = outputWith elemAsMarkdown
5756 where