How to write a code to recognise the pattern by preset types in Haskell?

Question

I have made a data set as the following for simple poker game.

data Poker = ACE | TWO deriving (Eq, Show)

type Set = [Poker]

pair, threeKind, fourKind