What do I need to add to this Color enum type to print a list of them? Michael =============== data Color = Red | Blue | Green | Yellow | Orange | Brown | White | Black instance Show Color where show Red = "Red" show Blue = "Blue" show Green = "Green" show Yellow = "Yellow" show Orange = "Orange" show Brown = "Brown" show White = "White" show Black = "Black" ====================== Ok, modules loaded: Main. *Main> Red Red *Main> Black Black *Main> [Red Black White] <interactive>:1:1: Couldn't match expected type `Color -> Color -> t' against inferred type `Color' In the expression: Red Black White In the expression: [Red Black White] In the definition of `it': it = [Red Black White]