RST reader: use anyLineNewline in rawListItem (#3702)

This commit is contained in:
Alexander Krotov
2017-05-28 09:29:37 +02:00
committed by John MacFarlane
parent 8614902234
commit c38d5966ed
+2 -2
View File
@@ -568,9 +568,9 @@ rawListItem :: Monad m => RSTParser m Int
-> RSTParser m (Int, [Char])
rawListItem start = try $ do
markerLength <- start
firstLine <- anyLine
firstLine <- anyLineNewline
restLines <- many (listLine markerLength)
return (markerLength, (firstLine ++ "\n" ++ (concat restLines)))
return (markerLength, firstLine ++ concat restLines)
-- continuation of a list item - indented and separated by blankline or
-- (in compact lists) endline.