@@ -42,7 +42,7 @@ import Text.Pandoc.Readers.LaTeX ( rawLaTeXInline, rawLaTeXEnvironment' )
4242import Text.Pandoc.Readers.HTML ( rawHtmlBlock, anyHtmlBlockTag,
4343 anyHtmlInlineTag, anyHtmlTag,
4444 anyHtmlEndTag, htmlEndTag, extractTagType,
45− htmlBlockElement, unsanitaryURI )
45+ htmlBlockElement, htmlComment, unsanitaryURI )
4646import Text.Pandoc.CharacterReferences ( decodeCharacterReferences )
4747import Text.ParserCombinators.Parsec
4848import Control.Monad (when, liftM)
@@ -504,8 +504,8 @@ listLine = try $ do
504504 notFollowedBy' (do indentSpaces
505505 many (spaceChar)
506506 listStart)
507− line <- manyTill anyChar newline
508− return $ line ++ "\n"
507+ chunks <- manyTill (htmlComment <|> count 1 anyChar) newline
508+ return $ concat chunks ++ "\n"
509509
510510-- parse raw text for one list item, excluding start marker and continuations
511511rawListItem :: GenParser Char ParserState [Char]