Closed Icelandjack closed 7 years ago
This would add a semigroupoid dependency and break compatibility but consider making join1 and meet1 work over Foldable1
semigroupoid
join1
meet1
Foldable1
joins1 :: (Foldable1 f, JoinSemiLattice j) => f j -> j meets1 :: (Foldable1 f, MeetSemiLattice m) => f m -> m
Even adding functions in the style of sumWith1, productWith1
sumWith1
productWith1
joinsMap1 :: (Foldable1 f, JoinSemiLattice j) => (a -> j) -> (f a -> j) meetsMap1 :: (Foldable1 f, MeetSemiLattice m) => (a -> m) -> (f a -> m)
This would add a
semigroupoid
dependency and break compatibility but consider makingjoin1
andmeet1
work overFoldable1
Even adding functions in the style of
sumWith1
,productWith1