Functor instances can be derived

src/LinkedIn/ArtDecoCardAlt.purs

@@ -30,11 +30,9 @@ data ArtDecoCenterHeaderAlt a = ArtDecoCenterHeaderAlt {
 
 derive instance Generic (ArtDecoCenterHeaderAlt a) _
 derive instance Eq a => Eq (ArtDecoCenterHeaderAlt a)
+derive instance Functor ArtDecoCenterHeaderAlt
 instance Show a => Show (ArtDecoCenterHeaderAlt a) where
   show = genericShow
-instance Functor ArtDecoCenterHeaderAlt where
-  map f (ArtDecoCenterHeaderAlt {bold, normal}) =
-    ArtDecoCenterHeaderAlt ({bold: f bold, normal: map f normal})
 
 instance Foldable ArtDecoCenterHeaderAlt where
   foldMap f (ArtDecoCenterHeaderAlt {bold, normal}) = mempty <> (f bold) <> (foldMap f normal)
@@ -56,15 +54,13 @@ data ArtDecoCardAltElement a = ArtDecoCardAltElement {
 
 derive instance Generic (ArtDecoCardAltElement a) _
 derive instance Eq a => Eq (ArtDecoCardAltElement a)
+derive instance Functor ArtDecoCardAltElement
 instance Show (ArtDecoCardAltElement Node) where
   show (ArtDecoCardAltElement {
     pvs_entity: ArtDecoCenterHeaderAlt {bold, normal}
   }) = "ArtDecoCardAltElement(Node " <> "ArtDecoCenterHeaderAlt(Node " <> nodeName bold <> "," <> show (map nodeName normal) <>  ")" <> ")"
 else instance Show a => Show (ArtDecoCardAltElement a) where
   show = genericShow
-instance Functor ArtDecoCardAltElement where
-  map f (ArtDecoCardAltElement {pvs_entity}) =
-    ArtDecoCardAltElement ({pvs_entity: map f pvs_entity})
 
 instance Foldable ArtDecoCardAltElement where
   foldMap f (ArtDecoCardAltElement {pvs_entity}) = mempty <> (foldMap f pvs_entity)