generate hashed and random uuids in haskell

uuid.hs

{-# LANGUAGE PackageImports #-}

module Main where

import qualified Data.Char as C
import qualified Data.Word as W
-- must qualify this (requiring the ghc pragma above) to disambiguate
-- from the Data.UUID also in system-uuid
import qualified "uuid" Data.UUID as U
import qualified Data.UUID.V5 as U5
-- the system uuid generates using the sys random facility
import qualified System.UUID.V4 as U4

main :: IO ()
main = let url = map (fromIntegral . C.ord) "example.com" :: [W.Word8]
           url_uuid = U5.generateNamed U5.namespaceDNS url in
        print url_uuid >> U4.uuid >>= print