@@ -570,8 +570,7 @@ bulletListUntil :: PandocMonad m
570bulletListUntil end = try $ do
570bulletListUntil end = try $ do
571 indent <- getIndent
571 indent <- getIndent
572 guard $ indent /= 0
572 guard $ indent /= 0
573− (items, e) <- bulletListItemsUntil indent end
573+ first (fmap B.bulletList . sequence) <$> bulletListItemsUntil indent end
574− return (B.bulletList <$> sequence items, e)
576museOrderedListMarker :: PandocMonad m
575museOrderedListMarker :: PandocMonad m
577 => ListNumberStyle
576 => ListNumberStyle