From 9969b2ebee7a9e8d586ef0a369bc6c549c7a8df6 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Sat, 16 Aug 2014 14:05:19 -0400 Subject: 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. --- src/Text/Pandoc/Readers/Docx.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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 = -- cgit v1.2.3