aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-05-28 10:29:37 +0300
committerJohn MacFarlane <jgm@berkeley.edu>2017-05-28 09:29:37 +0200
commitc38d5966edd9954d4ec1eb30b2eff140cb63d93e (patch)
tree4a76e84b1a651c52d2202f9c8f87b84276928f57
parent8614902234902c02f6493b651e585527d49e058b (diff)
downloadpandoc-c38d5966edd9954d4ec1eb30b2eff140cb63d93e.tar.gz
RST reader: use anyLineNewline in rawListItem (#3702)
-rw-r--r--src/Text/Pandoc/Readers/RST.hs4
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.