diff options
| -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 |