guid-0.1.0: src/Data/GUID.hs

module Data.GUID where

import Data.Text
import Data.UUID.Types
import Data.UUID.V4 as UUID

genText :: IO Text
genText = toText <$> UUID.nextRandom

genString :: IO String
genString = toString <$> UUID.nextRandom