In this piece of code

data Color = RED | BLUE | YELLOW

allColors :: [Color]

allColors = [RED, BLUE, YELLOW]

I have to remeber that if I add a Color, I have to add the color in allColors too.  

Is there no better way to  add all possible colors in allColors?

Kees