Use list of document parsers in parseDocument
This commit is contained in:
@@ -381,5 +381,5 @@ documentParsers =
|
|||||||
-- Parse a document, which is multiple paragraphs.
|
-- Parse a document, which is multiple paragraphs.
|
||||||
parseDocument :: ReadP MdToken
|
parseDocument :: ReadP MdToken
|
||||||
parseDocument = do
|
parseDocument = do
|
||||||
res <- manyTill (parseHeader <++ parseBlockquote <++ parseUnorderedList <++ parsePara) eof
|
res <- manyTill (fallthroughParser documentParsers) eof
|
||||||
return (Document res)
|
return (Document res)
|
||||||
|
Reference in New Issue
Block a user