From e97e9cd6a3d804678fc1554ef0f39443e1d2aeaa Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Fri, 28 Apr 2017 11:03:39 +0300
Subject: [PATCH] Muse writer: Do not reflow directives (#3614)
Directives at the beginning of documents cannot
span multiple lines so they must not be reflown.
---
src/Text/Pandoc/Writers/Muse.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index cc88eb762..8f6493975 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -85,8 +85,8 @@ pandocToMuse (Pandoc meta blocks) = do
then Just $ writerColumns opts
else Nothing
metadata <- metaToJSON opts
- (fmap (render colwidth) . blockListToMuse)
- (fmap (render colwidth) . inlineListToMuse)
+ (fmap (render Nothing) . blockListToMuse)
+ (fmap (render Nothing) . inlineListToMuse)
meta
body <- blockListToMuse blocks
notes <- liftM (reverse . stNotes) get >>= notesToMuse