diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index f19f35588..84fc77a08 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -472,6 +472,11 @@ blockToMarkdown' opts b@(RawBlock f str) return $ if plain then empty else text str <> text "\n" + | f == "plain" = do + plain <- asks envPlain + return $ if plain + then text str <> text "\n" + else empty | otherwise = do report $ BlockNotRendered b return empty |