Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

RST reader: use anyLineNewline in rawListItem (#3702)

Browse source
This commit is contained in:
Alexander Krotov 2017-05-28 10:29:37 +03:00 committed by John MacFarlane
parent 8614902234
commit c38d5966ed
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Readers/RST.hs
View file

@ -568,9 +568,9 @@ rawListItem :: Monad m => RSTParser m Int
-> RSTParser m (Int, [Char]) -> RSTParser m (Int, [Char])
rawListItem start = try $ do rawListItem start = try $ do
markerLength <- start markerLength <- start
firstLine <- anyLine firstLine <- anyLineNewline
restLines <- many (listLine markerLength) 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 -- continuation of a list item - indented and separated by blankline or
-- (in compact lists) endline. -- (in compact lists) endline.