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