Used 'in-order' parsing for headers, instead of leftmostLongestParse

2025-05-27 14:12:13 -04:00
parent 1d9ac86a2a
commit 1915628a2b
1 changed files with 3 additions and 5 deletions
--- 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