ЗП
instance bifunctorUpdate :: Bifunctor Update where
bimap f g (Update context) = Update context { model = f context.model, affs = (map g) <$> context.affs }
instance functorUpdate :: Functor (Flip Update model) where
map f (Update context) = Update context { model = f context.model }
Говорит:
Orphan instance functorUpdate found for
Data.Functor.Functor (Flip Update model)
This problem can be resolved by declaring the instance in Data.Bifunctor.Flip or Data.Functor, or by defining the instance on a newtype wrapper.
in type class instance
Data.Functor.Functor (Flip Update model)
