Parse until EOF instead of adding a manual check.

master
Aadhavan Srinivasan 3 days ago
parent 9ffbb7365c
commit b6f51c33c7

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

Loading…
Cancel
Save