diff options
author | John MacFarlane <jgm@berkeley.edu> | 2021-11-04 10:11:57 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2021-11-04 10:11:57 -0700 |
commit | 0b254ea4af38cf53c027eb5e9977e96c2b7975c7 (patch) | |
tree | 8d5d6bd0940659e71195afb766e3d8342b589703 /src/Text/Pandoc/Writers/Markdown.hs | |
parent | 4ea2baf814c462670301cf3b6a3b7d6b8a38c143 (diff) | |
download | pandoc-0b254ea4af38cf53c027eb5e9977e96c2b7975c7.tar.gz |
Allow `plain` to be used in raw attribute syntax.
Diffstat (limited to 'src/Text/Pandoc/Writers/Markdown.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 4f6a8bfb1..96de5e0cd 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -399,7 +399,8 @@ blockToMarkdown' opts b@(RawBlock f str) = do (literal "```" <> literal "\n") let renderEmpty = mempty <$ report (BlockNotRendered b) case variant of - PlainText -> renderEmpty + PlainText + | f == "plain" -> return $ literal str <> literal "\n" Commonmark | f `elem` ["gfm", "commonmark", "commonmark_x", "markdown"] -> return $ literal str <> literal "\n" |