RST reader: make use of anyLineNewline (#3686)

This commit is contained in:
Alexander Krotov 2017-05-21 00:14:08 +03:00 committed by John MacFarlane
parent 03cb05f4c6
commit 753d5811e2

View file

@ -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]