From c346a8a7bef5a59c779073c9299bd968ecad44c9 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Fri, 28 Apr 2017 11:04:09 +0300
Subject: Ms writer: make use of already defined render' (#3613)

---
 src/Text/Pandoc/Writers/Ms.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc/Writers/Ms.hs')

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
-- 
cgit v1.2.3