Use list of document parsers in parseDocument

fixingIncompleteElements
Aadhavan Srinivasan 2 weeks ago
parent 00dfba81eb
commit 540b5430e5

@ -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)

Loading…
Cancel
Save