Place newlines before Schema and Examples code

restyled-io · Nov 4, 2024 · 4404795 · 4404795
1 parent b849b50
commit 4404795
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Restyler/Docs.hs b/src/Restyler/Docs.hs
@@ -112,6 +112,7 @@ renderConfDoc ConfDoc {..} =
                   , Just
                       $ Lines
                       $ ("Schema:" :)
+                      $ ("" :)
                       $ map (Line . pure . Raw . ("    " <>))
                       $ filter (/= "# or null")
                       $ map (mconcat . map chunkText)
@@ -126,6 +127,7 @@ renderConfDoc ConfDoc {..} =
                       <$> confDocDefault
                   , Lines
                       . ("Examples:" :)
+                      . ("" :)
                       . map (Line . pure . Raw . ("    " <>))
                       . intercalate [""] -- blank between examples
                       . map (lines . pack)