@@ -667,7 +667,7 @@ listLine = try $ do
667667 many (spaceChar)
668668 listStart)
669669 chunks <- manyTill (liftM snd (htmlTag isCommentTag) <|> count 1 anyChar) newline
670− return $ concat chunks ++ "\n"
670+ return $ concat chunks
671671
672672-- parse raw text for one list item, excluding start marker and continuations
673673rawListItem :: MarkdownParser a
@@ -677,7 +677,7 @@ rawListItem start = try $ do
677677 first <- listLine
678678 rest <- many (notFollowedBy listStart >> listLine)
679679 blanks <- many blankline
680− return $ concat (first:rest) ++ blanks
680+ return $ unlines (first:rest) ++ blanks
681681
682682-- continuation of a list item - indented and separated by blankline
683683-- or (in compact lists) endline.