Rockingcool/md-to-html
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allow for multiple blank lines after header

Browse Source
This commit is contained in:
Aadhavan Srinivasan
2025-05-20 12:18:52 -05:00
parent 5fc1b1122a
commit c52d5556a2
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/MdToHTML.hs
View File

@@ -159,7 +159,8 @@ parseHeader = do
pfail pfail
skipSpaces skipSpaces
text <- munch1 (/= '\n') text <- munch1 (/= '\n')
Text.ParserCombinators.ReadP.optional (char '\n') -- Text.ParserCombinators.ReadP.optional (char '\n')
skipSpaces
let parsedText = fst $ leftmostLongestParse parseLine text let parsedText = fst $ leftmostLongestParse parseLine text
return (Header (length headers) parsedText) return (Header (length headers) parsedText)