module Model.UUID
  ( generateUUID
  ) where

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

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