module Poker.Utils where enumerate :: (Enum a, Bounded a) => [a] enumerate :: [a] enumerate = [a forall a. Bounded a => a minBound .. a forall a. Bounded a => a maxBound]