Suites

Simple.hs

-- Simple version

deck :: [(String, Int)]
deck =
    [ (s,n)
        | s <- ["Spade","Heard","Club","Diamond"]
        , n <- [1..13]
    ]

Typed.hs

-- Typed version

data Suite
    = Spade | Heart | Club | Diamond
    deriving (Show, Bounded, Enum)

data Rank =
    Two | Three | Four | Five | Six | Seven | Eight | Nine | Ten | Jack | Queen | King | Ace
    deriving (Show, Bounded, Enum, Eq, Ord)

type Card = (Suite, Rank)

deck :: [Card]
deck =
    [ (s,r)
        | s <- [minBound..maxBound]
        , r <- [minBound..maxBound]
    ]