@@ -563,16 +563,15 @@ anyMuseOrderedListMarker = do
563museOrderedListMarker :: PandocMonad m
563museOrderedListMarker :: PandocMonad m
564 => ListNumberStyle
564 => ListNumberStyle
565 -> MuseParser m Int
565 -> MuseParser m Int
566−museOrderedListMarker style = do
566+museOrderedListMarker style =
567+ snd <$> p <* char '.'
567− (_, start) <- case style of
568+ where p = case style of
568− Decimal -> decimal
569+ Decimal -> decimal
569− UpperRoman -> upperRoman
570+ UpperRoman -> upperRoman
570− LowerRoman -> lowerRoman
571+ LowerRoman -> lowerRoman
571− UpperAlpha -> upperAlpha
572+ UpperAlpha -> upperAlpha
572− LowerAlpha -> lowerAlpha
573+ LowerAlpha -> lowerAlpha
573− _ -> fail "Unhandled case"
574+ _ -> fail "Unhandled case"
577orderedListItemsUntil :: PandocMonad m
576orderedListItemsUntil :: PandocMonad m