module QuicQuid.Random(randomInt,uuid) where
import System.Random

import Data.UUID 

{-
TODO : Generate hard-to-guess random values, check that id is not already used.

might use as seed properly real random numbers from http://www.random.org/strings/?num=100&len=20&digits=on&upperalpha=on&loweralpha=off&unique=on&format=plain&rnd=new

There is a package on hackage to retrieve them.
-}

randomInt  = (randomIO :: (IO Int))

uuid = generateRandom >>= return . toStringLower -- (randomIO :: (IO Int)) >>= \r -> return $ show r