@ -381,5 +381,5 @@ documentParsers =
-- Parse a document, which is multiple paragraphs.
parseDocument :: ReadP MdToken
parseDocument = do
res <- manyTill (parseHeader <++ parseBlockquote <++ parseUnorderedList <++ parsePara) eof
res <- manyTill (fallthroughParser documentParsers) eof
return (Document res)