Selaa lähdekoodia

Simplify impl of foldMap

jherve 1 vuosi sitten
vanhempi
commit
229f960997
1 muutettua tiedostoa jossa 2 lisäystä ja 2 poistoa
  1. 2 2
      src/LinkedIn/ArtDecoCardAlt.purs

+ 2 - 2
src/LinkedIn/ArtDecoCardAlt.purs

@@ -30,7 +30,7 @@ instance Show a => Show (ArtDecoCenterHeaderAlt a) where
   show = genericShow
 
 instance Foldable ArtDecoCenterHeaderAlt where
-  foldMap f (ArtDecoCenterHeaderAlt {bold, normal}) = mempty <> (f bold) <> (foldMap f normal)
+  foldMap f (ArtDecoCenterHeaderAlt {bold, normal}) = f bold <> foldMap f normal
 
   foldl = \x -> foldlDefault x
   foldr = \x -> foldrDefault x
@@ -60,7 +60,7 @@ else instance Show a => Show (ArtDecoCardAltElement a) where
   show = genericShow
 
 instance Foldable ArtDecoCardAltElement where
-  foldMap f (ArtDecoCardAltElement {pvs_entity}) = mempty <> (foldMap f pvs_entity)
+  foldMap f (ArtDecoCardAltElement {pvs_entity}) = foldMap f pvs_entity
 
   foldl = \x -> foldlDefault x
   foldr = \x -> foldrDefault x