src/server/Model/UUID.hs


1
2
3
4
5
6
7
8
9
10

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