Shuffle a list by selection of a random permutation. Not particularly efficient but easy and readable.

shuffle.hs

import Data.List
import System.Random

shuffle :: [a] -> IO [a]
shuffle ss = do 
    i <- getStdRandom $ randomR (0, length ps)
    return $ ps !! i
  where ps = permutations ss