Docx writer: Fix custom styles with spaces in the name.
Custom styles with spaces worked for divs but not for spans.
This commit fixes the problem. Closes #3290.
commitb9d73428c7d420cf7f07e4e20263d5d705c73f85
authorJohn MacFarlane <jgm@berkeley.edu>
dateMon 1 Jan 2018, 21:44 (9 years ago)
parent509e883
src/Text/Pandoc/Writers/Docx.hs+1−1
@@ -1134,7 +1134,7 @@ inlineToOpenXML' opts (Span (ident,classes,kvs) ils) = do
11341134 modify $ \s ->
11351135 s{stDynamicTextProps = Set.insert sty
11361136 (stDynamicTextProps s)}
1137− return $ withTextProp (rCustomStyle sty)
1137+ return $ withTextPropM (rStyleM sty)
11381138 _ -> return id
11391139 let dirmod = case lookup "dir" kvs of
11401140 Just "rtl" -> local (\env -> env { envRTL = True })