e97e9cd · typeable/pandoc

git.iko.soy/typeable/pandoc

Muse writer: Do not reflow directives (#3614)

Directives at the beginning of documents cannot span multiple lines so they must not be reflown.

commite97e9cd6a3d804678fc1554ef0f39443e1d2aeaa authorAlexander Krotov <ilabdsf@gmail.com> dateFri 28 Apr 2017, 11:03 (9 years ago) parent24ef672

1 file changed+2−2

unifiedsplit

src/Text/Pandoc/Writers/Muse.hs+2−2

@@ -85,8 +85,8 @@ pandocToMuse (Pandoc meta blocks) = do

8585 then Just $ writerColumns opts

8686 else Nothing

8787 metadata <- metaToJSON opts

88− (fmap (render colwidth) . blockListToMuse)

89− (fmap (render colwidth) . inlineListToMuse)

88+ (fmap (render Nothing) . blockListToMuse)

89+ (fmap (render Nothing) . inlineListToMuse)

9090 meta

9191 body <- blockListToMuse blocks

9292 notes <- liftM (reverse . stNotes) get >>= notesToMuse