aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Docx/Parse/Styles.hs5
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