diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-04-28 11:04:09 +0300 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-04-28 10:04:09 +0200 |
| commit | c346a8a7bef5a59c779073c9299bd968ecad44c9 (patch) | |
| tree | eb90ac768b37362a080b0c61ca064fb6f1d4cc17 /src/Text/Pandoc/Writers/Ms.hs | |
| parent | e97e9cd6a3d804678fc1554ef0f39443e1d2aeaa (diff) | |
| download | pandoc-c346a8a7bef5a59c779073c9299bd968ecad44c9.tar.gz | |
Ms writer: make use of already defined render' (#3613)
Diffstat (limited to 'src/Text/Pandoc/Writers/Ms.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Ms.hs | 4 |
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 |