diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-16 14:05:19 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-16 14:05:19 -0400 |
| commit | 9969b2ebee7a9e8d586ef0a369bc6c549c7a8df6 (patch) | |
| tree | 7bc72b4b76db3cb9ea1159fbd6202d3ee5c3c95c /src | |
| parent | 0ff9ec2f4e35bf3e99e2e71837d01e9f2e107798 (diff) | |
| download | pandoc-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.hs | 4 |
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 = |