hydrogen-prelude-0.5: src/Hydrogen/Prelude/Extra.hs

module Hydrogen.Prelude.Extra (
    uuidFromString
  , randomUUID
  , UUID
  ) where

import Hydrogen.Prelude

import "uuid" Data.UUID (UUID)

import qualified "uuid" Data.UUID
import qualified "uuid" Data.UUID.V4

uuidFromString :: String -> Maybe UUID
uuidFromString = Data.UUID.fromString

randomUUID :: IO UUID
randomUUID = Data.UUID.V4.nextRandom