diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-04-28 11:03:39 +0300 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-04-28 10:03:39 +0200 |
| commit | e97e9cd6a3d804678fc1554ef0f39443e1d2aeaa (patch) | |
| tree | 35691976c1568f26e2cf1c17420194d9548571f6 /src/Text/Pandoc/Writers/Muse.hs | |
| parent | 24ef67213213b621a6c0f340e7bfdf68d2d40ac1 (diff) | |
Muse writer: Do not reflow directives (#3614)
Directives at the beginning of documents cannot
span multiple lines so they must not be reflown.
Diffstat (limited to 'src/Text/Pandoc/Writers/Muse.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 4 |
1 files 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 |