@@ -2643,7 +2643,7 @@ concatMapTreeWith
2643 -> t m (Either a b)
2643 -> t m (Either a b)
2644concatMapTreeWith combine f xs = concatMapWith combine go xs
2644concatMapTreeWith combine f xs = concatMapWith combine go xs
2646− go (Left tree) = Left tree `K.cons` concatMapWith combine go (f tree)
2646+ go (Left tree) = yield (Left tree) `combine` concatMapWith combine go (f tree)
2647 go (Right leaf) = yield $ Right leaf
2647 go (Right leaf) = yield $ Right leaf