diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs index 4695e32..783cc45 100644 --- a/src/MdToHTML.hs +++ b/src/MdToHTML.hs @@ -298,17 +298,16 @@ lineParsers = parseUnit ] -- A 'line' doesn't include a 'header' -listLineParsers :: [Parser MdToken] -listLineParsers = - [ parseLinebreak, - parseEscapedChar, +lineParsersWithoutNewline :: [Parser MdToken] +lineParsersWithoutNewline = + [ parseEscapedChar, parseCode, parseImage, parseBold, parseItalic, parseStrikethrough, parseLink, - parseUnit + parseUnitExceptNewline ] -- A list line cannot contain newlines. -- List of all parsers @@ -321,7 +320,7 @@ parseLineToken = fallthroughParser lineParsers -- Parse any of the list line tokens. parseListLineToken :: Parser MdToken -parseListLineToken = fallthroughParser listLineParsers +parseListLineToken = fallthroughParser lineParsersWithoutNewline -- Parse a line, consisting of one or more tokens. parseLine :: Parser MdToken