Function fromSemigroup

packages/typeclass/src/Monoid.ts:21–26

(S: Semigroup<A>, empty: Monoid<A>["empty"])

 * @since 0.24.0
 */
export const fromSemigroup = <A>(S: Semigroup<A>, empty: Monoid<A>["empty"]): Monoid<A> => ({
  combine: S.combine,
  combineMany: S.combineMany,
  empty,
  combineAll: (collection) => S.combineMany(empty, collection)
})

/**
 * Get a monoid where `combine` will return the minimum, based on the provided bounded order.