|
|
|
@ -306,14 +306,7 @@ parseUListLineItem = do
|
|
|
|
|
nestedList <- parseListNested <++ return (Unit "")
|
|
|
|
|
return $ Line [Line restOfLine, nestedList]
|
|
|
|
|
|
|
|
|
|
-- restOfLine <- manyTill get (void (char '\n') <++ eof)
|
|
|
|
|
-- let restOfLineParsed = fst $ leftmostLongestParse parseLine restOfLine
|
|
|
|
|
-- nestedList <- parseUListNested <++ return (Unit "")
|
|
|
|
|
-- return $ Line [restOfLineParsed, nestedList]
|
|
|
|
|
|
|
|
|
|
-- Parse an unordered list paragraph item.
|
|
|
|
|
-- This is defined as a line item, followed by an empty line, followed by one or more
|
|
|
|
|
-- lines indented by a space or tab.
|
|
|
|
|
parseUListParaItem :: ReadP MdToken
|
|
|
|
|
parseUListParaItem = do
|
|
|
|
|
firstLine <- parseUListLineItem
|
|
|
|
|