diff --git a/mono-traversable/src/Data/MonoTraversable.hs b/mono-traversable/src/Data/MonoTraversable.hs index 2093406f..04991b8b 100644 --- a/mono-traversable/src/Data/MonoTraversable.hs +++ b/mono-traversable/src/Data/MonoTraversable.hs @@ -1331,7 +1331,7 @@ instance MonoComonad (ViewR a) where -- This should have a @Semigroup@ superclass constraint, however, due to -- @Semigroup@ only recently moving to base, some packages do not provide -- instances. -class MonoFoldable mono => GrowingAppend mono +class (Semigroup mono, MonoFoldable mono) => GrowingAppend mono instance GrowingAppend (Seq.Seq a) instance GrowingAppend [a]