module Model.UUID
  ( generateUUID
  ) where

import Data.UUID (toString)
import Data.UUID.V4 (nextRandom)
import Data.Text (Text, pack)

generateUUID :: IO Text
generateUUID = pack . toString <$> nextRandom