diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index 1a95b753d..d61cc8b1b 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -278,11 +278,12 @@ runToInlines (Run rs runElems) | Just (s, _) <- rStyle rs , s `elem` codeStyles = let rPr = resolveDependentRunStyle rs + codeString = code $ concatMap runElemToString runElems in return $ case rVertAlign rPr of - Just SupScrpt -> superscript $ code $ concatMap runElemToString runElems - Just SubScrpt -> subscript $ code $ concatMap runElemToString runElems - _ -> code $ concatMap runElemToString runElems + Just SupScrpt -> superscript codeString + Just SubScrpt -> subscript codeString + _ -> codeString | otherwise = do let ils = concatReduce (map runElemToInlines runElems) return $ (runStyleToTransform $ resolveDependentRunStyle rs) ils |