From 540b5430e589adb1a3962a35dcaab04c1c868ae4 Mon Sep 17 00:00:00 2001
From: Aadhavan Srinivasan <aadhavan@twomorecents.org>
Date: Tue, 20 May 2025 16:45:56 -0400
Subject: [PATCH] Use list of document parsers in parseDocument

---
 src/MdToHTML.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index cf14a3f..1301d80 100644
--- 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)