1 2 3 4 5 6
-- !!! simple example of deriving Enum -- module ShouldSucceed where data Foo = Foo1 | Foo2 | Foo3 | Foo4 | Foo5 | Foo6 | Foo7 | Foo8 deriving Enum