Markdown writer: fix bug with block quotes in lists.

Closes #9908.

2 files changed, 11 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index 2eaaa54bf..275fe1ec0 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -592,7 +592,7 @@ blockToMarkdown' opts (BlockQuote blocks) = do
         | variant == PlainText = "  "
         | otherwise            = "> "
   contents <- blockListToMarkdown opts blocks
-  return $ prefixed leader contents <> blankline
+  return $ text leader <> prefixed leader contents <> blankline
 blockToMarkdown' opts t@(Table (ident,_,_) blkCapt specs thead tbody tfoot) = do
   let (caption, aligns, widths, headers, rows) = toLegacyTable blkCapt specs thead tbody tfoot
   let numcols = maximum (length aligns :| length widths :
diff --git a/test/command/9908.md b/test/command/9908.md
new file mode 100644
index 000000000..9954298e0
--- /dev/null
+++ b/test/command/9908.md
@@ -0,0 +1,10 @@
+```
+% pandoc -f native -t markdown
+[ BulletList
+    [ [ BlockQuote [ Para [ Str "a" ] , Para [ Str "b" ] ] ] ]
+]
+^D
+-   > a
+    >
+    > b
+```