diff options
author | John MacFarlane <jgm@berkeley.edu> | 2021-11-02 14:02:24 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2021-11-02 14:04:38 -0700 |
commit | 938d55784486f42d80cc4c2fcfe6ae905be382cd (patch) | |
tree | c455d22daff3f38ae48264c1cb808637d8f24333 /src/Text/Pandoc/Readers/Docx/Parse | |
parent | 45bcd7d3f1c78d08d20db3b6929421c896fa869a (diff) | |
download | pandoc-938d55784486f42d80cc4c2fcfe6ae905be382cd.tar.gz |
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.
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx/Parse')
-rw-r--r-- | src/Text/Pandoc/Readers/Docx/Parse/Styles.hs | 5 |
1 files changed, 2 insertions, 3 deletions
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 |