git.iko.soy/typeable/pandoc
on master help sign in
Make 'plain' RawBlocks work for 'plain' output.
dfd1796John MacFarlane
src/Text/Pandoc/Writers/Markdown.hs+5
compare with master
unifiedsplit
@@ -472,6 +472,11 @@ blockToMarkdown' opts b@(RawBlock f str)
472 return $ if plain
472 return $ if plain
473 then empty
473 then empty
474 else text str <> text "\n"
474 else text str <> text "\n"
475+ | f == "plain" = do
476+ plain <- asks envPlain
477+ return $ if plain
478+ then text str <> text "\n"
479+ else empty
475 | otherwise = do
480 | otherwise = do
476 report $ BlockNotRendered b
481 report $ BlockNotRendered b
477 return empty
482 return empty