module Data.UUID.Named
(generateNamed
,namespaceDNS
,namespaceURL
,namespaceOID
,namespaceX500
) where
import Data.UUID.Internal
import Data.Binary
import Data.Maybe
import qualified Data.ByteString.Lazy as BS
generateNamed :: ([Word8] -> (Word32, Word32, Word32, Word32))
-> Word8
-> UUID
-> [Word8]
-> UUID
generateNamed hash version namespace object =
let chunk = BS.unpack (toByteString namespace) ++ object
(w1, w2, w3, w4) = hash chunk
in buildFromWords version w1 w2 w3 w4
unsafeFromString :: String -> UUID
unsafeFromString = fromJust . fromString
namespaceDNS :: UUID
namespaceDNS = unsafeFromString "6ba7b810-9dad-11d1-80b4-00c04fd430c8"
namespaceURL :: UUID
namespaceURL = unsafeFromString "6ba7b811-9dad-11d1-80b4-00c04fd430c8"
namespaceOID :: UUID
namespaceOID = unsafeFromString "6ba7b812-9dad-11d1-80b4-00c04fd430c8"
namespaceX500 :: UUID
namespaceX500 = unsafeFromString "6ba7b814-9dad-11d1-80b4-00c04fd430c8"