From 5c0b3743becd10a08fc27459d56f8aa2153f5b3f Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 13 Nov 2019 10:10:55 -0800
Subject: Ensure there's a blank line before RST tables.

Closes #5898.
---
 src/Text/Pandoc/Writers/RST.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'src/Text/Pandoc/Writers')

diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs
index 5f035ee1f..b299e6135 100644
--- a/src/Text/Pandoc/Writers/RST.hs
+++ b/src/Text/Pandoc/Writers/RST.hs
@@ -300,10 +300,11 @@ blockToRST (Table caption aligns widths headers rows) = do
             else gridTable opts blocksToDoc (all null headers)
                   (map (const AlignDefault) aligns) widths
                   headers rows
-  return $ if null caption
-              then tbl $$ blankline
-              else (".. table:: " <> caption') $$ blankline $$ nest 3 tbl $$
-                   blankline
+  return $ blankline $$
+           (if null caption
+               then tbl
+               else (".. table:: " <> caption') $$ blankline $$ nest 3 tbl) $$
+           blankline
 blockToRST (BulletList items) = do
   contents <- mapM bulletListItemToRST items
   -- ensure that sublists have preceding blank line
-- 
cgit v1.2.3