From 1915628a2ba8d6e8d71cf6b8f6d488c604e72ed7 Mon Sep 17 00:00:00 2001
From: Aadhavan Srinivasan <aadhavan@twomorecents.org>
Date: Tue, 27 May 2025 14:12:13 -0400
Subject: [PATCH] Used 'in-order' parsing for headers, instead of
 leftmostLongestParse

---
 src/MdToHTML.hs | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 03accdd..1b2bbb0 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -133,11 +133,9 @@ parseHeader = do
     (length headers > 6)
     pfail
   skipSpaces
-  text <- munch1 (/= '\n')
-  --  Text.ParserCombinators.ReadP.optional (char '\n')
-  skipSpaces
-  let parsedText = fst $ leftmostLongestParse parseLine text
-  return (Header (length headers) parsedText)
+  parsedText <- manyTill parseLineToken (void (char '\n') <++ eof)
+  greedyParse (char '\n')
+  return (Header (length headers) (Line parsedText))
 
 -- Parse bold text
 parseBold :: ReadP MdToken