Show comments before instances in generated docs

garyb · garyb · commit b9b4ccb89e94 · 2015-06-06T15:32:57.000+01:00
diff --git a/src/Language/PureScript/Docs/AsMarkdown.hs b/src/Language/PureScript/Docs/AsMarkdown.hs
@@ -44,14 +44,13 @@ declAsMarkdown RenderedDeclaration{..} = do
     zipWithM_ (\f c -> tell' (childToString f c)) (First : repeat NotFirst) children
   spacer
 
+  for_ rdComments tell'
+
   unless (null instances) $ do
     headerLevel 5 "Instances"
-    fencedBlock $ do
-      mapM_ (tell' . childToString NotFirst) instances
+    fencedBlock $ mapM_ (tell' . childToString NotFirst) instances
     spacer
 
-  for_ rdComments tell'
-
 codeToString :: RenderedCode -> String
 codeToString = outputWith elemAsMarkdown
   where
