@@ -454,10 +454,8 @@ withListContext p = do
454454 return parsed
455455
456456listItemContents' :: PandocMonad m => Int -> MuseParser m (F Blocks)
457−listItemContents' col = do
458− first <- try $ withListContext parseBlock
459− rest <- many $ try (skipMany blankline >> indentWith col >> withListContext parseBlock)
460− return $ mconcat (first : rest)
457+listItemContents' col =
458+ mconcat <$> withListContext (parseBlock `sepBy1` try (skipMany blankline >> indentWith col))
461459
462460listItemContents :: PandocMonad m => MuseParser m (F Blocks)
463461listItemContents = do