diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-05-28 10:29:37 +0300 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-05-28 09:29:37 +0200 |
| commit | c38d5966edd9954d4ec1eb30b2eff140cb63d93e (patch) | |
| tree | 4a76e84b1a651c52d2202f9c8f87b84276928f57 /src/Text/Pandoc | |
| parent | 8614902234902c02f6493b651e585527d49e058b (diff) | |
| download | pandoc-c38d5966edd9954d4ec1eb30b2eff140cb63d93e.tar.gz | |
RST reader: use anyLineNewline in rawListItem (#3702)
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index 1ea142112..b242d6428 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -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. |