Skip to content

Instantly share code, notes, and snippets.

@wavewave

wavewave/uuidtest.hs

Created December 29, 2011 02:26
Show Gist options
  • Save wavewave/1531274 to your computer and use it in GitHub Desktop.
Save wavewave/1531274 to your computer and use it in GitHub Desktop.
Download ZIP
uuid generation test
Raw
uuidtest.hs
{-# LANGUAGE OverloadedStrings #-}
import Data.UUID.V5
import qualified Data.ByteString as B
import qualified Data.ByteString.Char8 as C
main :: IO ()
main = do
putStrLn "uuid creation test"
let str = "test"
newuuid = generateNamed namespaceURL (B.unpack str)
putStrLn . show $ newuuid
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment