@@ -547,7 +547,7 @@ bulletListStart :: Monad m => ParserT [Char] st m Int
547547bulletListStart = try $ do
548548 notFollowedBy' hrule -- because hrules start out just like lists
549549 marker <- oneOf bulletListMarkers
550− white <- many1 spaceChar
550+ white <- many1 spaceChar <|> "" <$ lookAhead (char '\n')
551551 return $ length (marker:white)
552552
553553-- parses ordered list start and returns its length (inc following whitespace)
@@ -556,7 +556,7 @@ orderedListStart :: Monad m => ListNumberStyle
556556 -> RSTParser m Int
557557orderedListStart style delim = try $ do
558558 (_, markerLen) <- withHorizDisplacement (orderedListMarker style delim)
559− white <- many1 spaceChar
559+ white <- many1 spaceChar <|> "" <$ lookAhead (char '\n')
560560 return $ markerLen + length white
561561
562562-- parse a line of a list item