RST reader: make use of anyLineNewline (#3686)
commit753d5811e2d08ac27dd77659e43a6968b7ebd72a
authorAlexander Krotov <ilabdsf@gmail.com>
dateSun 21 May 2017, 00:14 (9 years ago)
parent03cb05f
src/Text/Pandoc/Readers/RST.hs+1−2
@@ -559,8 +559,7 @@ listLine :: Monad m => Int -> RSTParser m [Char]
559559listLine markerLength = try $ do
560560 notFollowedBy blankline
561561 indentWith markerLength
562− line <- anyLine
563− return $ line ++ "\n"
562+ anyLineNewline
564563
565564-- indent by specified number of spaces (or equiv. tabs)
566565indentWith :: Monad m => Int -> RSTParser m [Char]