Fixed how trailing newlines are parsed

master
Aadhavan Srinivasan 6 days ago
parent 8696a185a7
commit 0320402957

@ -194,7 +194,10 @@ parseLinebreak = do
parseSingleNewline :: ReadP MdToken
parseSingleNewline = do
char '\n'
return SingleNewline
remaining <- look
case remaining of
[] -> return $ Unit ""
_ -> return SingleNewline
parseImage :: ReadP MdToken
parseImage = do
@ -283,6 +286,7 @@ parsePara = do
text <- manyTill get (string "\n\n" <|> (eof >> return ""))
when (null text) pfail
let parsedText = fst $ leftmostLongestParse parseLine text -- Parse a line
parseMany (char '\n')
return (Para parsedText)
-- Parse a line starting with '>', return the line except for the '>'.

Loading…
Cancel
Save