diff options
author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-10-03 18:45:18 -0400 |
---|---|---|
committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-10-03 21:39:40 -0400 |
commit | 666c042e80b82f969b67224046c2905e61fc7213 (patch) | |
tree | e8214e4faba4a26defba1f879af6ae6fb8d0b1d0 /src | |
parent | acf352331c43e44a5cbf63b4ff1502db056284af (diff) |
Filter text/para props correctly.
We only filter on the name, not the prefix.
Diffstat (limited to 'src')
-rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 27bb4117b..36e20fc61 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -1293,8 +1293,8 @@ setLTR x = do if isRTL then do paraProps <- asks envParaProperties textProps <- asks envTextProperties - let paraProps' = filter (\e -> (qName . elName) e /= "w:bidi") paraProps - textProps' = filter (\e -> (qName . elName) e /= "w:rtl") textProps + let paraProps' = filter (\e -> (qName . elName) e /= "bidi") paraProps + textProps' = filter (\e -> (qName . elName) e /= "rtl") textProps flip local x $ \env -> env { envRTL = False , envParaProperties = paraProps' , envTextProperties = textProps' |