diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx/Parse.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Parse.hs b/src/Text/Pandoc/Readers/Docx/Parse.hs index 57f6e4c1c..75ea68a4d 100644 --- a/src/Text/Pandoc/Readers/Docx/Parse.hs +++ b/src/Text/Pandoc/Readers/Docx/Parse.hs @@ -766,7 +766,8 @@ elemToBodyPart ns element <$> asks envParStyles <*> asks envNumbering - let hasCaptionStyle = elem "Caption" (pStyleId <$> pStyle parstyle) + let hasCaptionStyle = + any ((== "caption") . pStyleName) (pStyle parstyle) let isTableNumberElt el@(Element name attribs _ _) = (qName name == "fldSimple" && |