From 938d55784486f42d80cc4c2fcfe6ae905be382cd Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 2 Nov 2021 14:02:24 -0700 Subject: Docx reader: don't let first line indents trigger block quotes. This fixes a regression introduced in pandoc 2.15 by PR #7606. Closes #7655. --- src/Text/Pandoc/Readers/Docx/Parse/Styles.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/Text/Pandoc/Readers/Docx/Parse') diff --git a/src/Text/Pandoc/Readers/Docx/Parse/Styles.hs b/src/Text/Pandoc/Readers/Docx/Parse/Styles.hs index bb28b3009..df942579a 100644 --- a/src/Text/Pandoc/Readers/Docx/Parse/Styles.hs +++ b/src/Text/Pandoc/Readers/Docx/Parse/Styles.hs @@ -310,9 +310,8 @@ getIndentation ns el = do , rightParIndent = findAttrByName ns "w" "right" indElement <|> findAttrByName ns "w" "end" indElement >>= stringToInteger - , hangingParIndent = (findAttrByName ns "w" "hanging" indElement >>= stringToInteger) <|> - fmap negate - (findAttrByName ns "w" "firstLine" indElement >>= stringToInteger) + , hangingParIndent = findAttrByName ns "w" "hanging" indElement >>= + stringToInteger } getElementStyleName :: Coercible T.Text a => NameSpaces -> Element -> Maybe a -- cgit v1.2.3