From 44047955bf0c5a9b58694171d58b3895353ff7c4 Mon Sep 17 00:00:00 2001 From: patrick brisbin Date: Mon, 4 Nov 2024 15:02:20 -0500 Subject: [PATCH] Place newlines before Schema and Examples code --- src/Restyler/Docs.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Restyler/Docs.hs b/src/Restyler/Docs.hs index 1730a913..a8eaa338 100644 --- 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)