uuid-1.0.0: Demo.hs

-- timing demo

import Data.UUID
import System.Random

newUUID :: IO UUID
newUUID = randomIO

count = 300000

main = sequence_ $ replicate count $ do
         x <- newUUID
         y <- newUUID
         seq (x == y) $ return ()