@@ -667,7 +667,7 @@ listLine = try $ do
667 many (spaceChar)
667 many (spaceChar)
668 listStart)
668 listStart)
669 chunks <- manyTill (liftM snd (htmlTag isCommentTag) <|> count 1 anyChar) newline
669 chunks <- manyTill (liftM snd (htmlTag isCommentTag) <|> count 1 anyChar) newline
670− return $ concat chunks ++ "\n"
670+ return $ concat chunks
672-- parse raw text for one list item, excluding start marker and continuations
672-- parse raw text for one list item, excluding start marker and continuations
673rawListItem :: MarkdownParser a
673rawListItem :: MarkdownParser a
@@ -677,7 +677,7 @@ rawListItem start = try $ do
677 first <- listLine
677 first <- listLine
678 rest <- many (notFollowedBy listStart >> listLine)
678 rest <- many (notFollowedBy listStart >> listLine)
679 blanks <- many blankline
679 blanks <- many blankline
680− return $ concat (first:rest) ++ blanks
680+ return $ unlines (first:rest) ++ blanks
682-- continuation of a list item - indented and separated by blankline
682-- continuation of a list item - indented and separated by blankline
683-- or (in compact lists) endline.
683-- or (in compact lists) endline.