Defining poker hands in Haskell using custom combinators

poker.hs

match High          = 1 `with` same value
match Pair          = 2 `with` same value
match TwoPair       = 2 `with` same value `plus` 2 `with` same value
match ThreeOfKind   = 3 `with` same value
match Straight      = 5 `with` sequential value
match Flush         = 5 `with` same suit
match FullHouse     = 3 `with` same value `plus` 2 `with` same value
match FourOfKind    = 4 `with` same value
match StraightFlush = 5 `with` same suit `and` sequential value