Parse until EOF instead of adding a manual check.
This commit is contained in:
@@ -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.
|
||||||
|
Reference in New Issue
Block a user