packages feed

hls-tactics-plugin-1.1.0.0: test/golden/KnownModuleInstanceSemigroup.hs.expected

data Foo = Foo

instance Semigroup Foo where
  (<>) _ _ = Foo


data Bar = Bar Foo Foo

instance Semigroup Bar where
  (<>) (Bar f4 f5) (Bar f f3) = Bar (f4 <> f) (f5 <> f3)