Use list of document parsers in parseDocument

2025-05-20 16:45:56 -04:00
parent 00dfba81eb
commit 540b5430e5
1 changed files with 1 additions and 1 deletions
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -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)