We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents d0fa312 + b784309 commit 7b4bad3Copy full SHA for 7b4bad3
src/Data/Set/NonEmpty.purs
@@ -51,7 +51,7 @@ derive newtype instance semigroupNonEmptySet :: Ord a => Semigroup (NonEmptySet
51
derive newtype instance foldableNonEmptySet :: Foldable NonEmptySet
52
53
instance foldable1NonEmptySet :: Foldable1 NonEmptySet where
54
- foldMap1 f = foldMap1 f <<< toUnfoldable1 :: forall a. NonEmptySet a -> NonEmptyList a
+ foldMap1 f = foldMap1 f <<< (toUnfoldable1 :: forall a. NonEmptySet a -> NonEmptyList a)
55
fold1 = foldMap1 identity
56
57
instance showNonEmptySet :: Show a => Show (NonEmptySet a) where
0 commit comments