diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-01-10 11:55:21 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-01-10 11:55:21 -0800 |
| commit | dfd1796cf2940a151145f96265d75904b7313493 (patch) | |
| tree | e90de05d25db14613c379cfc01edb1cfc44851dd | |
| parent | 666bf8ac5cf2574303874be2cd8234e8b99ad459 (diff) | |
| download | pandoc-dfd1796cf2940a151145f96265d75904b7313493.tar.gz | |
Make 'plain' RawBlocks work for 'plain' output.
| -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 |