@@ -559,8 +559,7 @@ listLine :: Monad m => Int -> RSTParser m [Char]
559listLine markerLength = try $ do
559listLine markerLength = try $ do
560 notFollowedBy blankline
560 notFollowedBy blankline
561 indentWith markerLength
561 indentWith markerLength
562− line <- anyLine
562+ anyLineNewline
563− return $ line ++ "\n"
565-- indent by specified number of spaces (or equiv. tabs)
564-- indent by specified number of spaces (or equiv. tabs)
566indentWith :: Monad m => Int -> RSTParser m [Char]
565indentWith :: Monad m => Int -> RSTParser m [Char]