|
|
|
@ -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 '>'.
|
|
|
|
|