From b4e4da62a339abc3c1cccaf0c7317e059ce2f3cf Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 28 Feb 2024 10:04:06 -0800 Subject: Docx reader: avoid emitting empty paragraph where caption was. --- src/Text/Pandoc/Readers/Docx.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index 4ab40f5a6..0c75fdb08 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -762,9 +762,9 @@ bodyPartToBlocks (ListItem pPr _ _ _ parparts) = in bodyPartToBlocks $ Paragraph pPr' parparts bodyPartToBlocks (TblCaption _ _) = - return $ para mempty -- collected separately + return mempty bodyPartToBlocks (Tbl _ _ _ []) = - return $ para mempty + return mempty bodyPartToBlocks (Tbl cap grid look parts) = do captions <- gets docxTableCaptions fullCaption <- case captions of -- cgit v1.2.3