@@ -286,36 +286,35 @@ runStyleToTransform :: PandocMonad m => RunStyle -> DocxContext m (Inlines -> In
286runStyleToTransform rPr
286runStyleToTransform rPr
287 | Just (s, _) <- rStyle rPr
287 | Just (s, _) <- rStyle rPr
288 , s `elem` spansToKeep = do
288 , s `elem` spansToKeep = do
289− let rPr' = rPr{rStyle = Nothing}
289+ transform <- runStyleToTransform rPr{rStyle = Nothing}
290− transform <- runStyleToTransform rPr'
291 return $ spanWith ("", [s], []) . transform
290 return $ spanWith ("", [s], []) . transform
292 | Just (s, _) <- rStyle rPr = do
291 | Just (s, _) <- rStyle rPr = do
293 opts <- asks docxOptions
292 opts <- asks docxOptions
294 let extraInfo = if isEnabled Ext_styles opts
293 let extraInfo = if isEnabled Ext_styles opts
295 then spanWith ("", [], [("custom-style", s)])
294 then spanWith ("", [], [("custom-style", s)])
297− transform <- runStyleToTransform rPr {rStyle = Nothing}
296+ transform <- runStyleToTransform rPr{rStyle = Nothing}
298 return $ extraInfo . transform
297 return $ extraInfo . transform
299 | Just True <- isItalic rPr = do
298 | Just True <- isItalic rPr = do
300− transform <- runStyleToTransform rPr {isItalic = Nothing}
299+ transform <- runStyleToTransform rPr{isItalic = Nothing}
301 return $ emph . transform
300 return $ emph . transform
302 | Just True <- isBold rPr = do
301 | Just True <- isBold rPr = do
303− transform <- runStyleToTransform rPr {isBold = Nothing}
302+ transform <- runStyleToTransform rPr{isBold = Nothing}
304 return $ strong . transform
303 return $ strong . transform
305 | Just True <- isSmallCaps rPr = do
304 | Just True <- isSmallCaps rPr = do
306− transform <- runStyleToTransform rPr {isSmallCaps = Nothing}
305+ transform <- runStyleToTransform rPr{isSmallCaps = Nothing}
307 return $ smallcaps . transform
306 return $ smallcaps . transform
308 | Just True <- isStrike rPr = do
307 | Just True <- isStrike rPr = do
309− transform <- runStyleToTransform rPr {isStrike = Nothing}
308+ transform <- runStyleToTransform rPr{isStrike = Nothing}
310 return $ strikeout . transform
309 return $ strikeout . transform
311 | Just SupScrpt <- rVertAlign rPr = do
310 | Just SupScrpt <- rVertAlign rPr = do
312− transform <- runStyleToTransform rPr {rVertAlign = Nothing}
311+ transform <- runStyleToTransform rPr{rVertAlign = Nothing}
313 return $ superscript . transform
312 return $ superscript . transform
314 | Just SubScrpt <- rVertAlign rPr = do
313 | Just SubScrpt <- rVertAlign rPr = do
315− transform <- runStyleToTransform rPr {rVertAlign = Nothing}
314+ transform <- runStyleToTransform rPr{rVertAlign = Nothing}
316 return $ subscript . transform
315 return $ subscript . transform
317 | Just "single" <- rUnderline rPr = do
316 | Just "single" <- rUnderline rPr = do
318− transform <- runStyleToTransform rPr {rUnderline = Nothing}
317+ transform <- runStyleToTransform rPr{rUnderline = Nothing}
319 return $ underlineSpan . transform
318 return $ underlineSpan . transform
320 | otherwise = return id
319 | otherwise = return id