sameColor :: Suit -> Suit -> Bool
sameColor a b = (suitColor a) == (suitColor b)
sameColor :: Suit -> Suit -> Bool
sameColor a b = (suitColor a) == (suitColor b)
sameColor a b = (suitColor a) == (suitColor b)