aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-05-21 00:14:08 +0300
committerJohn MacFarlane <jgm@berkeley.edu>2017-05-20 23:14:08 +0200
commit753d5811e2d08ac27dd77659e43a6968b7ebd72a (patch)
tree5c9ee6423cb2a41767d1d041735258810400ddf7 /src/Text
parent03cb05f4c614f08600bcd8e90a7fd1ca13ae33a2 (diff)
downloadpandoc-753d5811e2d08ac27dd77659e43a6968b7ebd72a.tar.gz
RST reader: make use of anyLineNewline (#3686)
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/RST.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs
index 868bfafa4..e85ebade1 100644
--- a/src/Text/Pandoc/Readers/RST.hs
+++ b/src/Text/Pandoc/Readers/RST.hs
@@ -559,8 +559,7 @@ listLine :: Monad m => Int -> RSTParser m [Char]
listLine markerLength = try $ do
notFollowedBy blankline
indentWith markerLength
- line <- anyLine
- return $ line ++ "\n"
+ anyLineNewline
-- indent by specified number of spaces (or equiv. tabs)
indentWith :: Monad m => Int -> RSTParser m [Char]