|
|
@@ -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
|