gistfile1.txt

module Deck
( make
, shuffle
) where

import System.Random

data Suit = Club | Diamond | Heart | Spade
            deriving (Eq, Show, Read, Enum)

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

make = [ (face,suit) | suit <- [ Club .. ], face <- [ One .. ] ]

shuffle (x:xs) = do
  r <- randomIO :: IO [Int]
  (r, x)