aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2014-08-16 14:05:19 -0400
committerJesse Rosenthal <jrosenthal@jhu.edu>2014-08-16 14:05:19 -0400
commit9969b2ebee7a9e8d586ef0a369bc6c549c7a8df6 (patch)
tree7bc72b4b76db3cb9ea1159fbd6202d3ee5c3c95c /src
parent0ff9ec2f4e35bf3e99e2e71837d01e9f2e107798 (diff)
downloadpandoc-9969b2ebee7a9e8d586ef0a369bc6c549c7a8df6.tar.gz
Docx reader: Fix bug in character styles.
Style handling has been cleaned up, but introduced a bug here. There wasn't previously a test to catch it.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Docx.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs
index 823755a51..1419eea08 100644
--- a/src/Text/Pandoc/Readers/Docx.hs
+++ b/src/Text/Pandoc/Readers/Docx.hs
@@ -242,14 +242,14 @@ runStyleToTransform rPr
, s `elem` emphStyles =
let rPr' = rPr{rStyle = Nothing, isItalic = Nothing}
in
- case isItalic rPr' of
+ case isItalic rPr of
Just False -> runStyleToTransform rPr'
_ -> emph . (runStyleToTransform rPr')
| Just s <- rStyle rPr
, s `elem` strongStyles =
let rPr' = rPr{rStyle = Nothing, isBold = Nothing}
in
- case isItalic rPr' of
+ case isBold rPr of
Just False -> runStyleToTransform rPr'
_ -> strong . (runStyleToTransform rPr')
| Just True <- isItalic rPr =