-- a comment class Semigroup a => SomeData a instance SomeData All