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

Move parseHeader up in the chain - parseDocument can either parse

Browse Source 
headers or a paragraph
This commit is contained in:
Aadhavan Srinivasan
2025-05-06 17:06:22 -05:00
parent b6f51c33c7
commit d1b0ce6b10
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/MdToHTML.hs
View File

@@ -166,7 +166,7 @@ parsePara = do
-- string "\n\n" <|> (eof >> return "") -- Consume the next double-newline or EOF. -- string "\n\n" <|> (eof >> return "") -- Consume the next double-newline or EOF.
text <- (manyTill get ((string "\n\n") <|> (eof >> return ""))) text <- (manyTill get ((string "\n\n") <|> (eof >> return "")))
when (null text) pfail when (null text) pfail
let parsedText = fst $ leftmostLongestParse (parseHeader <|> parseLine) text -- Parse either a line or a header. let parsedText = fst $ leftmostLongestParse parseLine text -- Parse either a line or a header.
-- If the paragraph is a header, return a Header token. Otheriwse return a Para token. -- If the paragraph is a header, return a Header token. Otheriwse return a Para token.
case parsedText of case parsedText of
Header level token -> return (Header level token) Header level token -> return (Header level token)
@@ -174,4 +174,6 @@ parsePara = do
-- Parse a document, which is multiple paragraphs. -- Parse a document, which is multiple paragraphs.
parseDocument :: ReadP MdToken parseDocument :: ReadP MdToken
parseDocument = (many1 parsePara) >>= (\res -> return (Document (res))) parseDocument = do
res <- manyTill (parseHeader <++ parsePara) (eof)
return (Document res)