aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-04-28 11:04:09 +0300
committerJohn MacFarlane <jgm@berkeley.edu>2017-04-28 10:04:09 +0200
commitc346a8a7bef5a59c779073c9299bd968ecad44c9 (patch)
treeeb90ac768b37362a080b0c61ca064fb6f1d4cc17 /src
parente97e9cd6a3d804678fc1554ef0f39443e1d2aeaa (diff)
downloadpandoc-c346a8a7bef5a59c779073c9299bd968ecad44c9.tar.gz
Ms writer: make use of already defined render' (#3613)
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/Ms.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs
index e4daa1be0..534f26a5a 100644
--- a/src/Text/Pandoc/Writers/Ms.hs
+++ b/src/Text/Pandoc/Writers/Ms.hs
@@ -97,8 +97,8 @@ pandocToMs opts (Pandoc meta blocks) = do
else Nothing
let render' = render colwidth
metadata <- metaToJSON opts
- (fmap (render colwidth) . blockListToMs opts)
- (fmap (render colwidth) . inlineListToMs' opts)
+ (fmap render' . blockListToMs opts)
+ (fmap render' . inlineListToMs' opts)
meta
body <- blockListToMs opts blocks
let main = render' body