diff options
| author | John MacFarlane <[email protected]> | 2024-02-28 10:04:06 -0800 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2024-02-28 10:04:06 -0800 |
| commit | b4e4da62a339abc3c1cccaf0c7317e059ce2f3cf (patch) | |
| tree | 0b4c4353726e849d813afffbfc42b0c44ccc7e2e | |
| parent | e9254673282f1e8fd251624008292cd381bbdd4c (diff) | |
Docx reader: avoid emitting empty paragraph where caption was.
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 4 |
1 files 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 |