Allow for multiple blank lines after header

2025-05-20 12:18:52 -05:00
parent 5fc1b1122a
commit c52d5556a2
1 changed files with 2 additions and 1 deletions
--- 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)