Ms writer: make use of already defined render' (#3613)
commitc346a8a7bef5a59c779073c9299bd968ecad44c9
authorAlexander Krotov <ilabdsf@gmail.com>
dateFri 28 Apr 2017, 11:04 (9 years ago)
parente97e9cd
src/Text/Pandoc/Writers/Ms.hs+2−2
@@ -97,8 +97,8 @@ pandocToMs opts (Pandoc meta blocks) = do
9797 else Nothing
9898 let render' = render colwidth
9999 metadata <- metaToJSON opts
100− (fmap (render colwidth) . blockListToMs opts)
101− (fmap (render colwidth) . inlineListToMs' opts)
100+ (fmap render' . blockListToMs opts)
101+ (fmap render' . inlineListToMs' opts)
102102 meta
103103 body <- blockListToMs opts blocks
104104 let main = render' body