@@ -412,7 +412,7 @@ listStart marker = try $ do
412412 st <- stateParserContext <$> getState
413413 getPosition >>= \pos -> guard (st == ListItemState || sourceColumn pos /= 1)
414414 markerLength <- marker
415− many1 spaceChar
415+ void (many1 spaceChar) <|> eol
416416 return $ preWhitespace + markerLength + 1
417417
418418listItemContents :: PandocMonad m => Int -> MuseParser m (F Blocks)
@@ -448,7 +448,7 @@ orderedListStart style delim = listStart (snd <$> withHorizDisplacement (ordered
448448
449449orderedList :: PandocMonad m => MuseParser m (F Blocks)
450450orderedList = try $ do
451− p@(_, style, delim) <- lookAhead (many spaceChar *> anyOrderedListMarker <* spaceChar)
451+ p@(_, style, delim) <- lookAhead (many spaceChar *> anyOrderedListMarker <* (eol <|> void spaceChar))
452452 guard $ style `elem` [Decimal, LowerAlpha, UpperAlpha, LowerRoman, UpperRoman]
453453 guard $ delim == Period
454454 items <- sequence <$> many1 (listItem $ orderedListStart style delim)