@@ -570,8 +570,7 @@ bulletListUntil :: PandocMonad m
570570bulletListUntil end = try $ do
571571 indent <- getIndent
572572 guard $ indent /= 0
573− (items, e) <- bulletListItemsUntil indent end
574− return (B.bulletList <$> sequence items, e)
573+ first (fmap B.bulletList . sequence) <$> bulletListItemsUntil indent end
575574
576575museOrderedListMarker :: PandocMonad m
577576 => ListNumberStyle