@@ -412,7 +412,7 @@ listStart marker = try $ do
412 st <- stateParserContext <$> getState
412 st <- stateParserContext <$> getState
413 getPosition >>= \pos -> guard (st == ListItemState || sourceColumn pos /= 1)
413 getPosition >>= \pos -> guard (st == ListItemState || sourceColumn pos /= 1)
414 markerLength <- marker
414 markerLength <- marker
415− many1 spaceChar
415+ void (many1 spaceChar) <|> eol
416 return $ preWhitespace + markerLength + 1
416 return $ preWhitespace + markerLength + 1
418listItemContents :: PandocMonad m => Int -> MuseParser m (F Blocks)
418listItemContents :: PandocMonad m => Int -> MuseParser m (F Blocks)
@@ -448,7 +448,7 @@ orderedListStart style delim = listStart (snd <$> withHorizDisplacement (ordered
449orderedList :: PandocMonad m => MuseParser m (F Blocks)
449orderedList :: PandocMonad m => MuseParser m (F Blocks)
450orderedList = try $ do
450orderedList = try $ do
451− p@(_, style, delim) <- lookAhead (many spaceChar *> anyOrderedListMarker <* spaceChar)
451+ p@(_, style, delim) <- lookAhead (many spaceChar *> anyOrderedListMarker <* (eol <|> void spaceChar))
452 guard $ style `elem` [Decimal, LowerAlpha, UpperAlpha, LowerRoman, UpperRoman]
452 guard $ style `elem` [Decimal, LowerAlpha, UpperAlpha, LowerRoman, UpperRoman]
453 guard $ delim == Period
453 guard $ delim == Period
454 items <- sequence <$> many1 (listItem $ orderedListStart style delim)
454 items <- sequence <$> many1 (listItem $ orderedListStart style delim)