Docx reader: avoid emitting empty paragraph where caption was.

This commit is contained in:
John MacFarlane
2024-02-28 10:04:06 -08:00
parent e925467328
commit b4e4da62a3
+2 -2
View File
@@ -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