diff options
author | John MacFarlane <jgm@berkeley.edu> | 2021-10-01 15:42:00 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2021-10-01 15:42:00 -0700 |
commit | fb0d6c7cb63a791fa72becf21ed493282e65ea91 (patch) | |
tree | 5041a742bd53fd8d88d267106c283d3c80f820ab /src/Text/Pandoc/Writers/Markdown.hs | |
parent | 021cdb543b00995f86eefd5d84314d9e1f5abf82 (diff) | |
download | pandoc-fb0d6c7cb63a791fa72becf21ed493282e65ea91.tar.gz |
Depend on pandoc-types 1.23, remove Null constructor on Block.
Diffstat (limited to 'src/Text/Pandoc/Writers/Markdown.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index fda2bbcef..49fb873a9 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -313,7 +313,6 @@ blockToMarkdown' :: PandocMonad m => WriterOptions -- ^ Options -> Block -- ^ Block element -> MD m (Doc Text) -blockToMarkdown' _ Null = return empty blockToMarkdown' opts (Div attrs ils) = do contents <- blockListToMarkdown opts ils variant <- asks envVariant @@ -812,7 +811,7 @@ blockListToMarkdown opts blocks = do isListBlock (DefinitionList _) = True isListBlock _ = False commentSep - | variant == PlainText = Null + | variant == PlainText = RawBlock "html" "<!-- -->\n" | isEnabled Ext_raw_html opts = RawBlock "html" "<!-- -->\n" | otherwise = RawBlock "markdown" " \n" mconcat <$> mapM (blockToMarkdown opts) (fixBlocks blocks) |