data Test = Foo | Bar deriving (Eq)

instance Show Test where
  show Foo = "this is foo"

deriving instance Show Bar -- errors

-- could it deriving instance Show for only **Bar**