A list can contain a blockquote as well.

src/MdToHTML.hs

@@ -335,7 +335,7 @@ parseListParaItemCommon :: ReadP [MdToken]
 parseListParaItemCommon = do
   char '\n'
   lines <- greedyParse1 ((string "    " <|> string "\t") *> parseTillEol)
-  let res = fst $ leftmostLongestParse (greedyParse1 parsePara) (init $ unlines lines)
+  let res = fst $ leftmostLongestParse (greedyParse1 parseBlockquote <++ greedyParse1 parsePara) (init $ unlines lines)
   char '\n'
   return res -- I only wrap this in a document because I want some way of converting [MdToken] to MdToken, without any overhead. There is no other reason to wrap it in a Document.