From c52d5556a21e12b21b3ac1c21de0c3dcd01477cb Mon Sep 17 00:00:00 2001
From: Rockingcool <aadhavan@twomorecents.org>
Date: Tue, 20 May 2025 12:18:52 -0500
Subject: [PATCH] Allow for multiple blank lines after header

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

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 6920485..57c58c3 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -159,7 +159,8 @@ parseHeader = do
     pfail
   skipSpaces
   text <- munch1 (/= '\n')
-  Text.ParserCombinators.ReadP.optional (char '\n')
+  --  Text.ParserCombinators.ReadP.optional (char '\n')
+  skipSpaces
   let parsedText = fst $ leftmostLongestParse parseLine text
   return (Header (length headers) parsedText)