@@ -595,13 +595,6 @@ bulletListUntil end = try $ do
595 (items, e) <- bulletListItemsUntil indent end
595 (items, e) <- bulletListItemsUntil indent end
596 return (B.bulletList <$> sequence items, e)
596 return (B.bulletList <$> sequence items, e)
598−-- | Parses an ordered list marker and returns list attributes.
599−anyMuseOrderedListMarker :: PandocMonad m => MuseParser m ListAttributes
600−anyMuseOrderedListMarker = do
601− (style, start) <- decimal <|> lowerRoman <|> upperRoman <|> lowerAlpha <|> upperAlpha
603− return (start, style, Period)
605museOrderedListMarker :: PandocMonad m
598museOrderedListMarker :: PandocMonad m
606 => ListNumberStyle
599 => ListNumberStyle
607 -> MuseParser m Int
600 -> MuseParser m Int
@@ -639,10 +632,10 @@ orderedListUntil end = try $ do
639 pos <- getPosition
632 pos <- getPosition
640 let indent = sourceColumn pos - 1
633 let indent = sourceColumn pos - 1
641 guard $ indent /= 0
634 guard $ indent /= 0
642− p@(_, style, _) <- anyMuseOrderedListMarker
635+ (style, start) <- decimal <|> lowerRoman <|> upperRoman <|> lowerAlpha <|> upperAlpha
643− guard $ style `elem` [Decimal, LowerAlpha, UpperAlpha, LowerRoman, UpperRoman]
636+ char '.'
644− (items, e) <- orderedListItemsUntil indent style end
637+ first (fmap (B.orderedListWith (start, style, Period)) . sequence)
645− return (B.orderedListWith p <$> sequence items, e)
638+ <$> orderedListItemsUntil indent style end
647descriptionsUntil :: PandocMonad m
640descriptionsUntil :: PandocMonad m