1 2 3 4 5 6
-- !!! deriving Enum, but not Ord. module ShouldSucceed where data ABC = A | B | C deriving Enum x = [A ..C]