From 753d5811e2d08ac27dd77659e43a6968b7ebd72a Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 21 May 2017 00:14:08 +0300
Subject: [PATCH] RST reader: make use of anyLineNewline (#3686)

---
 src/Text/Pandoc/Readers/RST.hs | 3 +--
 1 file changed, 1 insertion(+), 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]