Merge pull request purescript#1145 from purescript/comments-before-instances

garyb · garyb · commit c3342ee4eaea · 2015-06-06T18:02:23.000+01:00
Show comments before instances in generated docs
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
