From 3f9b7a10ad2de63f6a9c77ff361acf17f94d536b Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 23 Aug 2021 22:06:39 -0700
Subject: Markdown reader: fix interaction of --strip-comments and list

parsing.  Use of `--strip-comments` was causing tight lists
to be rendered as loose (as if the comment were a blank line).
Closes #7521.
---
 src/Text/Pandoc/Readers/Markdown.hs |  2 +-
 test/command/7521.md                | 11 +++++++++++
 2 files changed, 12 insertions(+), 1 deletion(-)
 create mode 100644 test/command/7521.md

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 0f2239394..45594e0fa 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -829,7 +829,7 @@ listLineCommon :: PandocMonad m => MarkdownParser m Text
 listLineCommon = T.concat <$> manyTill
               (  many1Char (satisfy $ \c -> c `notElem` ['\n', '<', '`'])
              <|> fmap snd (withRaw code)
-             <|> fmap snd (htmlTag isCommentTag)
+             <|> fmap (renderTags . (:[]) . fst) (htmlTag isCommentTag)
              <|> countChar 1 anyChar
               ) newline
 
diff --git a/test/command/7521.md b/test/command/7521.md
new file mode 100644
index 000000000..38bc40482
--- /dev/null
+++ b/test/command/7521.md
@@ -0,0 +1,11 @@
+```
+% pandoc  -- --strip-comments
+- one
+  <!-- with comm -->
+- two
+- ^D
+<ul>
+<li>one </li>
+<li>two</li>
+</ul>
+```
-- 
cgit v1.2.3