RST reader: make use of anyLineNewline (#3686)

jgm · May 20, 2017 · 753d581 · 753d581
1 parent 03cb05f
commit 753d581
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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]