-- restOfLine <- manyTill get (void (char '\n') <++ eof)
@ -322,11 +317,27 @@ parseUListLineItem = do
parseUListParaItem::ReadPMdToken
parseUListParaItem=do
firstLine<-parseUListLineItem
res<-parseListParaItemCommon
return$Document(ParafirstLine:res)-- I only wrap this in a document because I want some way of converting [MdToken] to MdToken, without any overhead. There is no other reason to wrap it in a Document.
-- Parse an unordered list paragraph item.
parseOListParaItem::ReadPMdToken
parseOListParaItem=do
firstLine<-parseOListLineItem
res<-parseListParaItemCommon
return$Document(ParafirstLine:res)-- I only wrap this in a document because I want some way of converting [MdToken] to MdToken, without any overhead. There is no other reason to wrap it in a Document.
-- Common code for parsing list paragraph items.
-- A list paragraph item is defined as a line item, followed by an empty line, followed by one or more
-- lines indented by a space or tab.
-- A list paragraph item can also be a blockquote.
return$Document(ParafirstLine:res)-- I only wrap this in a document because I want some way of converting [MdToken] to MdToken, without any overhead. There is no other reason to wrap it in a Document.
returnres-- I only wrap this in a document because I want some way of converting [MdToken] to MdToken, without any overhead. There is no other reason to wrap it in a Document.
-- Parse an unordered list item, which can be a line item or another list.