|
|
@ -154,9 +154,7 @@ parseLine :: ReadP MdToken
|
|
|
|
parseLine = do
|
|
|
|
parseLine = do
|
|
|
|
skipSpaces
|
|
|
|
skipSpaces
|
|
|
|
-- Fail if we have reached the end of the document.
|
|
|
|
-- Fail if we have reached the end of the document.
|
|
|
|
remaining <- look
|
|
|
|
parsed <- manyTill parseLineToken eof
|
|
|
|
when (null remaining) pfail
|
|
|
|
|
|
|
|
parsed <- parseMany parseLineToken
|
|
|
|
|
|
|
|
return (Line parsed)
|
|
|
|
return (Line parsed)
|
|
|
|
|
|
|
|
|
|
|
|
-- Parse a paragraph, which is a 'Line' (can span multiple actual lines), separated by double-newlines.
|
|
|
|
-- Parse a paragraph, which is a 'Line' (can span multiple actual lines), separated by double-newlines.
|
|
|
|